version 1.1, 2001/10/31 03:00:10
|
version 1.4, 2001/11/20 21:33:36
|
Line 1
|
Line 1
|
|
#!/usr/local/bin/perl -w |
#!/usr/local/bin/perl -w
|
|
|
=head1 NAME |
=head1 NAME
|
|
|
loaddump.pl - скрипт для заливки |
loaddump.pl - скрипт для заливки
|
|
|
=head1 SYNOPSIS |
=head1 SYNOPSIS
|
|
|
loaddump.pl dump |
loaddump.pl dump
|
|
|
|
|
=head1 DESCRIPTION |
=head1 DESCRIPTION
|
|
|
Удаляет таблицу word2question и заливает её из файла dump, |
Удаляет таблицу word2question и заливает её из файла dump,
|
созданного скриптом dumpRS.pl (возможно, обработанного скриптом |
созданного скриптом dumpRS.pl (возможно, обработанного скриптом
|
dump2dump.pl) |
dump2dump.pl)
|
|
|
|
|
=head1 AUTHOR |
=head1 AUTHOR
|
|
|
Роман Семизаров |
Роман Семизаров
|
|
|
|
|
=cut |
=cut
|
|
|
use lib "../lib"; |
|
use dbchgk; |
use dbchgk;
|
use chgkfiles; |
use chgkfiles;
|
|
|
if (!$ARGV[0]) |
if (!$ARGV[0])
|
{ |
{
|
print "Usage: loaddump.pl dump\n"; |
print "Usage: loaddump.pl dump\n";
|
exit; |
exit;
|
} |
}
|
|
|
|
|
open STDERR, ">errors"; |
open STDERR, ">errors";
|
open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0]; |
open (DUMP1, $ARGV[0]) or die "0: Can not open ". $ARGV[0];
|
binmode(DUMP1); |
binmode(DUMP1);
|
|
|
checktable('word2question','deletedata'); |
checktable('word2question','delete');
|
|
|
print "getting and writing dump\n"; |
print "getting and writing dump\n";
|
|
|
while (read(DUMP1, $w,4)) |
while (read(DUMP1, $w,4))
|
{ |
{
|
print " $sch...\n" unless (++$sch%100); |
print " $sch...\n" unless (++$sch%100);
|
read(DUMP1,$l,4); |
read(DUMP1,$l,4);
|
read(DUMP1,$q,unpack("L",$l)); |
read(DUMP1,$q,unpack("L",$l));
|
#print "w=$w; q=$q\n"; |
#print "w=$w; q=$q\n";
|
updateword2question(unpack("L",$w),$q); |
updateword2question(unpack("L",$w),$q);
|
} |
}
|
|
|
close (DUMP1); |
close (DUMP1);
|
|