[Cascavel-pm] Escrever em ler arquivo e escrever

Nelson Ferraz nferraz em phperl.com
Segunda Setembro 1 18:16:16 CDT 2003


> #!/usr/bin/perl
>  
> open(A,"a.txt");
>  
> while ($linha=<A>){
>   ($a,$b,$c,$d)=split(";",$linha);
>   open(B,">>b.txt");
>   print B "Campo 1 : $a\n";
>   print B "Campo 2 : $b\n";
>   print B "Campo 3 : $c\n";
>   print B "Campo 4 : $d\n\n";
> }

Voce pode eliminar a primeira linha (open (A, a.txt)) e ler as
informacoes diretamente de <>.

while ($linha = <>) {
 ...
}

Ao passar um nome de arquivo, ele sera usado automaticamente.

[]s

Nelson




Mais detalhes sobre a lista de discussão Cascavel-pm