正規表現 Part11

このエントリーをはてなブックマークに追加
330デフォルトの名無しさん
ウィキペディア - 正規表現
http://ja.wikipedia.org/wiki/%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE#Basic_Regular_Expression

>エストニア語のアルファベットでは、s の後に z があり、その後は t、u、v、w、x、y と続くので、
>[a-z] ではすべての小文字のアルファベットにマッチしない

↑これを再現したいけど上手くいかない。↓では再現出来ず。(XP、perl 5.16.3)

use strict;
use warnings;
use locale;
use POSIX qw(setlocale LC_ALL);
setlocale(LC_ALL, "et_EE.ISO8859-1");

if ( "STU" =~ m/^[A-Z]+$/ )
{print "match";}
else
{print "no match.";}