Return to dumpequalto.pl CVS log

Up to [Local Repository] / db / prgsrc

Dobavil findequal.pl i dumpequalto.pl

#!/usr/local/bin/perl 

=head1 NAME

dumpequalto.pl - a script for creation of the list of the equal questions

=head1 SYNOPSIS

dumpequalto.pl 

=head1 DESCRIPTION

This script will dump the table EQUALTO 
 to  $equals.

=head1 AUTHOR

Roman Semizarov

=cut

use dbchgk;
use chgkfiles;

output_files(EQUALS);

my %h=getequalto;
my $sch=0;

foreach (keys %h)
{ 
   if (++$sch %100==0){print "$sch...\n"}
   my $first=in2out($_);
   my $second=in2out($h{$_});
   mywrite (EQUALS, first => $first, second => $second);
}