Code :
my $SEARCH_FILE = "billing_$mday-$mon-$year"; if (@bil > 0) { foreach my $file (@bil) { my ($i, $y, $z, $a, $b) = (0, 0, 0, 0, 0); open (FILE, "<", $DIR. $file); while (<FILE> ) { if ($tab[11] == 490) { next; } elsif (! $hash{$tab[0]."|".$tab[2]."|".$tab[3]."|".$tab[6]}) { $hash{$tab[0]."|".$tab[2]."|".$tab[3]."|".$tab[6]}=1; if (substr($tab[3], 0, 3) eq "DOA" or substr($tab[3], 0, 3) eq "DOJ" or substr($tab[3], 0, 3) eq "DOS" or substr($tab[3], 0, 3) eq "DOR" or substr($tab[3], 0, 3) eq "GMC" or substr($tab[3], 0, 3) eq "GMJ" or substr($tab[3], 0, 3) eq "GMB" or substr($tab[3], 0, 3) eq "GMD" or substr($tab[3], 0, 3) eq "CPV" or substr($tab[3], 0, 3) eq "PIN" ) { $y = $y + 1; } else { if ($tab[5] != 0) { $i = $i + 1; } } $z = $i + $y; } } if ($i == 0) { print "\n__UNDEF__\n__END__"; } $a = sprintf '%.2d%%', ($y/ $z* 100); $b = sprintf '%.2d%%', ($i/ $z* 100); $Message = $Message . "$mday_hier/$mon_hier/$year_hier\t$y($a)\t\t$i($b)\t\t$z\n"; print "$mday_hier/$mon_hier/$year_hier;$y;$i;$z\n"; } foreach my $del (@bil) { } } # Vérification de la présence des données else { print "ERROR: NO BILLING FILES\n"; print "ERROR: __END__\n\n"; # send email email_no_bil($To, $From, $Cc, $Bcc, $SubjectErr, $Message, $File); } }
|