Return to dumpequalto.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/dumpequalto.pl, revision 1.1

1.1     ! roma7       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: