■こんなCGI作ってください■ Part.2

[0532 脱帽 2006/02/05(日) 14:11:47 ID:???]

とりあえず、>>516の条件だけで作ってみた。CGIじゃないけど。

#!/usr/bin/perl
#
# Shift_JIS
#
$str = '1234漢字abc';

$char = substr($str, 4, 1);
$char = unpack('C', $char);

if($char >= 0x30 && $char <= 0x39){ # 0-9
print substr($str, 0, 5);
}elsif($char >= 0x41 && $char <= 0x5a){ # A-F
print substr($str, 0, 5);
}elsif($char >= 0x61 && $char <= 0x7a){ # a-f
print substr($str, 0, 5);
}elsif($char >= 0x81 && $char <= 0x9f){ # 2byte mode start
print substr($str, 0, 6);
}elsif($char >= 0xe0 && $char <= 0xef){ # 2byte mode start
print substr($str, 0, 6);
}else{ die 'exception'; }

__END__