[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