[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