Ok, theres um ficheiro que contém a seguir. Vamos chamar o logfile log_fantastic:

2009/03/16 21:42:45 USUÁRIO: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - ESTADO: ERRO
2009/03/16 21:42:45 USUÁRIO: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - ESTADO: OK
2009/03/16 21:42:45 USUÁRIO: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - ESTADO: ERRO


Quero escrever uma perl script que irá ler o conteúdo de saída log_fantastic e apenas as linhas que não tem um status_id de 10?

a seguir é o que eu tenho feito. não tenho certeza se este é correto:


use Data:: Dumper;

main ();


sub principal (
@ meus resultados;
my $ headers \u003d "usuário,
endereço MAC,
status_id ";

my (@ log_info, @ dircontents);


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

print Dumper ( "teste");
foreach my $ conteúdo (@ log_info) (
chomp ($ content);
my $ linha \u003d substr ($ conteúdo, -2);
print Dumper ($ linha);
if ($ linha eq "OK") (
push @ dircontents, $ conteúdos;
)
)


# push @ alarm_info, uc $ cabeçalhos;

print Dumper (@ dircontents);

)