[SP-pm] Ajuda expressão regular

Nelson Ferraz nferraz em gmail.com
Segunda Julho 31 07:07:46 PDT 2006


Muito boa a sua solução, Vitor. Simplificando um pouco:

while ( <> ) {
   my ( $d1, $d2 ) = /ifDescr\.(\d+).*STRING:(.*)/;
   $d1 =~ s/[Shelf|on|Slot]//g;
   print "$d1 $d2\n";
}

[]s

Nelson

-- 
Nelson Corrêa de Toledo Ferraz

Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital


Mais detalhes sobre a lista de discussão SaoPaulo-pm