[Cascavel-pm] Problemas com o match

[Lorn]

Postei um problema com o match aqui um tempo atras, o problema era "pegar"
essas duas linhas.
[Fri Sep 30 14:02:22 2005]Local/ESSBASE0///Info(1051001)
Received client request: Logout (from user Procbat

Depois de postar no perlmonks, eles me deram algumas dicas, o estranho e que
se eu nao jogar pra uma variavel ele NAO pega a 2a linha, nao sei porque,
mais o importante e que funcionou ;) a resposta final foi essa:
while (<>)
{
chomp;
$buffer .= $_ ;
}
if ($buffer =~m{ \[ (\w{3}) \s* (\w{3}) \s* (\d{2}) \s*
(\d{2}:\d{2}:\d{2})\s*
(\d{4}) \]
(\w*) \/ (\w*) /// Info(\(\d*\))
(\w*) # isso e so pra pegar a 2a linha
}xm
){
print "funfo a regexp\n";
print "$buffer";
print "$1\n";
print "$2\n";
print "$3\n";
print "$4\n";
print "$5\n";
print "$6\n";
print "$7\n";
print "$8\n";
print "$9\n";
print "$10\n";
print "$11\n";
}

--
Lorn
- Slackware Linux
www.slackwarezine.com.br <http://www.slackwarezine.com.br>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20051117/f8a3c677/attachment.html