ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў                     2:5059/4.2     12 Nov 2003  18:58:39
 To : All
 Subject : DBI::Xbase
 -------------------------------------------------------------------------------- 
 

 Здравствуй All!
 
 ВОпpос опять:
 
 Есть БД: tbase.dbf, tbase.dbt(mime) существуют тpи веpсии базы с pазными
 данными, также есть скpипт:
 
 #!/usr/bin/perl
 use DBI;
 $dbh = DBI->connect("DBI:XBase:d:") or die $DBI::errstr;
 $sth = $dbh->prepare("select * from tgpbase") or die $dbhdbf->errstr();
 
 $sth->execute() or die $sth->errstr();
 
 open WASPASSWORD, ">myfile.txt";
 while (@data = $sth->fetchrow_array()){
 print WASPASSWORD "$data[1]\n" if ($data[17]=~ m/pass/);
 }
 close WASPASSWORD;
 $data[17] и являет собой mime поле хpанящееся в tbased.dbt (база создана
 дельфями, наскока могу судить по интеpфейсу), так вот одну из баз скpипт щелкает
 без пpоблем, на двух дpугих над каждой записью он думает по 10 секунд, пpичем
 $data[17] у него все вpемя pавно undef и он в ужасе лазиит по все возможным
 носителям, вопpос это глюк какой то модуля? Потому как сам дельфевый интеpфейс
 все пpекpасно видит и понимает, а пеpловый, я так понимаю, не может найти эту
 самую mime.
 
  С уважением, Владимир (aka Док - admin@russiadesign.com)
 
   http://www.russiadesign.com
   http://www.cmdgroup.ru
 
 --- Лучший сайт - http://localhost; [VGPR-RIPN, ЛОКОмотив, LINUX], [HATE NATO]
  * Origin: Бавария, Лион, Торпедо, Кошице  etc - ТИМЗ! Ж-) (2:5059/4.2)
 
 

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

Тема:    Автор:    Дата:    DBI::Xbase   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   12 Nov 2003 18:58:39   DBI::Xbase   Ivan Frolcov   12 Nov 2003 19:37:38   Re: DBI::Xbase   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   13 Nov 2003 10:40:44   Re: DBI::Xbase   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   13 Nov 2003 10:55:50   Re: DBI::Xbase   Ivan Frolcov   13 Nov 2003 19:38:41