Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
1(5): デフォルトの名無しさん [sage] 2012/10/07(日) 00:48:39.00 AAS
どうぞー
499: デフォルトの名無しさん [sage] 2021/12/30(木) 17:49:56.83 ID:QArx8wCq(1) AAS
そういう言語なの
0 but true
なんていう値もあるし
500: デフォルトの名無しさん [sage] 2022/01/10(月) 19:33:13.97 ID:2hS04FMw(1) AAS
do what perl mean
501: デフォルトの名無しさん [sage] 2022/01/11(火) 00:17:50.61 ID:Xf79Fgui(1) AAS
bool値ほしい
502: デフォルトの名無しさん [] 2022/03/27(日) 23:43:39.11 ID:TRkpHzjA(1) AAS
>>497じゃあどうすればいいの？
503: デフォルトの名無しさん [sage] 2022/04/28(木) 20:33:01.74 ID:KupWcmJ5(1) AAS
元の
hoge() or die("Error\n");
が問題なく動いてるなら
hoge() or print("Error\n"), die $!;
504: デフォルトの名無しさん [sage] 2022/06/11(土) 13:31:52.57 ID:XcUjU1KU(1) AAS
hoge()が0を返しうるかどうかもわからんと思うのだが
＞元の
＞hoge() or die("Error\n");
＞が問題なく動いてるなら
という前提の下で >>495495(2): デフォルトの名無しさん [sage] 2021/12/25(土) 19:09:39.02 ID:pJ3Bii8w(1) AAS
>>494
0を返しても、0という文字(アスキーコード0x30)として扱われたりするから、俺は
if(scalar($a)) {
とか
if($a eq 0) {
とかするよ。
の配慮に意味があるの? >>496496(1): デフォルトの名無しさん [sage] 2021/12/25(土) 20:31:09.16 ID:62MjaTIU(1) AAS
>>494
良い。
! で条件反転させるんだったら unless 使っても良いと思うけどね。
unless ($a) { ... } みたいに。
で十分
hoge() or が動くという前提を無視するとして
もしもhoge()が0を含む数値か失敗を返すなら（空文字を含む文字列か失敗でもいい）
失敗にundefを返してdefinedで受けるのがフツー
505(1): デフォルトの名無しさん [sage] 2023/12/15(金) 06:59:42.19 ID:aRdlBUAD(1) AAS
$_ ← これ、なんて読む?
perlが発祥ってわけでもないそうだが(bashとかにもあるんだってね)、ガチのドザなので
俺は内心ドルバーって呼んでる
506: デフォルトの名無しさん [sage] 2023/12/19(火) 00:32:16.33 ID:LgO8Ui43(1) AAS
ドル・アンダーバーじゃないかな。
設定によってはチルダの代わりにトップバーってのがあったから、それと区別するのにアンダーって言ってた気がする。
507: 505 [sage] 2023/12/21(木) 12:15:47.33 ID:nsa/DjJa(1) AAS
おつあり
そういやそんなの(トップバー)あったねえ なるほど
508: デフォルトの名無しさん [] 2024/02/09(金) 17:07:48.28 ID:LEmbefGZ(1) AAS
V5.38.2
32ビット
外部ﾘﾝｸ:github.com
64ビット
外部ﾘﾝｸ:github.com
509: デフォルトの名無しさん [sage] 2024/03/03(日) 23:39:10.39 ID:1cRqRnnX(1) AAS
なつかしのcgiゲームを設置したくてperlを触ってるのですが、今の時代でもcgiゲームはサーバーへの負荷は大きいのでしょうか？（昔はよくゲームの設置が禁止されてましたが）
perlと関係なかったらすみません…
510: デフォルトの名無しさん [sage] 2024/03/16(土) 03:41:28.53 ID:I49Gallj(1) AAS
StrawberryPerlで
$str='あ';
if ($str =~ /^[あいう]$/) {print("match\n");}
を実行してみるとマッチしてくれません
/^(あ|い|う)$/ ならマッチするのですが
古いPerl4のjperlなら /^[あいう]$/ でもマッチします
やはりこれはStrawberryPerlのバグ(または仕様)なのでしょうか
511(1): デフォルトの名無しさん [sage] 2024/03/16(土) 08:42:58.43 ID:E8XsMGej(1/2) AAS
print length $str; を入れてみたらわかる
512: デフォルトの名無しさん [sage] 2024/03/16(土) 09:03:33.98 ID:E8XsMGej(2/2) AAS
もしかして: \p{sc=Hiragana}
513: デフォルトの名無しさん [sage] 2024/03/16(土) 09:16:48.08 ID:1WMRgWrv(1) AAS
ネタにマジレス
514: デフォルトの名無しさん [sage] 2024/03/16(土) 11:57:07.41 ID:Xoe9pkvE(1) AAS
>>511
レスどうもです
Shift-JISの環境で正しく2とカウントされてます
前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで
ひらがなにマッチさせたいわけではないんです
515: デフォルトの名無しさん [sage] 2024/03/16(土) 15:20:26.94 ID:e8kHlvhU(1) AAS
少なくともperl5.8以降の文字クラスはuse utf8;前提になっててlengthが1じゃないとだめじゃね？
516: デフォルトの名無しさん [sage] 2024/03/16(土) 15:27:36.56 ID:HqlfXJdH(1) AAS
推奨されてないけど
use encoding 'sjis'
ならsjisでコード書けたと思う
jperlﾅﾂｶｼｽ
517: デフォルトの名無しさん [sage] 2024/03/24(日) 16:38:15.53 ID:gHSiAGjm(1) AAS
Windows では Filter::Encoding いれて使ってた
スクリプトは utf-8 で書いて use utf8 してたけど
コマンドラインでは -MFilter::Encoding=cp932 とか
518: デフォルトの名無しさん [] 2024/07/23(火) 22:33:05.15 ID:Ott+kcdk(1/2) AAS
外部ﾘﾝｸ[10]:github.com
Strawberry Perl 5.39.10.1
519: デフォルトの名無しさん [] 2024/07/23(火) 22:33:17.30 ID:Ott+kcdk(2/2) AAS
外部ﾘﾝｸ:github.com
5.40.0.1-RC1
520: デフォルトの名無しさん [] 2025/04/07(月) 15:52:26.28 ID:ahUtunTX(1) AAS
perlを使った応募フォームで同一人物からの応募を省きたいのですが、IPアドレス以外で応募者を識別する方法はありますか？
個人サイトの小さな応募フォームなので完璧でなくても大丈夫です
お知恵を貸していただけると助かります
521(1): デフォルトの名無しさん [sage] 2025/04/07(月) 17:32:14.55 ID:aZeLbslJ(1) AAS
cookie はどうよ？
522(1): デフォルトの名無しさん [] 2025/04/07(月) 19:10:26.23 ID:LICdw+AC(1) AAS
むしろIPでは個人識別無理
523: デフォルトの名無しさん [] 2025/04/09(水) 23:14:04.55 ID:X4PDIxY1(1) AAS
>>521
ありがとうございます、調べてみますm(_ _)m
>>522
変な書き方をしてしまいました
今はIPアドレスで省いてるのですが、おっしゃる通り識別できないので他の方法を探してました
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.027s