[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