Foro - Perl en Español

por **anush** » 2009-12-31 07:19 @346

Quiero usar un hash ya hecho en una subrutina, ¿podría introducirlo como argumento?, no quiero modificarlo ni nada, solo partir de él. Gracias.

my%hash=(a => 1, b => 2);


subrutina1(\%hash);# Pasamos el %hash como una referencia a él, no sus valores

subrutina2(\%hash);

subrutina3(%hash);# ¡Ag! pasamos todos los valores del %hash (ineficiente)

sub subrutina1 {
my$hash_ref=$_[0];# Le estamos pasando una referencia a la subrutina

print$hash_ref->{b},"\n";# El acceso es directo a nuestro %hash, des-referenciando con '->'
}

sub subrutina2 {
my$hash=%{$_[0]};# Hacemos una copia local del hash pasado por referencia (ineficiente)

print$hash{b},"\n";# El acceso es directo, pero no es el mismo %hash que el nuestro
}

sub subrutina3 {
my%hash=@_;# Hacemos una copia local del hash pasado por valores (ineficiente)

print$hash{b},"\n";# El acceso es directo, pero no es el mismo %hash que el nuestro
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **anush** » 2009-12-31 10:29 @478

Gracias, el hecho es que si en la subrutina quiero:
- Introducir una variable
- Introducir el hash
- Ver si esa variable está como clave en el hash y devolverme su valor

No veo cómo podría hacerlo con lo antes indicado.

por **explorer** » 2009-12-31 10:36 @483

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%hash=(a => 1, b => 2);
my$clave='b';


subrutina1($clave,\%hash);

sub subrutina1 {
my$clave=shift;# Leemos los argumentos. Dos escalares. El primero es la $clave
my$hash_ref=shift;# El segundo es la referencia al %hash

if($hash_ref->{$clave}){# ¿Existe $clave como clave dentro del %hash?
print"SI\n";
}
else{
print"NO\n";
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **anush** » 2009-12-31 10:48 @491

¿Qué función tendría en este caso el shift()? ¿Almacenarlos al igual que hace @_?

por **explorer** » 2009-12-31 10:58 @498

perldoc -f shift

shift()

shift() extrae el primer elemento del array o lista de valores, por la izquierda. Si no se dice nada, lo hace desde @_. Así que es la forma de leer argumentos pasados a las subrutinas.

Otra forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub subrutina1 {
my$clave=$_[0];# Leemos los argumentos. Dos escalares. El primero es la $clave
my$hash_ref=$_[1];# El segundo es la referencia al %hash
#...Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **anush** » 2009-12-31 11:03 @502

Creo que lo entendí, gracias.
Por último, si tengo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@claves=keys%codigonuevo;
my@valores=values%codigonuevo;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cómo pudo crear un hash partiendo de esos dos arrays?
Gracias =)

por **salva** » 2009-12-31 11:33 @523

Así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%h;
@h{@claves}=@valores;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

fíjate en que aunque %h es un hash, cuando hacemos la asignación, cambiamos el % por una @ para indicarle a Perl que no nos referimos a una única entrada del hash sino a una lista de ellas.

por **explorer** » 2009-12-31 11:51 @535

Si tenemos

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@claves=keys%codigonuevo;
my@valores=values%codigonuevo;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

entonces

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%nuevo_hash=%codigonuevo;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **anush** » 2009-12-31 12:29 @561

Intenté ponerme a prueba y al final me salió esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub subrutina{
my($claves,$valores,$elemento)=@_;
my@claves=@$claves;
my@valores=@$valores;
my%codigonuevo;
my$i;
for($i=0;$i<scalar(@claves);++$i){
$codigonuevo{$claves[$i]}=$valores[$i];
}
#...
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es un poco más largo y rudimentario, pero funciona con las cosas que se hacer

Gracias. Al final utilicé esto en cierta manera para poder introducir un hash en una subrutina con mis posibilidades, es decir, mediante el paso por referencia de un array, que lo conozco.

Foro - Perl en Español

¿Cómo introducir un hash como argumento en una subrutina?

¿Cómo introducir un hash como argumento en una subrutina?

Publicidad

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

Re: ¿Cómo introducir un hash como argumento en una subrutina?

¿Quién está conectado?