Perlについての質問箱 65箱目

**デフォルトの名無しさん** · 2022/04/23(土) 16:12:18.71

ここにperl関係者いるかな？連絡用のアカウント作るの面倒なんでここで報告。

perl5 で (?<name>\d{1}){0} がおかしい件
https://github.com/tonco-miyazawa/regex_etc/blob/master/MEMO_perl5/define_0times.txt

perlrecharclass.pod の誤植 - perldoc.jp
https://github.com/tonco-miyazawa/regex_etc/blob/master/MEMO_perl5/memo.txt

**デフォルトの名無しさん** · 2022/04/24(日) 18:45:33.05

>>79
亀だが外から見えるまとまった発表はないな。Steering Council もそれに気付いたから近々ブログ記事も出すと言ってる
https://markmail.org/message/tqi446jfy42elhz5

まあ Perl 7 の変更点だった strict / warnings / feature 'signatures' のデフォルト有効化と
feature qw/indirect multidimentional bareword_filehandles/ のデフォルト無効化は use feature ':5.36' に全部入ったから use v5.36 すれば実質 Perl 7 だ

**デフォルトの名無しさん** · 2022/08/11(木) 23:25:10.27

perlファイルに書かれている1行目の記述（#!/usr/local/bin/perl等）を変更せずに、
apacheでperlの参照先を変えたい（出来ればvirtualhost毎）のですが、やり方分かる方ませんか？

**デフォルトの名無しさん** · 2022/08/11(木) 23:37:59.40

それOSの力を借りないと無理なのでは？ApacheやPerlの問題ではないと思うが。

自分で /usr/local/bin/perl というスクリプトを作ってしまってそこで切り替えるみたいな誤魔化しで良いなら楽だと思うが。

**デフォルトの名無しさん** · 2022/08/14(日) 20:49:57.28

>>85
OSはUbuntu 20.04.4 LTS を使っています。
何か方法はないでしょうか？

**デフォルトの名無しさん** · 2022/08/14(日) 21:03:12.18

shebangを無視してファイルを実行するようなApacheモジュールを組み込んだらできるかも？
そんなモジュールはきっと存在しないので、自作が前提だけど。ｗ

**デフォルトの名無しさん** · 2022/08/20(土) 02:15:42.15

>>87
shebangを使って出来るか試して見ますね

**デフォルトの名無しさん** · 2022/08/23(火) 18:46:04.59

Perlに限った話じゃないんだが、WSL1でubuntu 22.04を使うとWSL1上でgzipバイナリが動かないせいで、tar.gz関連処理が軒並みエラーになってしまう
cpanでモジュールをダウンロードするとtar.gzの展開に失敗するのでなにもインストールできない
解決するには、gzipのソースをgnu公式からダウンロードしてビルド＆インストールしてWSL1で動くgzipにパスが通るようにする必要がある

**デフォルトの名無しさん** · 2022/08/24(水) 00:32:00.18

>>84
試してないが mod_actions 噛ませば良いんでない？

AddHandler my-perl-script .pl
AddHandler cgi-script .cgi
Action my-perl-script /cgi-bin/run-my-perl.cgi

とかやって run-my-perl.cgi は

#!/bin/sh
/path/to/your/perl $PATH_TRANSLATED

みたいな

**デフォルトの名無しさん** · 2022/08/25(木) 15:27:50.26

宇宙刑事 shebang

**デフォルトの名無しさん** · 2022/08/26(金) 18:50:05.53

>>84
Would you like

#!/usr/bin/env perl
or
/your_favorite_perl_path perl_script

**デフォルトの名無しさん** · 2022/08/26(金) 20:12:41.13

きまぐれでどれが呼ばれるか判らんものをよく使おうと思えるな

**デフォルトの名無しさん** · 2022/08/26(金) 20:37:01.58

gzはwin同梱のtarには付いて無いんか？

**デフォルトの名無しさん** · 2022/08/28(日) 05:40:04.80

>>94
PATH の通ったディレクトリに Windows 用の xz.exe を置いておくと tar の J オプションで展開してくれるようだが圧縮は対応していない模様。
圧縮は自分でパイプ通してやらないとできないみたい。何故そうなっているかは不明。

**デフォルトの名無しさん** · 2022/08/28(日) 05:40:40.65

あ、gz か。ごめん。xz と間違えた。

**デフォルトの名無しさん** · 2022/08/28(日) 05:42:29.29

あれ？でも gz (gzip) 圧縮なら tar cvfz でできたな。

**デフォルトの名無しさん** · 2022/12/23(金) 15:18:23.84

perlに付属されているh2xsというツールを使ってモジュールを作成したいんですが、ディレクトリに移動に移動してコードを書く方法が分かりませんアドバイスお願いします。

※Perl
https://linuxcommand.net/perl-mod/#i-3

**デフォルトの名無しさん** · 2023/06/07(水) 16:24:29.96

Perlのpackage内my変数についてちょっと疑問。
myはレキシカルな局所変数なので、他package内のmy変数は他のpackageからは参照できず、参照したければmy出なくourにすると解釈していたが。
packageが別々のソースファイルだった場合はその通りですっきりしたスコープ仕様だと思っていたが…
ところが二つのpackageが同じソースファイル内にあり、他のpackageのmy変数を参照すると変な感じ：

例
use strict;
use warnings;

package P1;
our $aa = __PACKAGE__.'aa';
my $bb = __PACKAGE__.'bb';

package P2;
print __PACKAGE__ . "(1)$P1::aa\n";
print __PACKAGE__ . "(2)$aa\n";
print __PACKAGE__ . "(3)$P1::bb\n";
print __PACKAGE__ . "(4)$bb\n";

実行結果
$ perl package_a_b.pl
Name "P1::bb" used only once: possible typo at package_a_b.pl line 14.
P2(1)P1aa
P2(2)P1aa
Use of uninitialized value $P1::bb in concatenation (.) or string at package_a_b.pl line 14.
P2(3)
P2(4)P1bb

P2からはP1のmy $bbが$bbで参照できて、$P1::bb だとエラー、なんだこりゃ…？？？
ちな 5.36.0 と 530.0 で確認した。

**デフォルトの名無しさん** · 2023/06/07(水) 21:31:39.79

myはpackageとは何の関係もない
packageにmyのシンボルテーブルはない
だから(3)ではuninitialized value $P1::bbになる
(4)は単なる文字列
正常な振る舞いだよ

**デフォルトの名無しさん** · 2023/06/07(水) 23:23:43.75

>>100
回答ありがとう、myがそういうものだと今日まで知らずにいた…おｒｚ

**デフォルトの名無しさん** · 2023/06/08(木) 00:48:41.98

myのスコープはブロック、ファイル、evalの３つ
パッケージとは無関係だから>>99ではファイルスコープになるね
package P2でもう一度my $bb宣言したらエラーになることからも分かる

**デフォルトの名無しさん** · 2024/02/23(金) 07:50:24.93

あげ

**デフォルトの名無しさん** · 2024/04/14(日) 21:35:03.76

ローカルサーバーでsrandとrandで生成した乱数の値と
レンタルサーバーでsrandとrandで生成した乱数の値が違うのは何で？
どちらもsrandの値は同じとする。

**デフォルトの名無しさん** · 2024/04/15(月) 00:21:17.88

このへんから探ってみては
https://github.com/search?q=repo%3APerl%2Fperl5+rand&type=code

煽りじゃないよしんどいので俺はここまで

**デフォルトの名無しさん** · 2024/04/15(月) 12:41:15.37

プラットフォームのifdefで切り分けてそうだからそれっぽいマクロ定数でも探すといいかも

**デフォルトの名無しさん** · 2024/04/15(月) 17:29:37.18

ビルドされた環境のCライブラリ依存じゃない？
同じにしたいならMath::Random::MTとか使えばいいんでね

**デフォルトの名無しさん** · 2024/04/16(火) 09:32:57.50

>>104
一般論としてPerlの内部実装は無保証でコロッコロ変わるので、疑似乱数の再現性を担保したいならコードを同梱してしまうのが最も確実

cでたったこれだけ、Perlで詰めれば20行も要らんだろう、局所使用ならファイル内subでいいレベル
github.com/bmurray7/mersenne-twister-examples/blob/master/c-mersenne-twister.c

同階層にpl版もある
丁寧にコードされパッケ化で無意味に冗長なので参考ならこっち
アルゴリズム特許あるか知らんし、ライセンスを許容するなら同梱

**デフォルトの名無しさん** · 2024/04/16(火) 14:14:10.10

print"A\n",print"B\n";

これの動き教えてくれよ
出来ればサンプルソースも

**デフォルトの名無しさん** · 2024/04/16(火) 15:16:06.51

print "A\n", print "B\n";
print("A\n", print("B\n"));
まず最初のprintの引数中のprint("B\n")が評価され"B\n"が出力される
print("B\n")が成功したので真の値1を帰す
print("A\n", 1)となる

B
A
1と表示される

print "X\n", 3 > 0;
print "X\n", 3 < 0;
print "X\n", open(my $fh, "no_such_file.txt");

**デフォルトの名無しさん** · 2024/04/16(火) 15:37:42.78

成る程、() 使わない副作用意識しないとダメですね
ありがとうございます

**デフォルトの名無しさん** · 2024/11/17(日) 20:01:50.35

poetryと同等の仕組みがないときつい

**デフォルトの名無しさん** · 2025/11/10(月) 07:57:26.71

2025年最後の書き込みになるかもしれないから書いておこう

**デフォルトの名無しさん** · 2025/11/16(日) 00:05:37.18

いや、この書き込みが2025年最後だ

という書き込みが延々と続いたりして

**デフォルトの名無しさん** · 2025/11/24(月) 22:48:34.34

とは続かないのがかなしい