🚀 go-pugleaf

On Mon, 17 Sep 2001 21:26:38 +0200, Raul wrote:
>    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?.

Hay varios problemas con el programa.

>#!/usr/bin/perl
#!/usr/bin/perl -w

Y ver�s las advertencias.

He incluido abajo tu programa con unos cambios.

Saludos

Adrian.

----------------------
#!/usr/bin/perl -w

until(0) {
    chop ($cadena = <STDIN>);
    last if !$cadena;
    @tabla = split(/ /,$cadena);
    $formal = "$tabla[1] $tabla[2], $tabla[0]";
    push(@mennombres, $formal);
    if ($tabla[0] eq "Juan") {      # eq para cadenas, == para numeros
        push(@menjuan, $formal);
    }
    
}
foreach (sort @mennombres) {        # no se si es lo que querias
    print "$_\n";
}

open (NOMBRESJUAN, ">juanes");
foreach (sort @menjuan) {
    print NOMBRESJUAN "$_\n";       # si quieres el \n
}
close (NOMBRESJUAN);



-- 
Adrian Rossiter
Email:     adrian_r@teleline.es
Web Site:  http://www.terra.es/personal/adrian_r