ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Dmitriy Dubovskoy                    2:5061/103     22 Jul 2001  15:29:42
 To : All
 Subject : Mandrake RE2001
 -------------------------------------------------------------------------------- 
 

 
 Кто пробовал запускать пеловые скрипты с db3? У меня пишет libdb (3.2.9) и
 db.h(3.2.3) являются не совместимыми и вываливается, хотя все из рпмок 3.2.9.
 
 Вот скриптик:
 ДДДД- Hачало view.pl ДДДД-
 #!/usr/bin/perl
 
 $config="/fido/qico/sln_frp.conf";
 
 ##############################################################################
 
 use DB_File;
 
 open(CFG, "< $config") || die $!;
 $limdb=undef;
 while($_=<CFG>){
 $limdb=$1 if /^db_limit[\t\s]+(.+)$/i;
 }
 close CFG;
 die "Config error" unless $limdb;
 
 dbmopen(%lim,$limdb,0600) || die $!;
 
 print "System  Limit\n";
 print "---------------------------\n";
 foreach $id (map{$_->[0]} sort{$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] ||
 $a->[3] <=> $b->[3] || $a->[4] <=> $b->[4]} map{[$_, split m![:/.]!]} keys
 %lim){
  @_=split /\0/,$lim{$id};
  print "$id\t$_[1]\n";
 }
 
 dbmclose %lim;
 ДДДД- Конец view.pl ДДДД-
                                                         С гор. пртм, Dmitriy.
 ... Да у тя такой склад ума, что хоть сторожа нанимай     ;)
 --- -=MG=-  http://i.am/drsoft = ICQ:17381620 = Pg:619619#954XX
  * Origin:  e-mail: DrSoft@ThePentagon.com (FidoNet 2:5061/103)
 
 

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