[Cascavel-pm] leitura de arquivo
Nilson Santos Figueiredo Junior
acid06 em gmail.com
Quarta Setembro 10 10:47:28 PDT 2008
2008/9/10 Elvio Barbalho <elvio.barbalho em gmail.com>:
> while(<ARQ_ENT>)
> {
> @array = split(/;/,$_);
> print ARQ_SAIDA join(";", em array);
> }
A abordagem que você está utilizando não está errada. Contudo, sugiro
que modifique seu código para se adequar às boas práticas de
programação. Um exemplo seria:
use warnings;
use strict;
open my $input_fh, '<', 'arquivo_de_entrada' or die "can't open
input file: $!";
open my $output_fh, '>', 'arquivo_de_saida' or die "can't open
output file: $!";
while (<$input_fh>) {
my @fields = split /;/, $_;
print $output_fh join ';', @fields;
}
close $output_fh;
close $input_fh;
-Nilson Santos F. Jr.
Mais detalhes sobre a lista de discussão Cascavel-pm