# encoding: Big5Plus
# This file is encoded in Big5Plus.
die "This file is not encoded in Big5Plus.\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
ÏWJµÈ¢æ¤ÉVONH[gwmy $wk = '\[X';xɵÄÝÜ·B
»ÌSFR[hÍshiftjisAÍshiftjisAWüoÍÍshiftjis
ÀsÊ
C:\test>perl $0
Match
./hoge/eXg\[X.txt
¡xÍAãès«Üµ½B
8/2(y) ¡[Perlm[g] VtgJIS¿Ìt@C¼É}b`µÄÝé
http://d.hatena.ne.jp/chaichanPaPa/20080802/1217660826