[Perl] et [Batch] Ce snippet est il encore ameliorable?

Recherche :

Dernière réponse
Sujet : [Perl] et [Batch] Ce snippet est il encore ameliorable?
gilou	J'ai recemment ameliore le code suivant (lequel lance un programme perl depuis un batch): ///////////////////////Debut du snippet ////////////////////// @rem = 'Standard DOS and Perl tricky header; @echo off && set errorlevel= for %%p in (%0 %0.bat) do if exist %%p set !q=%%p && goto execute @echo Cannot execute %0: file %0 not found. && goto end :execute perl %!q% %* goto end '; $errorlevel=1; ##################################################### # Insert your Perl Program here ##################################################### exit $errorlevel?$errorlevel:1; # will set the DOS %errorlevel% # 1 is the default errorlevel in DOS __END__ :end ///////////////////////Debut du snippet ////////////////////// Ca peut encore s'ameliorer a votre avis? A+, [edit]--Message édité par gilou--[/edit]

Dernière réponse

Sujet : [Perl] et [Batch] Ce snippet est il encore ameliorable?

gilou

J'ai recemment ameliore le code suivant (lequel lance un programme perl depuis un batch):
///////////////////////Debut du snippet //////////////////////
@rem = 'Standard DOS and Perl tricky header;
@echo off && set errorlevel=
for %%p in (%0 %0.bat) do if exist %%p set !q=%%p && goto execute
@echo Cannot execute %0: file %0 not found. && goto end
:execute
perl %!q% %*
goto end
';
$errorlevel=1;
#####################################################
# Insert your Perl Program here
#####################################################
exit $errorlevel?$errorlevel:1; # will set the DOS %errorlevel%
# 1 is the default errorlevel in DOS
__END__
:end
///////////////////////Debut du snippet //////////////////////

Ca peut encore s'ameliorer a votre avis?

A+,

[edit]--Message édité par gilou--[/edit]