Ayuda en PERL

Thread View: es.comp.os.linux.programacion

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Horacio Castellini Wed, 10 Aug 2005 18:27

#1795

Author: Horacio Castellini
Date: Wed, 10 Aug 2005 18:27

24 lines
1468 bytes

Hola:
        Soy un poco novato en PERL, y querr�a cambiar el 
siguiente c�digo que usa la STDIN ($_),

while (<>) {
    # $Or=$_ if /^From:/;
    # chop $Or;
    s/_/ /g;
    s/=20/ /g;
    s/=5F/ /g;
    s/q\?/ /ig;
    s/\"//g;
.....
}

por otro que use una variable de la siguiente forma...
while ($line=<>){
.....
}

Pero no s� como hacer que las reglas de sustituci�n sean efectivas en el
escalar $line en vez de $_.

Gracias Horacio

Re: Ayuda en PERL

#1796

Author: Gonzalo Pérez de Olaguer Córdoba
Date: Wed, 10 Aug 2005 20:17

37 lines
2034 bytes

Hola Horacio Castellini <hcaste@fonosur.com.ar>
el Wed, 10 Aug 2005 15:27:35 -0300 escribiste:

> Hola:
>         Soy un poco novato en PERL, y querría cambiar el 
> siguiente código que usa la STDIN ($_),
> 
> while (<>) {
>     # $Or=$_ if /^From:/;
>     # chop $Or;
>     s/_/ /g;
>     s/=20/ /g;
>     s/=5F/ /g;
>     s/q\?/ /ig;
>     s/\"//g;
> .....
> }
> 
> por otro que use una variable de la siguiente forma...
> while ($line=<>){
> .....
> }
> 
> Pero no sé como hacer que las reglas de sustitución sean efectivas en el
> escalar $line en vez de $_.

while ($line = <>) {
	$line =~ s/_/ /g;
	print $line;
}

man perlop(1) en la sección "Binding Operators"

-- 
Gonzalo Pérez de Olaguer Córdoba <gpoc@iies.es>
PGP key 2861C704 --- F206 5671 6789 425D 111C  1302 214F 1934 2861 C704

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads