44 lines
641 B
Plaintext
44 lines
641 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
$in_group_def = 0;
|
||
|
|
$group_name;
|
||
|
|
$group_text;
|
||
|
|
$group_key;
|
||
|
|
%group_names;
|
||
|
|
%group_text;
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
next if /^\;/;
|
||
|
|
|
||
|
|
if (/^%/) {
|
||
|
|
|
||
|
|
if ($in_group_def) {
|
||
|
|
chop $group_text;
|
||
|
|
$group_names{$group_key} = $group_name;
|
||
|
|
$group_text{$group_key} = $group_text;
|
||
|
|
}
|
||
|
|
|
||
|
|
s/^%//;
|
||
|
|
chop;
|
||
|
|
($group_key,$group_name) = split (/\s+/, $_, 2);
|
||
|
|
$group_text = "";
|
||
|
|
$in_group_def = 1;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($in_group_def) {
|
||
|
|
next if (/^[ \t]+$/);
|
||
|
|
$group_text .= $_;
|
||
|
|
$group_text;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach $k (keys %group_names) {
|
||
|
|
print "GROUP: ", $k, " ", $group_names{$k}, "\n\t", $group_text{$k}, "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
exit 0;
|