blob: 5bac22fca4d88c68c8e5a238b8176dabeaaf0403 (
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/env perl
#
# $FML: conv2sgml.pl,v 1.1.1.1 2004/04/02 04:39:48 fukachan Exp $
#
use strict;
use Carp;
my $i = 0;
my $key = '';
my $value = '';
my $table = {};
while (<>) {
if (/^\s*$/o || /^\#/) {
undef $key;
next;
}
if (/^([Q48]):\s*(.*)/) {
($key, $value) = ($1, $2);
$i++ if $key eq 'Q';
$table->{ $i }->{ $key } = $value;
next;
}
if (/^\s+(.*)/) {
$table->{ $i }->{ $key } .= "\n";
$table->{ $i }->{ $key } .= $1;
}
}
print "\n<!-- ����!!! ��ư�������줿�ե����롢��ư�Խ��ػ� !!! -->\n\n";
for my $i (sort {$a <=> $b} keys %$table) {
print "<!-- $i -->\n";
print "<row>\n";
print "\n<entry>\n";
print $table->{ $i }->{ Q };
print "\n</entry>\n";
print "\n<entry>\n";
print $table->{ $i }->{ 4 };
print "\n</entry>\n";
print "\n<entry>\n";
print $table->{ $i }->{ 8 };
print "\n</entry>\n";
print "\n</row>\n";
print "\n";
}
exit 0;
|
