[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