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