Annotation of db/prgsrc/eq/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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>