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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#!/usr/bin/env perl
#
# $FML: data2sgml.pl,v 1.2 2002/04/01 23:41:08 fukachan Exp $
#
use strict;
use Carp;
use vars qw(%list @ENTRY);
@ENTRY = ('system',
'release',
'perl.version',
'perl.path',
'comments'
);
my ($system, $release, $key, $value);
my $in_row = 0;
while (<>) {
if (/^\s*$/) {
if ( $list{ 'title' } ) {
table_head(\%list, $list{'title'} );
}
elsif (%list) {
show_row();
show_list(\%list);
}
undef %list;
}
if (/^\[(\S+)\]\s+(.*)/) {
($key, $value) = ($1, $2);
$list{ $key } .= $value;
}
}
print "\t</row>\n";
print " </tbody>\n";
print " </tgroup>\n";
print "</table>\n";
exit 0;
sub table_head
{
my ($list, $title) = @_;
my $cols = length(@ENTRY);
print "<table>\n";
print " <title> $title </title>\n\n";
print " <tgroup cols=$cols>\n";
print " <thead>\n";
print "\t<row>\n";
show_list( $list );
print "\t</row>\n";
print " </thead>\n\n";
print " <tbody>\n";
}
sub show_row
{
print "\t</row>\n" if $in_row;
print "\n\t<row>\n";
$in_row = 1;
}
sub show_list
{
my ($list) = @_;
for (@ENTRY) {
print "\t<entry>", $list->{ $_ }, "</entry>\n";
}
}
|
