crans/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

moins d'appels systme

Browse source 
darcs-hash:20020210161530-a279a-38bdd172fc55cc492fab6f5cd84a185e93738056.gz
This commit is contained in:
stransky 2002-02-10 17:15:30 +01:00
parent 8d8a209df6
commit 70a4903fbd
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
analyse.pl
View file

@ -167,9 +167,7 @@ if ($period)
my $firstdate2 = strftime("Analyse depuis le %d-%m-%Y %H:%M:%S", localtime($firstdate)); my $firstdate2 = strftime("Analyse depuis le %d-%m-%Y %H:%M:%S", localtime($firstdate));
print $firstdate2; print $firstdate2;
print "\n"; print "\n";
close (INPUT);
my $t = open (INPUT, $opt_file);
seek(INPUT, -90, 2); seek(INPUT, -90, 2);
my $lastlineX = <INPUT>; my $lastlineX = <INPUT>;
my $lastline = <INPUT>; my $lastline = <INPUT>;
@ -238,9 +236,7 @@ if ($period)
my $firstdate2 = strftime("Analyse depuis le %d-%m-%Y %H:%M:%S", localtime($firstdate)); my $firstdate2 = strftime("Analyse depuis le %d-%m-%Y %H:%M:%S", localtime($firstdate));
print $firstdate2; print $firstdate2;
print "\n"; print "\n";
close (INPUT);
my $t = open (INPUT, $opt_file);
seek(INPUT, -90, 2); seek(INPUT, -90, 2);
my $lastlineX = <INPUT>; my $lastlineX = <INPUT>;
my $lastline = <INPUT>; my $lastline = <INPUT>;