trunk/data/convert.pl

#!/usr/bin/perl -w

use strict;
use parse_trivia;

# score for words in title
my $title_rank = 3;

open(my $t, "gzip -cd trivia.list.gz |") || die "can't open trivia.list.gz: $!";

my $nr = 1;

parse_trivia($t, sub {

                my $a = {@_};

                my $out = '@title=' . $a->{title} . "\n" .
                        '@size=' . length($a->{trivia}) . "\n";
                $out .= "year=$a->{year}\n" if ($a->{year});
                $out .= 'quote=' . join(",", $a->{qv}) . "\n" if ($a->{qv});
                $out .= "\n$a->{trivia}\n" .
                        ("\t$a->{title}\n" x $title_rank) .
                        "\t" . join("\n\t", @{ $a->{qv} }) . "\n";

                open(my $t, "> trivia/$nr.est") || die "can't open $nr.est: $!";
                print $t $out;
                close($t);
                $nr++;
});
1	dpavlin	6	#!/usr/bin/perl -w
2
3			use strict;
4	dpavlin	83	use parse_trivia;
5	dpavlin	6
6	dpavlin	10	# score for words in title
7			my $title_rank = 3;
8
9	dpavlin	6	open(my $t, "gzip -cd trivia.list.gz \|") \|\| die "can't open trivia.list.gz: $!";
10
11	dpavlin	83	my $nr = 1;
12	dpavlin	6
13	dpavlin	83	parse_trivia($t, sub {
14	dpavlin	6
15	dpavlin	83	my $a = {@_};
16	dpavlin	21
17	dpavlin	83	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	dpavlin	6
25	dpavlin	83	open(my $t, "> trivia/$nr.est") \|\| die "can't open $nr.est: $!";
26	dpavlin	17	print $t $out;
27	dpavlin	6	close($t);
28	dpavlin	83	$nr++;
29			});