<DIV>
<DIV>
<DIV>Ola Pessoal,</DIV>
<DIV>&nbsp;</DIV>
<DIV>Mestre Luis, eu estava (melhor dizendo, estou) enrolado com uns negócios de Web Services (o coisa chata hein !!!!), por isto demorei um pouco para testar as alternativas.</DIV>
<DIV>&nbsp;</DIV>
<DIV>A do Nelson mostrou-se bem educativa, mas eu estava a procura de um negócio de uma linha só e segui o teu exemplo, claro com um monte de viadagem a mais que o sistema pedia.</DIV>
<DIV>&nbsp;</DIV>
<DIV>Agora eu fiquei com uma dúvida, que são '\Q' e '\E' ? Eu não usei isto, porque iria complicar muito o meu script e aí seria mais fácil fazer como o do Nelson, simplesmente removi estas strings.</DIV>
<DIV>&nbsp;</DIV>
<DIV>Solli</DIV>
<DIV>&nbsp;</DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>De:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>cascavel-pm-bounces@mail.pm.org</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Para:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>"Cascavel Perl Mongers" cascavel-pm@mail.pm.org</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Cópia:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2></FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Data:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>Wed, 28 Apr 2004 10:55:41 -0300</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Assunto:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>Re: [Cascavel-pm] Help on REGEX !!!</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD width=100 bgColor=#e8e8e8>&nbsp;</TD>
<TD width=400 bgColor=#e8e8e8>&nbsp;</TD></TR></TBODY></TABLE></DIV>
<DIV>&gt; Nelson Ferraz wrote:</DIV>
<DIV>&gt; &gt; Solli Moreira Honorio wrote:</DIV>
<DIV>&gt; &gt;&gt; e eu preciso certificar que esta linha tenha:</DIV>
<DIV>&gt; &gt;&gt; PCI</DIV>
<DIV>&gt; &gt;&gt; VEN_10B7&amp;DEV_9055&amp;SUBSYS_905510B7&amp;REV_24</DIV>
<DIV>&gt; &gt;&gt; 3&amp;61aaa01&amp;0&amp;70</DIV>
<DIV>&gt; &gt;&gt; </DIV>
<DIV>&gt; &gt;&gt; Como fazer isto via expressão regular ?</DIV>
<DIV>&gt; &gt; </DIV>
<DIV>&gt; &gt; Uma resposta didática:</DIV>
<DIV>&gt; &gt; </DIV>
<DIV>&gt; &gt; if ( $linha =~ /PCI/ &amp;&amp;</DIV>
<DIV>&gt; &gt; $linha =~ /VEN_10B7\&amp;DEV_9055\&amp;SUBSYS_905510B7\&amp;REV_24/ &amp;&amp;</DIV>
<DIV>&gt; &gt; $linha =~ /3\&amp;61aaa01\&amp;0\&amp;70/ ) {</DIV>
<DIV>&gt; &gt; </DIV>
<DIV>&gt; &gt; # do something</DIV>
<DIV>&gt; &gt; </DIV>
<DIV>&gt; &gt; }</DIV>
<DIV>&gt; &gt; </DIV>
<DIV>&gt; &gt; Observe que eu "escapei" os caracteres "&amp;" para evitar que sejam </DIV>
<DIV>&gt; &gt; confundidos com algum comando dentro da regexp.</DIV>
<DIV>&gt; &gt; </DIV>
<DIV>&gt; </DIV>
<DIV>&gt; Caros "Professor" Nelson (: e "Frei" Solli</DIV>
<DIV>&gt; </DIV>
<DIV>&gt; Eu gostei das diferentes propostas para resolver o problema, mas não </DIV>
<DIV>&gt; vi qualquer feed-back da parte do "frei" Solli.</DIV>
<DIV>&gt; </DIV>
<DIV>&gt; Solli, você conseguiu resolver? Como ficou? Poste para a gente ler, </DIV>
<DIV>&gt; também!</DIV>
<DIV>&gt; Putamplexos!</DIV>
<DIV>&gt; </DIV>
<DIV>&gt; -- </DIV>
<DIV>&gt; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>&gt; Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>&gt; PerlMonk [SiteDocClan], Cascavel-pm Moderator,</DIV>
<DIV>&gt; Unix Sys Admin &amp;&amp; Certified Oracle DBA</DIV>
<DIV>&gt; http://br.geocities.com/monsieur_champs/</DIV>
<DIV>&gt; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>&gt; </DIV>
<DIV>&gt; _______________________________________________</DIV>
<DIV>&gt; Cascavel-pm mailing list</DIV>
<DIV>&gt; Cascavel-pm@mail.pm.org</DIV>
<DIV>&gt; http://cascavel.pm.org/mailman/listinfo/cascavel-pm</DIV></DIV></DIV>