ppvol
(usa Ubuntu)
Enviado em 23/03/2010 - 12:04h
Olá,
não consigo entender o critério das chaves em %hash, executem o script abaixo e verão oque estou dizendo... a pergunta é:
1 - não deveria ser impresso na ordem que estabeleci, codBarras, codLoja, codFabr...qtde ?
2 - porque ele imprime fora da minha ordem ?
**********************************
#!/usr/bin/perl
use strict;
my $campos = {
codBarras => ['código de barras','codBarras','15','13'],
codLoja => ['código da loja','codLoja','25','20'],
codFabr => ['código do fabricante','codFabr','25','20'],
descricao => ['descrição','descricao','45','40'],
custo => ['valor de custo','custo','13','11'],
venda => ['valor de venda','venda','13','11'],
qtde => ['quantidade','qtde','13','11']
};
foreach my $k(keys %$campos){
print $k."\n";
}
*******************************
obrigado.