ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitriy Kuvshinov                    2:5020/400     08 Nov 2000  09:01:26
 To : All
 Subject : риторический вопрос
 -------------------------------------------------------------------------------- 
 

 Привет всем!!!
 
 Скажите, если у меня есть dbf файл с неизвестной разметкой, сколько столбцов, 
 сколько строк, как мне это узнать все? Все под юникс, и пользуюсь такой
 прогой, но 
 она мне что-то очень маленькое выдает...
 #!/usr/bin/perl -wТ
 
 use DBI;
 
 my $dbh = DBI->connect("DBI:XBase:/usr/internet/dbf/")
 or die $DBI::errstr;
 my $sth = $dbh->prepare("select * from PDFFILE")
 or die $dbh->errstr();
 
 $sth->execute() or die $sth->errstr();
 
 @data = $sth->fetchrow_array();
 
 foreach $line(@data){
   push(@new, dos2win($line));
 }
  die $sth->errstr if $sth->err;
 
  $dbh->disconnect;
 
 print join("\n",@new),"\n";
 
 sub dos2win {
     my $dos=shift;
     $dos=~ tr/\x80-\xEF/\xC0-\xFF/;
 return $dos;
 }
 
 Что тут нужно написать и как это сделать? Чтобы вывела хотя-бы всю таблицу, 
 которая 189 килобайт весит. Сколько строк и столбцов в ней - не знаю, может
 метод 
 какой ннить есть, чтоб сразу все сразу узнать? Использую Postgree...
 Еще вопрос, а как воспользоваться встроенным в базу данных поисковиком?
 
 Дима
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    риторический вопрос   Dmitriy Kuvshinov   08 Nov 2000 09:01:26   риторический вопрос   Vadim Solomko   11 Nov 2000 22:13:35