[SOS]: Traduire un script pour quelqu'un qui ne comprend rien au Perl

Bonjour à tous,
bonjour

J'ai hérité d'une tache consistant à traduire en WSH/VBS une 20aine de
scripts Perl. Sur cette 20aine, il m'en reste 2 pour lesquelles je ne
comprends pas ce que fait le traitement Pourriez vous m'aider à les traduire
?

1er script:
#!perl
# Shell permettant de comparer une date à "now"
# Retour : 0 si date > now, 1 sinon
# Nb : Date est recuperee par paramètres <------------------ C'est quoi
"Date" ?. Je ne comprends pas d'ou vient la "Date" qui doit être comparée à
Now. "Récupérée par paramètres": ca signifie quoi ici ??
# et doit etre au format YYMMDD hhnnss

$Decalage=0;

$i=1;
foreach $param (@ARGV) <------- Le tableau @ARGV est rempli par $param mais
d'ou sortent les valeurs que prend $param ??? Pour moi, à ce moment du
script, le tableau est vide non ???

{
if ($i==1) <------ Si la variable i prend la valeur string "1" alors
blablabla ... c'est ca ?

{
$DateDeb=$param; <------------------------------- Il y a donc une
itération sur les valeurs de type date ($param) contenues ds le tableau mais
de quoi et comment est rempli ce tableau ??? Quelle est la valeur de $param
???

}
if ($i==2) <------ Si la variable i prend la valeur string "2" alors
blablabla ... c'est ca ?

{
$DateDeb=$DateDeb." ".$param;
}
$i=$i+1;
}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time+$Decala
ge);

$DateFin=sprintf "%04d%02d%02d
%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec; <------------- Je
suppose que c'est une date au format YYYYMMJJhhmmss du style 20040722231045
(c'est à dire, la date du jour)

if ($DateDeb gt $DateFin)

{
exit 0;
}
else
{
exit 1;
}

Je ne comprend pas ce que fait ce script et comment il le fait. A la limite
si un algo peut être établi en 2 coups de cuillère à pot, je suis preneur
.....

Bonjour à tous,

J'ai hérité d'une tache consistant à traduire en WSH/VBS une 20aine de
scripts Perl. Sur cette 20aine, il m'en reste 2 pour lesquelles je ne
comprends pas ce que fait le traitement Pourriez vous m'aider à les traduire
?
[couiiic]

Par contre, je butte tjrs sur le second, surtout en raison de
l'incompréhension du format de date utilisé.

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time-$Decala
ge); <----- Est ce l'heure systeme (donc la date du jour) moins 1 jour
(86400 s) ???
time Returns the number of non-leap seconds since whatever time the

Par contre, je butte tjrs sur le second, surtout en raison de
l'incompréhension du format de date utilisé.

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time-$Decala
ge); <----- Est ce l'heure systeme (donc la date du jour) moins 1 jour
(86400 s) ???

$Date=sprintf "%02d%02d%02d",$year-100,$mon+1,$mday; <----- Format attendu
de la date ??? Je comprends pas le $year-100 (par rapport à un $year+100
$year-100 = 1904 ???) et me demande à quoi sert la ligne précédente ds
l'écriture de la variable $Date

localtime EXPR
...
$year is the number of years since 1900. That is, $year is 123 in year 2023.