Line # Revision Author
1 6 dpavlin #!/usr/bin/perl -w
2
3 use strict;
4 83 dpavlin use parse_trivia;
5 6 dpavlin
6 10 dpavlin # score for words in title
7 my $title_rank = 3;
8
9 6 dpavlin open(my $t, "gzip -cd trivia.list.gz |") || die "can't open trivia.list.gz: $!";
10
11 83 dpavlin my $nr = 1;
12 6 dpavlin
13 83 dpavlin parse_trivia($t, sub {
14 6 dpavlin
15 83 dpavlin my $a = {@_};
16 21 dpavlin
17 83 dpavlin my $out = '@title=' . $a->{title} . "\n" .
18 '@size=' . length($a->{trivia}) . "\n";
19 $out .= "year=$a->{year}\n" if ($a->{year});
20 $out .= 'quote=' . join(",", $a->{qv}) . "\n" if ($a->{qv});
21 $out .= "\n$a->{trivia}\n" .
22 ("\t$a->{title}\n" x $title_rank) .
23 "\t" . join("\n\t", @{ $a->{qv} }) . "\n";
24 6 dpavlin
25 83 dpavlin open(my $t, "> trivia/$nr.est") || die "can't open $nr.est: $!";
26 17 dpavlin print $t $out;
27 6 dpavlin close($t);
28 83 dpavlin $nr++;
29 });