Article View: es.comp.os.linux.programacion
Article #1796Re: Ayuda en PERL
From: Gonzalo Pérez de Olaguer Córdoba
Date: Wed, 10 Aug 2005 20:17
Date: Wed, 10 Aug 2005 20:17
37 lines
2034 bytes
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
Technical Details
Message-ID:
<20050810221724.75ce7782@petres.salonet.snet>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!newsfeed.hal-mli.net!feeder1.hal-mli.net!antonio.escomposlinux.org!cernicalo.escomposlinux.org!escomposlinux.org!news-15.escomposlinux.org!pinsa.escomposlinux.org!not-for-mailReferences:
<dddgqo$7d1$1@lamanonegra.escomposlinux.org>Show Full Headers
Complete Article Headers
X-Google-Thread: f86c8,22e0569ee8f0da11 X-Google-Attributes: gidf86c8,public X-Google-Language: SPANISH,ASCII Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!newsfeed.hal-mli.net!feeder1.hal-mli.net!antonio.escomposlinux.org!cernicalo.escomposlinux.org!escomposlinux.org!news-15.escomposlinux.org!pinsa.escomposlinux.org!not-for-mail From: Gonzalo Pérez de Olaguer Córdoba <gpoc@iies.es> Newsgroups: es.comp.os.linux.programacion Subject: Re: Ayuda en PERL Date: Wed, 10 Aug 2005 22:17:24 +0200 Organization: Ecolnet Lines: 37 Message-ID: <20050810221724.75ce7782@petres.salonet.snet> References: <dddgqo$7d1$1@lamanonegra.escomposlinux.org> NNTP-Posting-Host: 59.red-80-25-103.pooles.rima-tde.net Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15 Content-Transfer-Encoding: quoted-printable X-Trace: pinsa.escomposlinux.org 1123705063 6512 80.25.103.59 (10 Aug 2005 20:17:43 GMT) X-Complaints-To: newsmaster@pinsa.escomposlinux.org NNTP-Posting-Date: Wed, 10 Aug 2005 20:17:43 +0000 (UTC) X-Newsreader: Sylpheed-Claws 1.0.4 (GTK+ 1.2.10; i386-pc-linux-gnu)