|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitriy Kuvshinov 2:5020/400 16 Dec 2000 17:10:09
To : All
Subject : что бы это значило? DBD, DBI еtс...
--------------------------------------------------------------------------------
#!/usr/bin/perl
print "content-type: text/html\n\n";
use DBI;
#print "OK!";
my $dbh=DBI->connect('DBI:mysql:c:\InetPub\wwwroot\cgi-bin\base') or die
$DBI::errstr;
print "OK!";
my $table_date = $dbh->prepare("select * from pdffile");
$table_date->execute() or die $table_date->errstr();
my @fields =@{$table_date -> NAME};
my @types=@{$table_date -> TYPE};
my @not_null = @{$table_date -> is_not_null};
my @lenght = @{$table_date -> lenght};
$dbh->disconnect;
print join "<br>", @fields;
print join "<br>", @types;
print join "<br>", @not_null;
print join "<br>", @lenght;
print "OK!"
сижу под виндами, файл pdffile.pdf лежит в той-же дирректории что и сам
скрипт.
MsSQL 7.0 модули все дописываю прямо в c:\Perl\lib в виде пм файлв...
вопрос такой, почему ничего не возвращает скрипт. Вообще ничего. Специально
принты написаны все. А смысл - хочу вывести таблицу, точнее все её колонки и
все
её столбцы.
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
