| 39 |
warn "$data_file_name...\n"; |
warn "$data_file_name...\n"; |
| 40 |
open my $data_file, '<:utf8', $data_file_name |
open my $data_file, '<:utf8', $data_file_name |
| 41 |
or die "$0: $data_file_name: $!"; |
or die "$0: $data_file_name: $!"; |
| 42 |
for (split /\n\n+(?=#)/, scalar <$data_file>) { |
my $data = <$data_file>; |
| 43 |
|
$data =~ s/\x0D?\x0A/\n/g; |
| 44 |
|
for (split /\n\n+(?=#)/, $data) { |
| 45 |
my ($en, $ja) = split /\n#ja\n/, $_; |
my ($en, $ja) = split /\n#ja\n/, $_; |
| 46 |
if ($en =~ s/^#en\n//) { |
if ($en =~ s/^#en\n//) { |
| 47 |
$data{normalize ($en)} = $ja; |
$data{normalize ($en)} = $ja; |
Parent Directory
| 
Revision Log
| 
Patch