ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Kuvshinov                    2:5020/400     08 Nov 2000  08:39:17
 To : Dmitriy Kuvshinov
 Subject : а теперь наверное понял :))
 -------------------------------------------------------------------------------- 
 

 #!/usr/bin/perl -wT
 
 use DBI;
 
 my $dbh = BI->connect("DBI:XBase:/usr/bin/devel") or die $DBI::errstr;
 my $sth = $dbh->prepare("select * from FILE") or die $dbh->errstr();
 
 $sth->execute() or die $sth->errstr();
 
 @data = $sth->fetchrow_array();
 
 foreach $line(@data){
   push(@new, perecoder($line));
 }
 die $sth->errstr if $sth->err;
 
 $dbh->disconnect;
 
 print join("\n",@new),"\n";
 
 sub perecoder {
     my $dos=shift;
     $dos=~ tr/\x80-\xEF/\xC0-\xFF/;
 return $dos;
 }
 
 мнды, все рабооотает :) 
 
 Млин. Осталось научицЦца создавать базы данных хотяб примитиввные, ну это уж 
 не сложнааа... ох-хо...
 
 Дима
 
 урыыы...!!!
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    чего-то я не понял наверное...   Dmitriy Kuvshinov   08 Nov 2000 07:46:21   а теперь наверное понял :))   Dmitriy Kuvshinov   08 Nov 2000 08:39:17   чего-то я не понял наверное...   Oleg Voinkov   08 Nov 2000 11:26:04