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

**デフォルトの名無しさん** · 2024/03/16(土) 03:41:28.53

StrawberryPerlで

$str='あ';
if ($str =~ /^[あいう]$/) {print("match\n");}

を実行してみるとマッチしてくれません
/^(あ|い|う)$/　ならマッチするのですが
古いPerl4のjperlなら /^[あいう]$/ でもマッチします
やはりこれはStrawberryPerlのバグ(または仕様)なのでしょうか

**デフォルトの名無しさん** · 2024/03/16(土) 08:42:58.43

print length $str; を入れてみたらわかる

**デフォルトの名無しさん** · 2024/03/16(土) 09:03:33.98

もしかして: \p{sc=Hiragana}

**デフォルトの名無しさん** · 2024/03/16(土) 09:16:48.08

ネタにマジレス

**デフォルトの名無しさん** · 2024/03/16(土) 11:57:07.41

>>511
レスどうもです
Shift-JISの環境で正しく2とカウントされてます
前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで
ひらがなにマッチさせたいわけではないんです

**デフォルトの名無しさん** · 2024/03/16(土) 15:20:26.94

少なくともperl5.8以降の文字クラスはuse utf8;前提になっててlengthが1じゃないとだめじゃね？

**デフォルトの名無しさん** · 2024/03/16(土) 15:27:36.56

推奨されてないけど
use encoding 'sjis'
ならsjisでコード書けたと思う
jperlﾅﾂｶｼｽ

**デフォルトの名無しさん** · 2024/03/24(日) 16:38:15.53

Windows では Filter::Encoding いれて使ってた
スクリプトは utf-8 で書いて use utf8 してたけど
コマンドラインでは -MFilter::Encoding=cp932 とか

**デフォルトの名無しさん** · 2024/07/23(火) 22:33:05.15

https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5.39.10
Strawberry Perl 5.39.10.1

**デフォルトの名無しさん** · 2024/07/23(火) 22:33:17.30

https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/dev_5.40.0_RC1_UCRT
5.40.0.1-RC1

**デフォルトの名無しさん** · 2025/04/07(月) 15:52:26.28

perlを使った応募フォームで同一人物からの応募を省きたいのですが、IPアドレス以外で応募者を識別する方法はありますか？
個人サイトの小さな応募フォームなので完璧でなくても大丈夫です
お知恵を貸していただけると助かります

**デフォルトの名無しさん** · 2025/04/07(月) 17:32:14.55

cookie はどうよ？

**デフォルトの名無しさん** · 2025/04/07(月) 19:10:26.23

むしろIPでは個人識別無理

**デフォルトの名無しさん** · 2025/04/09(水) 23:14:04.55

>>521
ありがとうございます、調べてみますm(_ _)m

>>522
変な書き方をしてしまいました
今はIPアドレスで省いてるのですが、おっしゃる通り識別できないので他の方法を探してました