ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sanyo Titaev                         2:5070/66.1    10 Nov 2000  21:56:57
 To : All
 Subject : ifmail aliases
 -------------------------------------------------------------------------------- 
 

 
     парни, у него формат какой?
     %file ifdbm.dir
 ifdbm.dir: GNU dbm 1.x or ndbm database, little endian
 
     делаю
 #!/usr/bin/perl
 use Fcntl;
 use NDBM_File;
 
 tie %hash, "NDBM_File", 'ifdbm.dir', O_RDONLY, 0
 or die "Can't open DB_File $db : $!\n";
 
 while (($key,$val) = each %hash)
 {
         $val=~ s/\0//;
         $key=~ s/\0//;
         if ( $key =~ /^l/)
         {
                 $key=~ /.(\w+)/;
                 print   "$1\n";
                 print "$key - $val\n";
         }
 }
 untie %hash;
 
 и получаю
 Can't open DB_File  : No such file or directory
 Sanyo
 
 --- GoldED/W32 3.0.1
  * Origin: -=The Bulls=-  mailto:tit@irk.ru (2:5070/66.1)
 
 

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