Skip to content

Instantly share code, notes, and snippets.

@makotoworld
Created March 2, 2010 08:14
Show Gist options
  • Save makotoworld/319259 to your computer and use it in GitHub Desktop.
Save makotoworld/319259 to your computer and use it in GitHub Desktop.
my $charcter = "あいうえお";
utf8::decode($charcter);
print '検証文字列: ',$charcter,"\n";
if($charcter !~ /([\x{3041}-\x{30F6}])/) {
print 'ひらがなとカタカナが含まれていません';
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment