[Dresden-pm] dresden-pm-bounces@pm.org; im Auftrag von; Steffen Schwigon [schwigon@webit.de]

[Steffen Winkler]

Dem Perl kann man die Zeilennummer genau so mitteilen, wie das auch "pl2bat" macht, welches in der Win-Distribution mit enthalten ist. Bei dieser Datei "myscript.bat", die bei "pl2bat myscript.pl"  entsteht, handelt es sich um ein File, was cmd genau so gut versteht wie Perl selbst. Nur ist das auch die Zeilennummer kaputt, die dann mit #line 15 wieder für die Folgezeile korrekt gesetzt wird. Ansonsten könnte man Fehlermeldungen überhaupt nicht mehr interpretieren.

Inhalt von "myscript.bat":

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15

__END__
:endofperl