[Cascavel-pm] Duvida Text:CSV

Nelson Ferraz nferraz em gmail.com
Segunda Setembro 3 06:16:58 PDT 2007


> open CSV, $file or die $!;
> my @csv_content = <CSV>;
> close CSV;my $csv = Text::CSV->new();

Por que você coloca todo o arquivo na memória, de uma vez? Não seria  
melhor ler e processar uma linha por vez?

> values = $csv->fields();
> $status = $csv->combine(@values);
> $line = $csv->string();

Por que você não faz um join?

my $fields = join(',', @fields);
my $values = join(',', @values);

> $statement = "INSERT INTO $table($field_line) VALUES($line);";
> print $statement."\n";
> $sth = $dbh->prepare( $statement );
> $sth->execute() or die "$! $DBI::errstr";

E, mais uma vez, por que você não usa strict?


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