Foro - Perl en Español

por **BigBear** » 2011-05-18 12:45 @573

Hola, ando teniendo una duda básica al querer mostrar un array, el
problema es que tengo una función que retorna un array con números del 1 al 9,
cuando llamo la función para poder retornar el resultado, el script me
devuelve solo la longitud del array cuando quiero mostrarlo completo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @re = mandar();      
 
print "tengo ".@re."\n";
 
sub mandar {
my @a = (1..9);
return @a;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿ Alguien me podría explicar por qué pasa esto ?

Lo que ocurre es que dentro del print(), estás colocando el array @re en contexto escalar, por acción del operador '.'. Es decir, lo que obtenemos de @re es el número de elementos de @re; en este caso, un '9'.

Lo que puedes hacer es colocar el array @re dentro de las comillas dobles, para hacer una interpolación automática al contenido de @re (todos los elementos de @re separados por el delimitador indicado por la variable especial $"):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "tengo @re\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra opción es colocarlo sin interpolación:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "tengo ", @re, "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero el resultado, será distinto (aparecen los elementos, pero sin el separador).

por **BigBear** » 2011-05-18 13:03 @585

Gracias por la ayuda explorer, pero tengo otra duda: necesito el resultado de la función en una variable llamada $re pero me devuelve también la longitud. Perdón si ya me lo dijiste pero es que no entiendo del todo.

por **explorer** » 2011-05-18 13:10 @590

Si lo que quieres es obtener un escalar, entonces es correcto usar una variable escalar.

Si lo que quieres es obtener una estructura más compleja, entonces lo que debes guardar en el escalar es una referencia a esa estructura.

Recuerda que en una variable escalar solo se puede almacenar un valor.

Si muestras algo de código, o si nos cuentas qué es realmente lo que quieres hacer, pues te podremos ayudar más.

por **BigBear** » 2011-05-18 13:29 @603

Gracias por la ayuda, ya resolví el problema, pongo el código de la
función que estaba haciendo , también hice una versión tk.

Versión consola

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#Function genpass() By Doddy H
 
my @password = genpass(8);
 
print "pass : ",@password,"\n";
 
sub genpass {
 
my $length = shift;
 
my @re;
 
my @mayus = (A..Z);
my @minus = (a..z);
my @number = (0..9);
my @op = (1..3);
 
for (1..$length) {
 
my $opt = @op[rand(@op)];
if ($opt eq 1) {
push(@re,@mayus[rand(@mayus)]);
}
elsif ($opt eq 2) {
push(@re,@minus[rand(@minus)]);
}
elsif ($opt eq 3) {
push(@re,@number[rand(@number)]);
}
}
return @re;
}
 
#Thanks to explorer (perlenspanol)
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Versión gráfica

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#Gen Password (C) Doddy Hackman 2011
 
use Tk;
 
if ($^O eq 'MSWin32') {
use Win32::Console; 
Win32::Console::Free();
}
 
my $sin = MainWindow->new();
$sin->title("Gen Password (C) Doddy Hackman 2011");
$sin->geometry("530x80+20+20");
$sin->resizable(0,0);
 
$sin->Label(-text=>"Result : ",-font=>"Impact1")->place(-x=>30,-y=>20);
my $rex = $sin->Text(-width=>28,-height=>1)->place(-y=>24,-x=>90);
$sin->Label(-text=>"Length : ",-font=>"Impact1")->place(-x=>310,-y=>20);
my $leng = $sin->Entry(-width=>3,-text=>3)->place(-y=>24,-x=>370);
$sin->Button(-text=>"Generate",-command=>\&gen,-width=>12)->place(-y=>22,-x=>410);
 
MainLoop;
 
 
sub gen {
 
$rex->delete("0.0","end");
my $ala = $leng->get;
 
my @password = genpass($ala);
for $pass(@password) {
$rex->insert("end",$pass);
}}
 
sub genpass {
 
my $length = shift;
 
my @re;
 
my @mayus = (A..Z);
my @minus = (a..z);
my @number = (0..9);
my @op = (1..3);
 
for (1..$length) {
 
my $opt = @op[rand(@op)];
if ($opt eq 1) {
push(@re,@mayus[rand(@mayus)]);
}
elsif ($opt eq 2) {
push(@re,@minus[rand(@minus)]);
}
elsif ($opt eq 3) {
push(@re,@number[rand(@number)]);
}
}
return @re;
}
 
#Thanks to explorer (perlenespanol)
# ¿ The End ? 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cualquier sugerencia, decidla.

por **explorer** » 2011-05-18 13:42 @613

Esta es mi versión (no probada):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub genpass {
    my $length = shift;
 
    my @seed = ('a'..'z','A'..'Z',0..9);
 
    return join '', map { $seed[rand @seed] } 1 .. $length;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema al mostrar array

Problema al mostrar array

Publicidad

Re: Problema al mostrar array

Re: Problema al mostrar array

Re: Problema al mostrar array

Re: Problema al mostrar array

Re: Problema al mostrar array

¿Quién está conectado?