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

**デフォルトの名無しさん** · 2021/11/20(土) 02:07:02.21

$line=~s/¥s¥s+/ /g
では？

**デフォルトの名無しさん** · 2021/11/20(土) 20:14:01.04

s/\s\s+/ /g;
でうまくいったよ。
そうか、\sって正規表現だから、置換文字列に使うと「perl にそんな定義ないで！」ってなるのか。
これは俺も気を付けよう。

**デフォルトの名無しさん** · 2021/11/20(土) 20:36:42.09

置換といえばこのまえ、JSONで取得したUnicodeを表示したくて、
\u3042 → \N{U+3042}
に置換しようとしたけど、できなかった。
\N{U+ }←ここにはリテラルしか書けないのかな。

**デフォルトの名無しさん** · 2021/12/14(火) 19:15:14.22

if文で真偽値を判定するのってどうやるの？

hoge() or die("Error\n");
ってなってた（hoge()の戻り値が魏ならエラー）のを標準出力したくて

my $a = hoge();
if( ! $a ){ print("Error\n"); exit $!; }
みたいにしたんだけど、if文の書き方ってこんなんで良いの？

**デフォルトの名無しさん** · 2021/12/25(土) 19:09:39.02

>>494
0を返しても、0といｂ､文字(アスキーコード0x30)として扱われたりするから、俺は
if(scalar($a)) {
とか
if($a eq 0) {
とかするよ。

**デフォルトの名無しさん** · 2021/12/25(土) 20:31:09.16

>>494
良い。

! で条件反転させるんだったら unless 使っても良いと思うけどね。
unless ($a) { ... } みたいに。

**デフォルトの名無しさん** · 2021/12/30(木) 05:41:55.25

良くないんだってば。
Perlをそういう流儀でやってるといつか痛い目にあうよ。

**494ではない** · 2021/12/30(木) 08:07:22.12

>>495
マジか。
my $a = hoge();
において、左辺が 0、右辺が 0x30 になるのは、言語としてぶっ壊れているんじゃね?

**デフォルトの名無しさん** · 2021/12/30(木) 17:49:56.83

そういう言語なの
0 but true
なんていう値もあるし

**デフォルトの名無しさん** · 2022/01/10(月) 19:33:13.97

do what perl mean

**デフォルトの名無しさん** · 2022/01/11(火) 00:17:50.61

bool値ほしい

**デフォルトの名無しさん** · 2022/03/27(日) 23:43:39.11

>>497
じゃあどうすればいいの？

**デフォルトの名無しさん** · 2022/04/28(木) 20:33:01.74

元の
hoge() or die("Error\n");
が問題なく動いてるなら
hoge() or print("Error\n"), die $!;

**デフォルトの名無しさん** · 2022/06/11(土) 13:31:52.57

hoge()が0を返しうるかどうかもわからんと思うのだが

＞元の
＞hoge() or die("Error\n");
＞が問題なく動いてるなら

という前提の下で >>495 の配慮に意味があるの? >>496 で十分

hoge() or が動くという前提を無視するとして
もしもhoge()が0を含む数値か失敗を返すなら（空文字を含む文字列か失敗でもいい）
失敗にundefを返してdefinedで受けるのがフツー

**デフォルトの名無しさん** · 2023/12/15(金) 06:59:42.19

$_ ← これ、なんて読む?

perlが発祥ってわけでもないそうだが(bashとかにもあるんだってね)、ガチのドザなので
俺は内心ドルバーって呼んでる

**デフォルトの名無しさん** · 2023/12/19(火) 00:32:16.33

ドル・アンダーバーじゃないかな。
設定によってはチルダの代わりにトップバーってのがあったから、それと区別するのにアンダーって言ってた気がする。

**505** · 2023/12/21(木) 12:15:47.33

おつあり
そういやそんなの(トップバー)あったねえなるほど

**デフォルトの名無しさん** · 2024/02/09(金) 17:07:48.28

V5.38.2
32ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5382_32bit
64ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_53822_64bit

**デフォルトの名無しさん** · 2024/03/03(日) 23:39:10.39

なつかしのcgiゲームを設置したくてperlを触ってるのですが、今の時代でもcgiゲームはサーバーへの負荷は大きいのでしょうか？（昔はよくゲームの設置が禁止されてましたが）
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アドレスで省いてるのですが、おっしゃる通り識別できないので他の方法を探してました