| 10 |
my %var = (percent => '%'); |
my %var = (percent => '%'); |
| 11 |
my $name; |
my $name; |
| 12 |
while (<>) { |
while (<>) { |
| 13 |
if (/^(.+?)(?:\[([^]]+)\])?:$/) { |
if (/^(.+?)(?:\[([^]]+)\])?:\s*$/) { |
| 14 |
$name = $1; |
$name = $1; |
| 15 |
$var{$name}->{type} = $2; |
$var{$name}->{type} = $2; |
| 16 |
} elsif (/^ (.*)/) { |
} elsif (/^\t(.*)/) { |
| 17 |
my $s = replace_percent ($1, \%var); |
my $s = $1; |
| 18 |
|
$s =~ tr/\x0D\x0A//d; |
| 19 |
|
$s = replace_percent ($s, \%var); |
| 20 |
if ($var{$name}->{type} eq 'list') { |
if ($var{$name}->{type} eq 'list') { |
| 21 |
push @{$var{$name}->{value}}, $s; |
push @{$var{$name}->{value}}, $s; |
| 22 |
} else { |
} else { |
Parent Directory
| 
Revision Log
| 
Patch