Postei um problema com o match aqui um tempo atras, o problema era &quot;pegar&quot; 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 (&lt;&gt;)<br>
{&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>
&nbsp;&nbsp;&nbsp; chomp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $buffer .= $_ ;<br>
}<br>
&nbsp;&nbsp;&nbsp; if ($buffer =~m{ \[ (\w{3}) \s* (\w{3}) \s* (\d{2}) \s*<br>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (\d{2}:\d{2}:\d{2})\s*<br>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (\d{4}) \]<br>
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (\w*) \/ (\w*) /// Info(\(\d*\)) <br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (\w*) # isso e so pra pegar a 2a linha<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }xm<br>
){<br>
&nbsp;&nbsp;&nbsp; print &quot;funfo a regexp\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$buffer&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$1\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$2\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$3\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$4\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$5\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$6\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$7\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$8\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$9\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$10\n&quot;;<br>
&nbsp;&nbsp;&nbsp; print &quot;$11\n&quot;;<br>
}<br clear="all"><br>-- <br>Lorn <br>- Slackware Linux<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a>