Using perl Syntax Highlighting
foreach my $msgnum ( sort { $a <=> $b } keys %$msgnums) {
$head = $pop->top($msgnum); # Leemos la cabecera como una ref. a un array
$head = join('', @$head); # Unimos todas las líneas del array
$head = escapeHTML($head); # Y las escapamos
$head =~ s/\n/<br>/g; # Convertimos los retorno de carro en '<br>'
# Pintamos una fila de tabla compuesta de 2 celdas
print Tr([ td([ $msgnum, $head ]) ]);
}
$head = $pop->top($msgnum); # Leemos la cabecera como una ref. a un array
$head = join('', @$head); # Unimos todas las líneas del array
$head = escapeHTML($head); # Y las escapamos
$head =~ s/\n/<br>/g; # Convertimos los retorno de carro en '<br>'
# Pintamos una fila de tabla compuesta de 2 celdas
print Tr([ td([ $msgnum, $head ]) ]);
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
No se dónde quedó el mensaje, pero creo que sí lo muestra 
