Ok, theres un fichier log contenant les ci-dessous. Permet l'appel logfile log_fantastic:

2009/03/16 21:42:45 UTILISATEUR: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - ETAT: ERREUR
2009/03/16 21:42:45 UTILISATEUR: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - ETAT: OK
2009/03/16 21:42:45 UTILISATEUR: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - ETAT: ERREUR


Je veux écrire un perl script qui va lire le contenu des log_fantastic et de la production que les lignes qui ne dispose pas d'un status_id de 10?

ci-dessous, c'est ce que j'ai fait. pas sûr si cela est correct:


l'utilisation des données:: Dumper;

principal ();


sous principal (
my @ résultats;
my $ headers \u003d "utilisateur,
mac adresse,
status_id ";

my (@ LOG_INFO, @ dircontents);


open (LOG, "</ home / jhenson / log_fantastic");
@ \u003d LOG_INFO <LOG>;
close (LOG);

print Dumper ( "testing");
foreach my $ content (@ LOG_INFO) (
chomp ($ content);
my $ line \u003d substr ($ content, -2);
print Dumper ($ line);
if ($ line eq "OK") (
push @ dircontents, $ contenu;
)
)


# push @ alarm_info, uc $ headers;

print Dumper (@ dircontents);

)