Return to dumpRS.pl CVS log

Up to [Local Repository] / db / prgsrc

Adding Roma 7's files

    1: #!/usr/local/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: 
   24: 
   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: