Ola Pessoal..<br>Vim pedir uma opniao de vcs..<br>Estou usando hash para modificar nomes de variaveis...<br>Leio em um arquivo texto, um cabeçalho so que as variavesi tem que ser diferentes..<br>fiz assim:<br><br>my %variaveis = (<br>&nbsp;&nbsp;&nbsp; "DATE"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; "Data",<br>&nbsp;&nbsp;&nbsp; "Name"&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; "Nome",<br>&nbsp;&nbsp;&nbsp; "P0"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; "Pre",<br>&nbsp;&nbsp;&nbsp; "state"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; "Estado"<br>&nbsp;&nbsp;&nbsp; <br>);<br><br><br><br>my $dir="/teste/dados";<br><br><br>opendir( DIR, $dir ) or die "Problemas ao abrir diretorio: $!";<br><br>while ( my $file = readdir(DIR) )<br>{<br>&nbsp;&nbsp;&nbsp; next if $file eq '.' or $file eq '..';<br><br>&nbsp;&nbsp;&nbsp; chdir($dir) || die "\n *** Erro&nbsp; ***";<br><br>&nbsp;&nbsp;&nbsp; open my $fh, "&lt;", $file or die "Arquivo nao disponivel:
 $!";<br>&nbsp;&nbsp;  <br>&nbsp;&nbsp;&nbsp; $linha=&lt;$fh&gt;;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; @fields= split(/\t/,$linha);&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; $cont=@fields;<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; for($i=0;$i&lt;$cont;$i++)<br>&nbsp;&nbsp;&nbsp; {<br><br>&nbsp;&nbsp;&nbsp; if ( defined $variaveis{$fields[$i]} ) <br>&nbsp;&nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $teste = $variaveis{$fields[$i]};<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;  <br>&nbsp;&nbsp;&nbsp; }<br><br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; <br>}<br><br><br>Esse eh um jeito bom para fazer isso?<br><br><br>Obrigada<br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/