sasame | Bonjour, je travaille actuellement sur la création d'un top 10 en perl, sur un fichier de log antivirus d'un serveur de messagerie. Le resultat est ensuite affiché sur une page html.
Le probleme c'est que quand je je veux afficher le top 10, ça ne me marque qu'une seul ligne, un peu embetant pour un top 10.
voila a quoi ressenble mon fichier de log, les 2 premieres lignes.
Code :
- mer fév 9 00:04:41 CET 2005 - mer fév 9 00:04:43 CET 2005 :,,from:,laffichiste@yahoo.fr,to :,pnoguet@seei.fr,1,Worm.SomeFool.Gen-1 FOUND
- mer fév 9 00:07:35 CET 2005 - mer fév 9 00:07:36 CET 2005 :,,from:,sclosed-recipients@wanadoo.fr,to :,n@mq.getelec.fr,1,Worm.Bagle.AG FOUND
|
voila mon code
Code :
- foreach $logline4 (@input4)
- {
- if ($logline4 =~ /FOUND/)
- {
- # nombre de virus total
- $VirusCount++;
-
- # récupération du nom du virus
- ($date,$time,type,$host,$to,$ab,$bc,$VirusNom) = split (/,/,$logline4);
- ($VirusName,$found) = split (/ /,$VirusNom);
-
- # nombre d'occurence par virus
- $VirusList{$VirusName)++;
- }
- }
- $count=1;
- foreach $Virus ( sort keys %VirusList ) {
- if ($count < 16) {
- $data_count = $VirusList{$Virus};
- $data = $Virus;
- $result_VIRUS .= eval qq/"$htmlVIRUS"/;
- $result_VIRUS .= "\n";
- print "." if ($debug > 1);
- }
- $count++;
- }
|
Si quelqu'un pourrai m'aider à trouver où ça couince ça serai sympa.
Merci. |