| Subject: | strawberry-perl-5.22.0.1-32bit can't open the file having CJK path. |
strawberry-perl-5.22.0.1-32bit
MINGW32_NT-6.2 ... 1.0.12(0.46/3/2) 2012-07-05 14:56 i686 unknown
#Code
use File::Find;
find(\&txt, 'e:/test');
sub txt {
next if -d $_;
next unless /\.txt$/i;
print $File::Find::name,"\n";
chdir($File::Find::dir);
open FILE, $_ or warn $!;
while(<FILE>) {print "OK","\n" and last;}
}
#Code End
Most of the txt files have CJK path. All files OK except one:
e:/test/神秘のオルゴール 50弁型オルフェウス アンレール 1'fのゆらぎ 「さくらんぼ」～「プラネタリウム」～「PEACH」他 オルゴール作品集/神秘のオルゴール - 神秘のオルゴール 50弁型オルフェウス アンレール 1_fのゆらぎ 「さくらんぼ」~「プラネタリウム」~「PEACH」他 オルゴール作品集.txt
No such file or directory at F:\polo\desktop\b.pl line 8.
I tried MSYS2 perl. It has no this problem.
#MSYS2 perl version info:
This is perl 5, version 22, subversion 0 (v5.22.0) built for x86_64-msys-thread-multi
MSYS_NT-6.3 ... 2.0.0(0.284/5/3) 2015-01-21 14:04 x86_64 Msys