Perl初心者スレ（マジレス回答）

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

511(1): デフォルトの名無しさん [sage] 2024/03/16(土)08:42 ID:E8XsMGej(1/2)
print length $str; を入れてみたらわかる

512: デフォルトの名無しさん [sage] 2024/03/16(土)09:03 ID:E8XsMGej(2/2)
もしかして: \p{sc=Hiragana}