blob: ba34d3b796c4ebf169f3e221cc9a179f4662d443 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/env perl
#-*- perl -*-
#
# $FML$
#
use strict;
use Carp;
use vars qw($debug $buf $in_q $in_a $question);
LINE:
while ($buf = <>) {
if ($buf =~ /<question>/) { $in_q = 1; next LINE;}
if ($buf =~ /<\/question>/) { $in_q = 0; next LINE;}
if ($buf =~ /<answer>/) { $in_a = 1; next LINE;}
if ($buf =~ /<\/answer>/) { $in_a = 0; undef $question; next LINE;}
if ($buf =~ /^\s*\</) {
next LINE;
}
if ($in_q) {
$question .= $buf;
next LINE;
}
if ($in_a) {
if ($buf =~ /̤����/) {
print "[TODO] ";
print $question;
}
}
}
exit 0;
|
