sommaire => Perl
=> exemples
ECls_sec_org _ mesurer le temps
Liste des secondes depuis 1970 _ tableau de grandeur du temps _
alain Adelmar 25 Janvier 2001.
#!/usr/bin/perl -w
# liste des secondes par rapport au années depuis le
début 1970
# tableau de grandeur du temps _ alain
Adelmar 25 Janvier 2001.
$file
= "temps_1970-2070_sec.log"
;
@mois
= qw(
Janv
Févr
Mars
Avri
Mai
Juin
Juil
Aout
Sept
Octo
Nove
Dece
)
;
$z
= 2592000
;
$a
= 1970
;
@matiere
= <
F>;
for
($x
= 0
; $x
<=
3110400000;
$x =
$x
+ $z
) {
$m
= $mois
[$i];
$line
= "$m $a\t$x\n"
;
push
@matiere,
$line;
print
"$line";
if
("$m"
eq "Dece"
) {
$i
=
0;
$a
++;
$x
=
$x +
430000;
#rattrapage car sur un an perd 5 jours
}
else
{
$i
++;
}
}
open(
F,
">$file")
or die
"putain ca coince pboverture $!"
;
print
F @matiere
;
close
F ||
die
"remerde $!";
END;
Split en action.
petit script pour voir le comportement de split.
#!/usr/bin/perl -w
# essai pour voir le comportement de split. alain adelmar 25012001
$a
= "11/03"
;
($j
, $m
)= split
(/\//,
$a,2
);
print
"$a\n";
print
"$j\n";
print
"$m\n";
END;
Cette page à été conçue grace à XEmacs 21.1 et Scite que vous pouvez trouvez sur:
http://www.scintilla.org/ScintillaDownload.html.
sommaire =>
Perl => exemples