home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / dbish.bat < prev    next >
Encoding:
DOS Batch File  |  2003-11-29  |  840 b   |  45 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. if "%OS%" == "Windows_NT" goto WinNT
  4. perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. :WinNT
  7. perl -x -S %0 %*
  8. if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
  9. if %errorlevel% == 9009 echo You do not have Perl in your PATH.
  10. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
  11. goto endofperl
  12. @rem ';
  13. #!perl -w
  14. #line 15
  15.  
  16. use strict;
  17.  
  18. use DBI::Shell;
  19. my $sh = DBI::Shell->new(@ARGV)->run;
  20. exit(0);
  21.  
  22. __END__
  23.  
  24. =head1 NAME
  25.  
  26. dbish    - Interactive command shell for the Perl DBI
  27.  
  28. =head1 SYNOPSIS
  29.  
  30.   dbish <options> dsn [user [password]]
  31.  
  32. =head1 DESCRIPTION
  33.  
  34. This tool is a command wrapper for the DBI::Shell perl module.
  35. See L<DBI::Shell(3)> for full details.
  36.  
  37. =head1 SEE ALSO
  38.  
  39. L<DBI::Shell(3)>, L<DBI(3)>
  40.  
  41. =cut
  42.  
  43. __END__
  44. :endofperl
  45.