[Cascavel-pm] Usando Hashes
Patty Silva
ptfzs em yahoo.com.br
Segunda Março 5 10:38:37 PST 2007
Ola Pessoal..
Vim pedir uma opniao de vcs..
Estou usando hash para modificar nomes de variaveis...
Leio em um arquivo texto, um cabeçalho so que as variavesi tem que ser diferentes..
fiz assim:
my %variaveis = (
"DATE" => "Data",
"Name" => "Nome",
"P0" => "Pre",
"state" => "Estado"
);
my $dir="/teste/dados";
opendir( DIR, $dir ) or die "Problemas ao abrir diretorio: $!";
while ( my $file = readdir(DIR) )
{
next if $file eq '.' or $file eq '..';
chdir($dir) || die "\n *** Erro ***";
open my $fh, "<", $file or die "Arquivo nao disponivel: $!";
$linha=<$fh>;
@fields= split(/\t/,$linha);
$cont=@fields;
for($i=0;$i<$cont;$i++)
{
if ( defined $variaveis{$fields[$i]} )
{
$teste = $variaveis{$fields[$i]};
}
}
}
Esse eh um jeito bom para fazer isso?
Obrigada
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070305/6b21caf9/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm