hiroyukim https://blog.hatena.ne.jp/hiroyukim/ (ヽ´ω`)　 https://hiroyukim.hatenablog.jp/ 全角カナの大文字だけ許可したかったので正規表現を作った。 use Jcode; my $hoge = Jcode->new("カナ")->euc; my $zkatakana_omozi = '(?:\xA5[\xA2\xA4\xA6\xA8\xAA-\xC2\xC4-\xE2\xE4\xE6\xE8-\xED\xEF\xF2-\xF4])'; if( $hoge =~ /^($zkatakana_omozi)+$/ ) { warn "ok"; } 下記のサイト様にお世話になりました。http://www.din.or.jp/~ohzaki/perl.htm#Character http:/… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiroyukim.hatenablog.jp%2Fentry%2F20070411%2F1176273251" title=" perl 文字コード - (ヽ´ω`)　" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-04-11 15:34:11 rich https://hiroyukim.hatenablog.jp/entry/20070411/1176273251 1.0 100%