[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