Repository List / pgestraier / trunk / data / convert.pl @ HEAD

#!/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++;
});