Return to loaddump.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/loaddump.pl, revision 1.5

1.2       boris       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 (возможно, обработанного скриптом 
1.5     ! roma7      16: dump2dump.pl). Поле ProcessedBySearch не устанавливает (считается, 
        !            17: что если дамп изменился, то это поле установил или очистил 
        !            18: меняющий скрипт).
1.2       boris      19: 
                     20: 
                     21: =head1 AUTHOR
                     22: 
                     23: Роман Семизаров
                     24: 
                     25: 
                     26: =cut
                     27: 
1.3       boris      28:     use lib "../lib";
1.2       boris      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: 
1.4       boris      43: checktable('word2question','deletedata');
1.2       boris      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);