|
su.dbms.sql
- SU.DBMS.SQL ------------------------------------------------------------------
From : vilfred 2:5020/400 05 Apr 2001 21:13:57
To : Ilya Zvyagin
Subject : все, уже сдеалал, всем спасибо!
--------------------------------------------------------------------------------
IZ> Почему же так мало ?
В самый раз!
#!/usr/bin/perl -wT
$test=qq~#!/usr/bin/perl -wT
use strict;
use DBI;
use DBD::Pg;
my \$dbh = DBI->connect("dbi:Pg:dbname=mydb", "vilfred", "");
my \$sth = \$dbh->prepare("create table proba1(~;
for($i=1; $i<31; $i++){
$test.="n".$i." text, " if ($i<30);
$test.="n".$i." text" if ($i==30);
}
$test.=qq~)");
\$sth->execute();
\$dbh->disconnect;
print "All ok!\n"~;
open F, ">abc.pl";
print F $test;
close F;
chmod 0755, 'abs.pl';
print `abs.pl`;
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
