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]