Return to loaddump.pl CVS log

Up to [Local Repository] / db / prgsrc

corrected bug in loaddump

    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)
   17: 
   18: 
   19: =head1 AUTHOR
   20: 
   21: Роман Семизаров
   22: 
   23: 
   24: =cut
   25: 
   26:     use lib "../lib";
   27: use dbchgk;
   28: use chgkfiles;
   29: 
   30: if (!$ARGV[0])
   31: {
   32:    print "Usage: loaddump.pl dump\n";
   33:    exit;
   34: }
   35: 
   36: 
   37: open STDERR, ">errors";
   38: open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0];
   39: binmode(DUMP1);
   40: 
   41: checktable('word2question','deletedata');
   42: 
   43: print "getting and writing dump\n";
   44: 
   45: while (read(DUMP1, $w,4))
   46: {
   47:    print " $sch...\n" unless (++$sch%100);
   48:    read(DUMP1,$l,4);
   49:    read(DUMP1,$q,unpack("L",$l));
   50: #print "w=$w; q=$q\n";
   51:    updateword2question(unpack("L",$w),$q);
   52: }
   53: 
   54: close (DUMP1);