[Cascavel-pm] Escrever em ler arquivo e escrever

[spooker em spooker.com.br]

Bom, modo funcional ...

--- inicio ---
#!/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";
}

--- Fim ---

[]z!Sp0oKeR!


Quoting Leandro Costa <lscosta em uninet.com.br>:

> Ola Galera,
> 
> Nunca programei em perl e o meu primeiro desafio eh:
> Ler o arquivo A com o seguinte conteudo
> a1;a2;a3;a4;
> b1;b2;b3;b4;
> c1;c2;c3;c4;
> 
> escrever um arquivo b com a seguinte resultado:
> 
> 1a. campo: A1
> 2a. campo: A2
> 3a. campo: A3
> 4a. campo: A4
> .
> .
> .
> 1a. campo: c1
> 2a. campo: c2
> 3a. campo: c3 
> 4a. campo: c4
> 
> Onde as informacoes complementares seriam pegar do arquivo A.
> 
> Como fazer isso ???
> 
> 
> grato
> Leandro
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>