| 1 |
use strict; |
use strict; |
| 2 |
|
use utf8; |
| 3 |
|
|
| 4 |
my $data_dir_name = q[data/]; |
my $data_dir_name = q[data/]; |
| 5 |
my $data2_dir_name = q[data2/]; |
my $data2_dir_name = q[data2/]; |
| 234 |
return map {tr/\x0D\x0A//d; $_} <$file>; |
return map {tr/\x0D\x0A//d; $_} <$file>; |
| 235 |
} # get_modified_hashes |
} # get_modified_hashes |
| 236 |
|
|
| 237 |
|
sub normalize_width ($) { |
| 238 |
|
my $s = shift; |
| 239 |
|
$s =~ tr{\x{3000}\x{FF01}-\x{FF5E}\x{FF61}-\x{FF9F}\x{FFE0}-\x{FFE6}} |
| 240 |
|
{ !-~。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン\x{3099}\x{309A}\xA2\xA3\xAC\xAF\xA6\xA5\x{20A9}}; |
| 241 |
|
return $s; |
| 242 |
|
} # normalize_width |
| 243 |
|
|
| 244 |
sub htescape ($) { |
sub htescape ($) { |
| 245 |
my $s = shift; |
my $s = shift; |
| 246 |
$s =~ s/&/&/g; |
$s =~ s/&/&/g; |
Parent Directory
| 
Revision Log
| 
Patch