Return to loaddump.pl CVS log

Up to [Local Repository] / db / prgsrc

new ndict.koi

    1: #!/usr/local/bin/perl -w
    2: 
    3: =head1 NAME
    4: 
    5: loaddump.pl - скрипт для заливки 
    6: 
    7: =head1 SYNOPSIS
    8: 
    9: loaddump.pl dump
   10: 
   11: 
   12: =head1 DESCRIPTION
   13: 
   14: Удаляет таблицу word2question и заливает её из файла dump,
   15: созданного скриптом dumpRS.pl (возможно, обработанного скриптом 
   16: dump2dump.pl). Поле ProcessedBySearch не устанавливает (считается, 
   17: что если дамп изменился, то это поле установил или очистил 
   18: меняющий скрипт).
   19: 
   20: 
   21: =head1 AUTHOR
   22: 
   23: Роман Семизаров
   24: 
   25: 
   26: =cut
   27: 
   28:     use lib "../lib";
   29: use dbchgk;
   30: use chgkfiles;
   31: 
   32: if (!$ARGV[0])
   33: {
   34:    print "Usage: loaddump.pl dump\n";
   35:    exit;
   36: }
   37: 
   38: 
   39: open STDERR, ">errors";
   40: open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0];
   41: binmode(DUMP1);
   42: 
   43: checktable('word2question','deletedata');
   44: 
   45: print "getting and writing dump\n";
   46: 
   47: while (read(DUMP1, $w,4))
   48: {
   49:    print " $sch...\n" unless (++$sch%100);
   50:    read(DUMP1,$l,4);
   51:    read(DUMP1,$q,unpack("L",$l));
   52: #print "w=$w; q=$q\n";
   53:    updateword2question(unpack("L",$w),$q);
   54: }
   55: 
   56: close (DUMP1);