[Perl] expresion regular

[Victor Hugo Dorantes Gonzalez]

On Fri, 8 Jun 2001, Gunnar Wolf wrote:

> $linea ="texto1  [esto fuera] texto2  [esto tambien] texto3 [esto no lo quiero]";
> $linea =~ s/\[.*\]//g;

Aqui:  $line =~ s/\[(\s|\w)*\]//g;  # espacio o palabras, las que sean

> print "Linea = $line\n";

resultado:
[root@pearl PERL]# ./lola.pl 
Linea = texto1   texto2   texto3 
[root@pearl PERL]# 

> > y quiero que el resultado de linea sea:
> >
> > $linea ="texto1  texto2  texto3 ";


listo.


V. Hugo