Q&A
use utf8; を追加してして下さい。
前提
ここに質問の内容を詳しく書いてください。
（例）
Perlで正規表現で困っています。
正規表現で、それぞれ、ひらがな、カタカナ、漢字をif文でひっかけたいのですが、なかなかうまくいきません。
わかる方、ご教授願えればと思います。
よろしくお願いします。
実現したいこと
ここに実現したいことを箇条書きで書いてください。
正規表現で、それぞれ、ひらがな、カタカナ、漢字をif文で捕捉したいのです。
発生している問題・エラーメッセージ
エラーメッセージは何も表示されていません。
該当のソースコード
Perl
1use strict; 2my $hiragana = 'やまだ'; 3my $katakana = 'ヤマダ'; 4my $kanji = '山田'; 5my $msg = ""; 6my $flg = 0; 7if($hiragana =~ /[\p{Hiragana}]/){ 8 $msg = 'ひらがなが含まれています\n'; 9 $flg = 1; 10} 11if($katakana =~ /[\p{Katakana}]/){ 12 $msg .= 'カタカナが含まれています\n'; 13 $flg = 1; 14} 15if($kanji !~ /[\p{Han}]/){ 16 $msg .= '漢字以外が含まれています\n'; 17 $flg = 1; 18} 19if($flg == 1){ 20 print $msg; 21}
試したこと
それぞれ、アルファベットや、ひらがなや、カタカナや、漢字を値に入れて試しても、思うように動きませんでした。
「^[\u3040-\u309F]+$」のような書き方も試しましたがこれも、思うようにいきませんでした。
補足情報（FW/ツールのバージョンなど）
動かしているのは、レンタルサーバーです。
Perlのバージョンは、5.16です。
そうですね。
質問にuse utf8;を追加する方法がわからないですが、
binmode(STDOUT, ':utf8');
これを、書いてあります。
いかがでしょうか。
binmode(STDOUT, ':utf8');
と書いてあるのは、手元のローカルのファイルに書いてあります。
use strict; の直後に use utf8; を入れてみて下さい。
use strict; の直後に use utf8; を入れてみたのですが、成功しませんでした。
Perl のバージョンの問題ですかね。手元の Perl は v5.34.0 ですが、use utf8; を入れて実行すると、
ひらがなが含まれています
カタカナが含まれています
という結果になります。
ソースコード自身が別のエンコーディングで保存されているのでは？
「漢字が含まれていない」っていう正規表現に漢字がマッチしないのは正しいんじゃないでしょうか
Perl のバージョンの問題かもしれないんですね。
情報、ありがとうございます。
ソースコードは、UTF-8のエンコーディングで保存しています。
そうですね、「漢字が含まれる」のですから、「!~」じゃなくて「=~」でしたね。
ご指摘、ありがとうございます。
このコードでうまくいく環境があることがわかったのであれば、ここに書いていないこと(あなたが省略していること)に原因があるとは思いませんか？
まず本番のコードは置いておいて、回答者と共有したコードで試すべきです。
binmode が省略されているのと同じく、演算子も変えたのであれば、指摘されたところを直したコードで試し、質問のコードをそのコードそのものに差し替え、正確な実際の出力を載せるのが良いでしょう。
バージョンが原因というのは考えにくいと思っていますが、それでも回答者の実行結果と異なるのであれば環境や実行方法に問題があると思います。
「成功しない」というのはどんな結果になってるんだろ
use utf8の必要性については
https://teratail.com/questions/bcrd1y64eodj74
で説明したはずですが、結局本質的なことを何一つ理解していただけてなかったようで残念に思いますよ。use utf8とbinmode...は全然目的が違うので、どちらかがもう一方の代用にできるものではありません。
さて、ここまでのサジェストを経て、コードを書き換えて試されたと思います。普通であれば成功しているはずですが、そうでないのだとしたら何がどう「うまくいかない」のか、具体的に説明していただきたいです。無いはずの文字種を検出してしまう？ あるはずの文字種を検出しない？ メッセージが文字化け？ それともほかの問題?
私のローカルの環境でも上記のソースコードで試したのしたのですが、文言は一切表示されませんでした。
ちなみに、私のローカルの環境は、Windows11で、perlのバージョンは、5.24です。
長音「ー」はカタカナ扱いでしょうか？
「ヴ」のひらがな「ゔ」は「う゛」だったらどうしますか？
「あゃ」のような存在しない読みはどうしますか？
上記コードではだめと再三言われてるのに頑なに直さないところに狂気を感じる。
氏名チェックや、フリガナチェックに使用している為、長音「ー」はどこにも含まれないと考えています。
同じ理由で、「ヴ」のひらがな「ゔ」は「う゛」も必要ないと思っています。
「あゃ」のような存在しない読みも含まれなくていいと思います。
回答1件
0
ベストアンサー
2023-01-16T03:56:31の時点で質問文に掲げてあるスクリプトを一切の修正なしで実行した場合、出力は以下のようになります。
$ perl test230116a.pl Wide character in print at test230116a.pl line 21. ひらがなが含まれています\nカタカナが含まれています\n
多分こういうことがやりたいんだろうと適当に忖度して書き換えたソースが以下です。
use warnings; use strict; use utf8; binmode STDOUT, ':utf8'; my $hiragana = 'やまだ'; my $katakana = 'ヤマダ'; my $kanji = '山田'; my $msg = ""; my $flg = 0; if($hiragana =~ /[\p{Hiragana}]/){ $msg = "ひらがなが含まれています\n"; $flg = 1; } if($katakana =~ /[\p{Katakana}]/){ $msg .= "カタカナが含まれています\n"; $flg = 1; } if($kanji =~ /[\p{Han}]/){ $msg .= "漢字が含まれています\n"; $flg = 1; } if($flg == 1){ print $msg; }
これを実行すると次のようになります。
perl test230116.pl ひらがなが含まれています カタカナが含まれています 漢字が含まれています
いずれにせよ、「文言は一切表示されませんでした」というような状況は再現できません。これはWSL(ubuntu)上のperl5.26.1とMSYS上のperl5.32.1の二つで試しましたが、結果に違いは見られません。
というわけで、質問には書かれていない何らかの間違った処理がなされているものと思われますが、その中身を知りようのない我々には原因も対策も特定しようがないというのが現状と言えます。
投稿2023/01/15 19:09
総合スコア13727
私が、上記ソースでテストしているのは、ローカルの環境がWindowsだからです。
ローカルでutf8;したら、文字化けします。
もちろん、レンタルサーバー上では、utf8;は入れてあります。
それから、Perlのバージョンは、5.24です。
書かれていない処理とお言いますが、テストをしている時は上記コードで行っております。
何らかの間違った処理は、一切書いておりません。
シンタックスエラーもないですし、普通に実行しても、どこにもひっかからず、文言の表示もないまま処理が終わります。
perl5.24以降は、かなりの変更が加えられているように思えるのですが、いかがでしょうか。
> ローカルでutf8;したら、文字化けします。
しません。
文字化けするのはシフトJISを使っているからじゃないですか？
今時、windowsのメモ帳でさえutf8がデフォルトです。全部utf8で保存してください。
> perl5.24以降は、かなりの変更が加えられているように思えるのですが、いかがでしょうか。
5.10.1および5.18.2という古いperlが残っている環境があったのでやってみましたが、
いずれも貴方がいうような事象は確認できませんでした。
あなたの回答
tips
プレビュー
