Return to dumpRS.pl CVS log

Up to [Local Repository] / db / prgsrc

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

1.2       boris       1: #!/usr/bin/perl -w
                      2: 
                      3: =head1 NAME
                      4: 
                      5: dumpRS.pl - скрипт для создания дампа таблицы word2question.
                      6: 
                      7: =head1 SYNOPSIS
                      8: 
                      9: dumpRS.pl output
                     10: 
                     11: =head1 DESCRIPTION
                     12: 
                     13: Создаёт дамп таблицы  word2question. Формат записи:
                     14: идентификатор слова (2 байта), длина поля questions (4 байта), 
                     15: содержимое поля questions.
                     16: 
                     17: =head1 AUTHOR
                     18: 
                     19: Роман Семизаров
                     20: 
                     21: 
                     22: =cut
                     23: 
1.3     ! boris      24:     use lib "../lib";
1.2       boris      25: use dbchgk;
                     26: 
                     27: 
                     28: my $output=shift;
                     29: 
                     30: if (!$output) 
                     31: { 
                     32:   print "Usage: dumpRS.pl output\n";
                     33:   exit
                     34: }
                     35: 
                     36: open OUT, ">$output" or die "Can not open $output";
                     37: binmode(OUT);
                     38: open STDERR, ">errors";
                     39: getword2question;
                     40: 
                     41: while (($word,$quest)=getrow,$word)
                     42: {  
                     43:    print "$sch...\n" unless (++$sch%100);
                     44:    print OUT pack("L",$word);
                     45:    print OUT pack("L", length $quest);
                     46:    print OUT $quest;
                     47: }
                     48: 
                     49: