Foro - Perl en Español

por **natxo** » 2008-09-21 08:17 @387

Tengo este hash:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my%abbreviation_of=(
'value addedd tax'=>'vat',
'belasting over de toegevoedge waarde'=>'btw',
'impuesto sobre el valor añadido'=>'iva',
);Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y si lo recorro con each() funciona como quiero:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while((my$key,my$value)=each(%abbreviation_of)){
print"$key\t$value\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora bien, si hago esto otro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"$abbreviation_of{value added tax}\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y lo ejecuto entonces tengo este fallo:

Código: Seleccionar todo: Bareword "tax" not allowed while "strict subs" in use at cascade.pl line 18. Execution of cascade.pl aborted due to compilation errors.

Aquí todo el código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use strict;
use warnings;

my$input=shift;

my%abbreviation_of=(
'value addedd tax'=>'vat',
'belasting over de toegevoedge waarde'=>'btw',
'impuesto sobre el valor añadido'=>'iva',
);

while((my$key,my$value)=each(%abbreviation_of)){
print"$key\t$value\n";
}

print"$abbreviation_of{value added tax}\n";Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿Alguna idea de por qué falla? He probado con comillas simples, dobles, sin comillas, ..., se me acabaron las ideas.

Tranquilo, este es uno de los errores más difíciles de detectar al escribir en Perl. Debido a la autovivificación de las claves de los hash, Perl no nos avisa cuando se encuentra con una clave distinta a la que queríamos usar, porque piensa que es una clave nueva.

Una forma de solventarlo es usando módulos como Hash::Util, que ayuda a restringir las claves que podemos usar con nuestro hash.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;

use Hash::Utilqw(lock_hash);

my%abbreviation_of=(
'value added tax'=>'vat',
'belasting over de toegevoedge waarde'=>'btw',
'impuesto sobre el valor añadido'=>'iva',
);


lock_hash(%abbreviation_of);

while((my$key,my$value)=each(%abbreviation_of)){
print"$key\t$value\n";
}

print"$abbreviation_of{'value addedd tax'}\n";Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sale:

Código: Seleccionar todo: belasting over de toegevoedge waarde btw value added tax vat impuesto sobre el valor añadido iva Attempt to access disallowed key 'value addedd tax' in a restricted hash at ./kk.pl line 20.

Foro - Perl en Español

Problema con hash

Problema con hash

Publicidad

¿Quién está conectado?