Eden+++++++++++
Você é o cara ... :-)
O código para imprimir os dados eu só tive que fazer um ajuste porque tava
dando o erro: "Can't use string ("canal_4") as a HASH ref while "strict
refs" in use at ./hashes.pl line 46."
Para funcionar, deixei ele assim:
foreach my $chave (keys %$canais) {
print "$chave\n";
foreach my $coluna (keys %{$canais->{$chave}}) {
print "$coluna = $canais->{$chave}{$coluna}\n";
}
}
Na ordenação eu empaquei. O código não dá erro, mais não ordena. Alguma
dica? Pesquisei na net, mais não consegui mesmo.
[...]'s
Marcio
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
