# encoding: GBK
# This file is encoded in GBK.
die "This file is not encoded in GBK.\n" if q{ } ne "\x82\xa0";
use strict;
# use warnings;
use Char;
print "1..1\n";
my $__FILE__ = __FILE__;
my $chcp = '';
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/oxms) {
$chcp = `chcp`;
}
if ($chcp !~ /932|950/oxms) {
print "ok - 1 # SKIP $^X $__FILE__\n";
exit;
}
mkdir('hoge', 0777);
open(FILE,'>hoge/eXg\[X.txt') || die "Can't open file: hoge/eXg\[X.txt\n";
print FILE "1\n";
close(FILE);
my($fileName) = glob("./hoge/*");
my $wk = "\[X";
if ($fileName =~ /\Q$wk\E/) {
print "ok - 1 $^X $__FILE__\n";
}
else {
print "not ok - 1 $^X $__FILE__\n";
}
unlink('hoge/eXg\[X.txt');
rmdir('hoge');
__END__
½Æ¦ÎA./hogezºÉweXg\[X.txtxÆ¢¤t@Cª Á½ÆµÜ·B
êxw\[Xx¶ñðÏÉi[µÄÝÜ·B
»ÌRFR[hÍshiftjisAÍshiftjisAWüoÍÍshiftjis
ÀsÊ
C:\test>perl $0
Unmatch
./hoge/eXg\[X.txt
µ©µAãLÅÍ}b`µÜ¹ñB
±êÍAwmy $wk = "\[X";xÅw\xÌæQoCgªGXP[v¶w\xÌ
R[hÉÈÁÄ¢é©çÅ·B
»µÄAw\xÌæPoCgÆw[xÌæPoCgªÁt¢ÄµÜ¤ÌÅ·B
8/2(y) ¡[Perlm[g] VtgJIS¿Ìt@C¼É}b`µÄÝé
http://d.hatena.ne.jp/chaichanPaPa/20080802/1217660826