Foro - Perl en Español

por **BigBear** » 2010-04-08 16:22 @723

Hola a todos.

Tengo los siguientes arrays:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@nombres=("pablo","pepe","copia","copia","copia","copia");
@hace=("paginas","nada","copia","copia","copia","copia");
@forma=("ok","ok","ok","ok","ok","ok");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que me gustaría es hacer que esos arrays se impriman de la siguiente manera agregándole en un print() la palabra "hace":

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

pablo hace paginas ok

pepe hace nada ok
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y así, sucesivamente.

Espero hacer explicado bien.

¿Alguien me podría ayudar?

#!/usr/bin/perl
 
use List::AllUtils qw(each_array);
 
my @nombres = qw( pablo   pepe copia copia copia copia );
my @hace    = qw( paginas nada copia copia copia copia );
my @forma   = qw( ok      ok   ok    ok    ok    ok    );
 
my $iterador = each_array @nombres, @hace, @forma;
 
while (my ($nombre, $hace, $forma) = $iterador->()) {
 
    print "$nombre hace $hace $forma\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2010-04-08 16:37 @734

Era más simple de lo que pensaba

. Como siempre, gracias, explorer.

por **creating021** » 2010-04-08 20:00 @875

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use strict;
 
my @nombres = qw( pablo   pepe copia copia copia copia );
my @hace    = qw( paginas nada copia copia copia copia );
my @forma   = qw( ok      ok   ok    ok    ok    ok    );
 
for ( my $i = 0; $i < ($#nombres + 1); $i++ ) {
    print "$nombres[$i] hace $hace[$i] $forma[$i]\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Solamente funciona si el tamaño de @nombres es igual al de @hace y @forma.

¿Conoces alguna otra forma de hacerlo? Pon todas las formas que se te ocurran y demuestra la versatilidad de Perl

por **dr9170** » 2010-04-08 22:34 @981

¡Conchale mi pana! Aquí te envío lo que yo hice... llevo como 3 semanas aprendiendo Perl y hasta hora es de lo mejor, la cantidad de módulos que te facilitan el trabajo es increíble...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
@nombres = ("pablo","pepe","copia","copia","copia","copia");
@hace = ("paginas","nada","copia","copia","copia","copia");
@forma = ("ok","ok","ok","ok","ok","ok");
 
$c = 0 ;
 
while ( $c < $#nombres ) {
 
        print $nombres[$c] ;
        print " hace " ;
        print $hace[$c] ;
        print " " ;
        print $forma[$c] ;
        print "\n" ;
 
$c++;
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Es super gafo... pero bueno, querías conocer formas... Este hace lo que tu quieres... Saludos desde Venezuela

por **explorer** » 2010-04-09 03:36 @192

Bienvenido a los foros de Perl en Español, dr9170.

Gracias por tu aporte, dr9170. Solo comentarte un detalle.

En el bucle while(), has puesto que $c vaya incrementándose mientras que su valor sea menor que $#nombres.

$#nombres devuelve el valor del último índice del arreglo @nombres.

Eso quiere decir que, en tu bucle, no se imprimirá el último índice, porque la condición de parada se ejecutará antes de que $c valga lo mismo que $#nombres.

Hay un par de soluciones para esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($c<@nombres){

while($c<=$#nombres){Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos.

Foro - Perl en Español

Forma de usar los arrays

Forma de usar los arrays

Publicidad

Re: Forma de usar los arrays

Re: Forma de usar los arrays

Re: Forma de usar los arrays

Re: Forma de usar los arrays

Re: Forma de usar los arrays

¿Quién está conectado?