Re^3: Inserting CSV Into DB w/o CSV Modules


laziness, impatience, and hubris
	PerlMonks

Re^3: Inserting CSV Into DB w/o CSV Modules

by tachyon (Chancellor)

on Nov 24, 2004 at 00:21 UTC ( [id://410029]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Inserting CSV Into DB w/o CSV Modules
in thread Inserting CSV Into DB w/o CSV Modules

while(my $line = <INFILE> ) {
    $csv->parse($line);
    my ( $state,$city,$location ) = $csv->fields();  # assumming these
+ are col1,col2,col3
    $sth->execute($state,$city,$location) or die "Couldn't execute que
+ry: $dbh->errstr";
}
[download]

This will be slow. It would be a lot faster to do:

my $sql =<<SQL;
LOAD DATA LOCAL INFILE '$infile' 
INTO TABLE tbl_name
FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '"'
SQL

$dbh->do($sql);
[download]

See LOAD DATA