Bom, "descobri" um jeito que funcionou mais ou menos..<br>
2 while (<>)<br>
3 { <br>
4 if (m{ \[ (\w{3}) \s* (\w{3}) \s* (\d{2}) \s*<br>
5
(\d{2}:\d{2}:\d{2})\s*<br>
6
(\d{4}) \]<br>
7
(\w*) \/ (\w*) /// Info(\(\d*\)) <br>
8
\r<br>
9
(\s*) <br>
10 }sxm<br>
11 ){<br>
12 print "OK\n";<br>
13 print "$8\n";<br>
14 print "$9\n";<br>
15 print "$10\n";<br>
16 <br>
17 }}<br>
<br><br><div><span class="gmail_quote">On 11/9/05, <b class="gmail_sendername">Daniel Ruoso</b> <<a href="mailto:daniel@ruoso.com">daniel@ruoso.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Em Qua, 2005-11-09 às 14:38 -0300, Luis Campos de Carvalho escreveu:<br>> --- Daniel Ruoso <<a href="mailto:daniel@ruoso.com">daniel@ruoso.com</a>> escreveu:<br>> > Em Qua, 2005-11-09 às 10:15 -0300, Lorn escreveu:
<br>> > > Alguem ai sabe como eu pego uma quebra de linha com o "match" ?<br>> > > eu tenho o seguinte problema<br>> ><br>> > não seria a falta do modificador "s" no final?
<br>> ><br>> > tipo m!sdfoasdfpo!s<br>> Mas /s não é necessário para matches em múltiplas linhas. /m é que é. /s indica o contrário...<br><br>acho que não...<br><br>ruoso@cajazeiras:~$ perl<br>use strict;
<br>use warnings;<br>my $test = "This is a string with\na new line";<br>if ($test =~ /with.a new line/) {<br> print "Teste 1 ok".$/;<br>}<br>if ($test =~ /with.a new line/s) {<br> print "Teste 2 ok".$/;
<br>}<br>if ($test =~ /with.a new line/m) {<br> print "Teste 3 ok".$/;<br>}<br>Teste 2 ok<br>ruoso@cajazeiras:~$<br><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Lorn <br>- Slackware Linux<br><a href="http://www.slackwarezine.com.br">
www.slackwarezine.com.br</a>