|
su.dbms.sql
- SU.DBMS.SQL ------------------------------------------------------------------
From : Drema* 2:5020/400 31 Mar 2001 17:19:00
To : vilfred
Subject : RE: не, совсем не хочет :(
--------------------------------------------------------------------------------
>From: news [mailto:news@host.talk.ru]On Behalf Of vilfred
>#!/usr/bin/perl -wT
>#print "content-type: text/html\n\n";
>use DBI;
>use DBD::Pg;
>$/="\x19";
>open(FR, "<aaa.txt");
>$i=0;
>while($line=<FR>){ chomp($line); @tpls = split(/\x18/, $line);
>$dbh = DBI->connect("dbi:Pg:dbname=mydb", "vilfred", "");
>$dbh->{LongReadLen} = 50000;
>$sth = $dbh->prepare("INSERT INTO test VALUES ('$tpls[8]')");
>$sth->execute();
>print $i++,"\t";
>$dbh->disconnect;
>}
Интересно, а зачем выполнять коннект для каждой строчки?
Может лучше так:
#!/usr/bin/perl -wT
print "content-type: text/html\n\n";
use DBI;
use DBD::Pg;
$/="\x19";
open(FR, "<aaa.txt");
$dbh = DBI->connect("dbi:Pg:dbname=mydb", "vilfred", "");
$dbh->{LongReadLen} = 50000;
$i=0;
while($line=<FR>){ chomp($line); @tpls = split(/\x18/, $line);
$sth = $dbh->prepare("INSERT INTO test VALUES ('$tpls[8]')");
$sth->execute();
print $i++,"\t";
}
$dbh->disconnect;
1;
?
--
Drema. mailto:dremkin@avtlg.ru
http://i.am/dremkin
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
RE: не, совсем не хочет :( 