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>