Recuerda que puedes editar tus propios mensajes, pulsando en el botón adjunto a cada mensaje.
En la edición de cada mensaje, hay una botonera de estilos, por debajo de la clásica de negrita, inclinada, etc. Tal como están puestos te colocarán el código según la sintaxis elegida. Pero pueden personalizarse bastante. Solo hay que preocuparse de leerse la sintaxis de etiquetado de la aplicación phpBB2. Pero bueno, con lo que trae por defecto, te vale. Si quieres ver cómo he reeditado alguno de tus mensajes te vale con dar al botón de edición. Con eso verás las distintas marcas que se pueden usar.
En cuanto al problema de los diccionarios, el error está en haber usado llaves en la definición. Si ejecutamos:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
#hashes con arreglos
my %rhletras = {
"latinas" => ["a","b","c"],
"griegas" => ["alfa","beta","gamma"]
};
#print "$rhletras{latinas}[0]";
use Data::Dumper;
print Dumper \%rhletras;
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
sale
Using text Syntax Highlighting
Reference found where even-sized list expected at ./kk.pl line 7 (#1)
(W misc) You gave a single reference where Perl was expecting a list
with an even number of elements (for assignment to a hash). This usually
means that you used the anon hash constructor when you meant to use
parens. In any case, a hash requires key/value pairs.
%hash = { one => 1, two => 2, }; # WRONG
%hash = [ qw/ an anon array / ]; # WRONG
%hash = ( one => 1, two => 2, ); # right
%hash = qw( one 1 two 2 ); # also fine
$VAR1 = {
'HASH(0x81ce1a8)' => undef
};
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Fíjate qué majo es el Perl que nos está avisando que estamos usando una referencia ({}) donde él esperaba encontrar una lista de valores de tamaño par, en la línea 7. Esto sale porque he usado el
warnings y el
diagnostics. Te dice luego qué es lo que tienes que hacer: usar paréntesis. Y además, te pone ejemplos.
Vamos a hacerle caso:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my %rhletras = (
latinas => [ 'a', 'b', 'c'],
griega => ['alfa', 'beta', 'gamma'],
);
use Data::Dumper;
print Dumper \%rhletras;
print $rhletras{latinas}[0], "\n";
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
sale:
Using text Syntax Highlighting
$VAR1 = {
'latinas' => [
'a',
'b',
'c'
],
'griega' => [
'alfa',
'beta',
'gamma'
]
};
a
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Ya tenemos un diccionario (
hash) de arreglos (
arrays). Y sale la 'a'.