Return to dumpequalto.pl CVS log

Up to [Local Repository] / db / prgsrc

Dobavil findequal.pl i dumpequalto.pl

    1: #!/usr/local/bin/perl 
    2: 
    3: =head1 NAME
    4: 
    5: dumpequalto.pl - a script for creation of the list of the equal questions
    6: 
    7: =head1 SYNOPSIS
    8: 
    9: dumpequalto.pl 
   10: 
   11: =head1 DESCRIPTION
   12: 
   13: This script will dump the table EQUALTO 
   14:  to  $equals.
   15: 
   16: =head1 AUTHOR
   17: 
   18: Roman Semizarov
   19: 
   20: =cut
   21: 
   22: use dbchgk;
   23: use chgkfiles;
   24: 
   25: output_files(EQUALS);
   26: 
   27: my %h=getequalto;
   28: my $sch=0;
   29: 
   30: foreach (keys %h)
   31: { 
   32:    if (++$sch %100==0){print "$sch...\n"}
   33:    my $first=in2out($_);
   34:    my $second=in2out($h{$_});
   35:    mywrite (EQUALS, first => $first, second => $second);
   36: }
   37: