Return to loaddump.pl CVS log

Up to [Local Repository] / db / prgsrc

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

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 (возможно, обработанного скриптом 
                     16: dump2dump.pl)
                     17: 
                     18: 
                     19: =head1 AUTHOR
                     20: 
                     21: Роман Семизаров
                     22: 
                     23: 
                     24: =cut
                     25: 
1.3     ! boris      26:     use lib "../lib";
1.2       boris      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','delete');
                     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);