trunk/data/convert.pl

#!/usr/bin/perl -w

use strict;

# 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 $header = 1;
my $title = '';
my $in = 0;
my $trivia = '';
my @qv;

sub qv {
        my $t = shift || return;

        sub qv_print {
                my $v = shift || return '';
                $v =~ s/(.*)\s*,\s*(.+)/$2 $1/g;
                push @qv, $v;
                return '';
        }
        $t =~ s#([_'])([^\1]+?)\1 \(qv\)#qv_print($2)#ge;
}

my $i = 0;

while(<$t>) {
        if (/^=====+/) {
                $header = 0;
                next;
        }
        next if $header;

        if (/^#\s+(.*)\s*$/) {
                $title = $1;
                print "# title=$title\n";
                next;
        } elsif (/^-\s(.*)\s*$/) {
                $in = 1;
                $trivia = "$1\n";
                qv($1);
        } elsif (/^\s\s(.*)\s*$/) {
                $trivia .= "$1\n";
                qv($1);
        } elsif (/^$/ && $in) {
                $i++;
                print "$i ";
                open(my $t, "> trivia/$i.est") || die "can't open $i.est: $!";
                print $t '@title='.$title."\n";
                print $t 'qv='.join(",", @qv),"\n" if (@qv);
                print $t "\n$trivia\n",
                        ("\t$title\n" x $title_rank),
                        "\t", join("\n\t", @qv), "\n";
                close($t);
                $trivia = '';
                @qv = ();
                $in = 0;
        } else {
                print "#$_\n";
        }

}

1	#!/usr/bin/perl -w
2
3	use strict;
4
5	# score for words in title
6	my $title_rank = 3;
7
8	open(my $t, "gzip -cd trivia.list.gz \|") \|\| die "can't open trivia.list.gz: $!";
9
10
11	my $header = 1;
12	my $title = '';
13	my $in = 0;
14	my $trivia = '';
15	my @qv;
16
17	sub qv {
18	my $t = shift \|\| return;
19
20	sub qv_print {
21	my $v = shift \|\| return '';
22	$v =~ s/(.)\s,\s*(.+)/$2 $1/g;
23	push @qv, $v;
24	return '';
25	}
26	$t =~ s#([_'])([^\1]+?)\1 \(qv\)#qv_print($2)#ge;
27	}
28
29	my $i = 0;
30
31	while(<$t>) {
32	if (/^=====+/) {
33	$header = 0;
34	next;
35	}
36	next if $header;
37
38	if (/^#\s+(.)\s$/) {
39	$title = $1;
40	print "# title=$title\n";
41	next;
42	} elsif (/^-\s(.)\s$/) {
43	$in = 1;
44	$trivia = "$1\n";
45	qv($1);
46	} elsif (/^\s\s(.)\s$/) {
47	$trivia .= "$1\n";
48	qv($1);
49	} elsif (/^$/ && $in) {
50	$i++;
51	print "$i ";
52	open(my $t, "> trivia/$i.est") \|\| die "can't open $i.est: $!";
53	print $t '@title='.$title."\n";
54	print $t 'qv='.join(",", @qv),"\n" if (@qv);
55	print $t "\n$trivia\n",
56	("\t$title\n" x $title_rank),
57	"\t", join("\n\t", @qv), "\n";
58	close($t);
59	$trivia = '';
60	@qv = ();
61	$in = 0;
62	} else {
63	print "#$_\n";
64	}
65
66	}
67