Foro - Perl en Español

por **xagutxu** » 2011-09-24 12:18 @554

Hola:

Tengo un array con diferentes códigos de lenguaje: @lang=('en', 'es', 'fr', 'it', 'de');

Me gustaría crear un array para cada idioma del array, de la forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@lang_en = ();
@lang_es = ();
@lang_fr = ();
@lang_it = ();
@lang_de = ();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

He probado con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach my $v (@lang_pref){
$$v++;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero me da el siguiente error:

Can't use string ("lang_en") as a SCALAR ref while "strict refs" in use at languages.pl line 671.

¿Hay alguna forma de que no tenga que desactivar el use strict? Y ¿cómo defino esas variables con un my()?

Gracias de antemano,

Xagutxu

my %lang = (
      en => [],
      es => [],
      fr => [],
      it => [],
      de => [],
);
 
push @{$lang{es}}, 'Hola';
push @{$lang{en}}, 'Hi!';
 
use Data::Dumper;
print Dumper \%lang;   # Muestra la estructura actual de %lang
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Crear variable mediante un string

Crear variable mediante un string

Publicidad

Re: Crear variable mediante un string

¿Quién está conectado?