/[pgestraier]/trunk/data/convert.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/data/convert.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 16 by dpavlin, Thu May 26 00:16:48 2005 UTC revision 17 by dpavlin, Thu May 26 13:57:32 2005 UTC
# Line 9  open(my $t, "gzip -cd trivia.list.gz |") Line 9  open(my $t, "gzip -cd trivia.list.gz |")
9    
10    
11  my $header = 1;  my $header = 1;
12  my $title = '';  my ($title, $year) = ('',undef);
13  my $in = 0;  my $in = 0;
14  my $trivia = '';  my $trivia = '';
15  my @qv;  my @qv;
# Line 29  sub qv { Line 29  sub qv {
29  my $i = 0;  my $i = 0;
30    
31  while(<$t>) {  while(<$t>) {
32          if (/^=====+/) {          if ($header && /^=====+/) {
33                  $header = 0;                  $header = 0;
34                  next;                  next;
35          }          }
# Line 37  while(<$t>) { Line 37  while(<$t>) {
37    
38          if (/^#\s+(.*)\s*$/) {          if (/^#\s+(.*)\s*$/) {
39                  $title = $1;                  $title = $1;
40                  print "# title=$title\n";                  if ($title =~ m#\s*\((\d+)\)\s*$#) {
41                            $year = $1;
42                    } else {
43                            $year = undef;
44                    }
45    
46                    print "# $title ", ( $year ? "[$year]" : "" ), "\n";
47                  next;                  next;
48    
49          } elsif (/^-\s(.*)\s*$/) {          } elsif (/^-\s(.*)\s*$/) {
50                  $in = 1;                  $in = 1;
51                  $trivia = "$1\n";                  $trivia = "$1\n";
# Line 49  while(<$t>) { Line 56  while(<$t>) {
56          } elsif (/^$/ && $in) {          } elsif (/^$/ && $in) {
57                  $i++;                  $i++;
58                  print "$i ";                  print "$i ";
59                    my $out = '@title=' . $title . "\n" .
60                            '@size=' . length($trivia) . "\n";
61                    $out .= "year=$year\n" if ($year);
62                    $out .= 'quote=' . join(",", @qv) . "\n" if (@qv);
63                    $out .= "\n$trivia\n" .
64                            ("\t$title\n" x $title_rank) .
65                            "\t" . join("\n\t", @qv) . "\n";
66    
67                  open(my $t, "> trivia/$i.est") || die "can't open $i.est: $!";                  open(my $t, "> trivia/$i.est") || die "can't open $i.est: $!";
68                  print $t '@title=', $title, "\n",                  print $t $out;
                         '@size=', length($trivia), "\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";  
69                  close($t);                  close($t);
70                  $trivia = '';                  $trivia = '';
71                  @qv = ();                  @qv = ();
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26