Ayuda en PERL

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

Article #1795

Back to es.comp.os.linux.programacion Previous Next

#1795

From: 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

Technical Details

Message-ID: <dddgqo$7d1$1@lamanonegra.escomposlinux.org>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!news.antakira.com!cagarruta.escomposlinux.org!calambre.escomposlinux.org!neozero.escomposlinux.org!lamanonegra.escomposlinux.org!escomposlinux.org!lamanonegra.escomposlinux.org!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: f86c8,22e0569ee8f0da11,start
X-Google-Attributes: gidf86c8,public
X-Google-Language: SPANISH,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!news.antakira.com!cagarruta.escomposlinux.org!calambre.escomposlinux.org!neozero.escomposlinux.org!lamanonegra.escomposlinux.org!escomposlinux.org!lamanonegra.escomposlinux.org!not-for-mail
From: Horacio Castellini <hcaste@fonosur.com.ar>
Newsgroups: es.comp.os.linux.programacion
Subject: Ayuda en PERL
Date: Wed, 10 Aug 2005 15:27:35 -0300
Organization: Chaos Company
Lines: 24
Message-ID: <dddgqo$7d1$1@lamanonegra.escomposlinux.org>
NNTP-Posting-Host: host50.200-43-97.telecom.net.ar
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8Bit
X-Trace: lamanonegra.escomposlinux.org 1123698331 7585 200.43.97.50 (10 Aug 2005 18:25:31 GMT)
X-Complaints-To: foobar@escomposlinux.org
NNTP-Posting-Date: Wed, 10 Aug 2005 18:25:31 +0000 (UTC)
User-Agent: KNode/0.7.7