1#!perl -w 2# 3# This script is written intentionally in UTF-8 4# -- dankogai 5 6BEGIN { 7 chdir 't' if -d 't'; 8 require './test.pl'; 9 skip_all_without_perlio(); 10} 11 12use strict; 13plan(tests => 8); 14use utf8; 15 16my @hiragana = map {chr} ord("ぁ")..ord("ん"); 17my @katakana = map {chr} ord("ァ")..ord("ン"); 18my $hiragana = join('' => @hiragana); 19my $katakana = join('' => @katakana); 20my %h2k; @h2k{@hiragana} = @katakana; 21my %k2h; @k2h{@katakana} = @hiragana; 22 23# print @hiragana, "\n"; 24 25my $str; 26 27$str = $hiragana; $str =~ tr/ぁ-ん/ァ-ン/; 28is($str, $katakana, "tr// # hiragana -> katakana"); 29$str = $katakana; $str =~ tr/ァ-ン/ぁ-ん/; 30is($str, $hiragana, "tr// # hiragana -> katakana"); 31 32$str = $hiragana; eval qq(\$str =~ tr/ぁ-ん/ァ-ン/); 33is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); 34$str = $katakana; eval qq(\$str =~ tr/ァ-ン/ぁ-ん/); 35is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana"); 36 37$str = $hiragana; $str =~ s/([ぁ-ん])/$h2k{$1}/go; 38is($str, $katakana, "s/// # hiragana -> katakana"); 39$str = $katakana; $str =~ s/([ァ-ン])/$k2h{$1}/go; 40is($str, $hiragana, "s/// # hiragana -> katakana"); 41 42{ 43 # [perl 16843] 44 my $line = 'abcdefghijklmnopqrstuvwxyz$0123456789'; 45 $line =~ tr/bcdeghijklmnprstvwxyz$02578/בצדעגהיײקלמנפּרסטװשכיזשױתײח/; 46 is($line, "aבצדעfגהיײקלמנoפqּרסuטװשכיזש1ױ34ת6ײח9", "[perl #16843]"); 47} 48 49{ 50 # [perl #40641] 51 my $str = qq/Gebääääääääääääääääääääude/; 52 my $reg = qr/Gebääääääääääääääääääääude/; 53 ok($str =~ /$reg/, "[perl #40641]"); 54} 55 56__END__ 57