Problema con Perl

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

Article #11943

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

#11943

From: Raul
Date: Mon, 17 Sep 2001 19:26

34 lines
1840 bytes

    Hola os mando este programita, que lo que intenta hacer es coger 
nombres y apellidos y luego presentarlos en formato "apellidos, nombre" 
y guardar en un archivo los que se llamen Juan.

    Coger los nombres y cambialos funciona pero cuando termino de 
introducir nobres se sale; el problema estara en el "last if..." pero 
soy nuevo en esto y no conozco bien los comandos. �Alguna ayuda?.

    Gracias.



#!/usr/bin/perl

until(0) {
    chop ($cadena = <STDIN>);
    last if !$cadena;
    @tabla = split(/ /,$cadena);
    $formal = "$tabla[1] $tabla[2], $tabla[0]";
    push(@mennobres, $formal);
    if ($tabla[0] = "Juan") {
    push(@menjuan, $formal);
    }
    
}
for ($i=0 ; $i<=$#mennombres ; $i++) {
    print (sort $mennombres[$i]), "\n";
}

open (NOMBRESJUAN, ">juanes");
foreach (sort @menjuan) {
    print NOMBRESJUAN;
}
close (NOMBRESJUAN);

Technical Details

Message-ID: <3BA64E6E.1030809@grupobbva.net>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!hammer.uoregon.edu!enews.sgi.com!news-out.spamkiller.net!propagator-la!news-in-la.newsfeeds.com!news-in.superfeed.net!newsfeed.bcn.ttd.net!news.mad.ttd.net!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: SPANISH,ASCII
X-Google-Thread: f86c8,e64cc5443679e137,start
X-Google-Attributes: gidf86c8,public
X-Google-ArrivalTime: 2001-09-17 12:27:51 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!hammer.uoregon.edu!enews.sgi.com!news-out.spamkiller.net!propagator-la!news-in-la.newsfeeds.com!news-in.superfeed.net!newsfeed.bcn.ttd.net!news.mad.ttd.net!not-for-mail
From: Raul <rauljh@grupobbva.net>
Newsgroups: es.comp.os.linux.programacion
Subject: Problema con Perl
Date: Mon, 17 Sep 2001 21:26:38 +0200
Organization: Telefonica Transmision de Datos
Lines: 35
Message-ID: <3BA64E6E.1030809@grupobbva.net>
NNTP-Posting-Host: 213.97.97.118
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1
X-Accept-Language: en-us, es