|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 05 Apr 2001 21:20:02
To : All
Subject : может это можно как-то по другому сделать?
--------------------------------------------------------------------------------
надо было создать базу с произвольным числом полей,
короче может есть что-то получше, а то непонятно... хотя что надо оно делает.
Смысл кода, скрипт создает и исполняет скрипт, в котором есть нужное число
полей.
#!/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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
