Postei um problema com o match aqui um tempo atras, o problema era "pegar" essas duas linhas.<br>
[Fri Sep 30 14:02:22 2005]Local/ESSBASE0///Info(1051001)<br>
Received client request: Logout (from user Procbat<br>
<br>
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:<br>
while (<>)<br>
{ <br>
chomp;<br>
$buffer .= $_ ;<br>
}<br>
if ($buffer =~m{ \[ (\w{3}) \s* (\w{3}) \s* (\d{2}) \s*<br>
(\d{2}:\d{2}:\d{2})\s*<br>
(\d{4}) \]<br>
(\w*) \/ (\w*) /// Info(\(\d*\)) <br>
(\w*) # isso e so pra pegar a 2a linha<br>
}xm<br>
){<br>
print "funfo a regexp\n";<br>
print "$buffer";<br>
print "$1\n";<br>
print "$2\n";<br>
print "$3\n";<br>
print "$4\n";<br>
print "$5\n";<br>
print "$6\n";<br>
print "$7\n";<br>
print "$8\n";<br>
print "$9\n";<br>
print "$10\n";<br>
print "$11\n";<br>
}<br clear="all"><br>-- <br>Lorn <br>- Slackware Linux<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a>