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

Perlについての質問箱 65箱目 (112ﾚｽ)
上下前次 1-新

1: デフォルトの名無しさん [] 2021/03/27(土) 23:52:13.17 ID:vQS/WYw3(1/2) AAS
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: 2ch板:php）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.32.1)

▼前スレ
Perlについての質問箱 62箱目
2chｽﾚ:tech
Perlについての質問箱 63箱目
2chｽﾚ:tech
Perlについての質問箱 64箱目
2chｽﾚ:tech

13: デフォルトの名無しさん [] 2021/07/08(木) 01:00:53.27 ID:gY+tXenb(1) AAS
>>11
死ね

14: デフォルトの名無しさん [] 2021/07/08(木) 10:49:11.06 ID:nEG9xKCJ(1) AAS
uby厨は死んで良いが
perlもいい加減やめた方がいい言語
新規で使うなんてあり得ない

15: デフォルトの名無しさん [sage] 2021/07/08(木) 15:43:39.51 ID:PzoSTOmc(1) AAS
Perlは「可読性？何それうまいの」的なノリでやる自分の作業用として重宝する

16: デフォルトの名無しさん [sage] 2021/07/10(土) 14:27:06.61 ID:jbIVp5r2(1) AAS
小規模な一次的に使うツールみたいなのは今でも新規で作ることあるけどね
シェルスクリプトで書くと余計にぐちゃぐちゃで分かり辛くなったり遅くなりそうな場合とか

17: デフォルトの名無しさん [sage] 2021/08/18(水) 18:30:37.25 ID:VDhd+cn2(1) AAS
元々 awk や sed 駆使したシェル芸を代替するためのコマンドだから本来の地位に戻っただけとも言える

ディレクトリ掘って依存設定ファイル作らないとモジュールのインストールもできない JavaScript とか Go と違って cpanm で必要なモジュール放り込めばファイル一個で雑に動くからやっつけ仕事には未だによく使う

18: デフォルトの名無しさん [sage] 2021/08/18(水) 19:15:57.96 ID:bMnOTwac(1) AAS
褒めてんだかけなしてるんだか

19: デフォルトの名無しさん [sage] 2021/08/18(水) 20:46:15.60 ID:8PJNJj34(1) AAS
ダクトテープがダクトテープとしてよく働いてくれる、というのは最高の賛辞やろ。
キレイなことだけが誉め言葉ではない。

20: デフォルトの名無しさん [sage] 2021/08/18(水) 21:14:05.44 ID:nwD63Gpn(1) AAS
Perlはホワイトハッカー御用達の言語でしょ

21: デフォルトの名無しさん [sage] 2021/08/21(土) 00:23:42.38 ID:Zmo3uqZM(1) AAS
あらまｵﾚ様はホワイトハッカーだったの？

22: デフォルトの名無しさん [sage] 2021/08/21(土) 05:16:45.58 ID:dH+vFBpp(1) AAS
黒ぃハッカー

23: デフォルトの名無しさん [] 2021/09/12(日) 04:25:38.35 ID:RfonpbSj(1) AAS
MediawikiのXMLをパースするプログラムを書いてるんですが、
人間が日常的に使っている[[自然言語]]を[[コンピュータ]]に処理させる一連の技術であり
という文章は[[]]内の文字を<a href>タグで置換することはできたのですが、

応用例としては[[入力予測|予測変換]]、[[インプットメソッドエディタ|IME]]などの文字変換が挙げられる。
このように[[*1|*2]]と２重に入っている文字列の置換がどうしてもうまくいきません。
この場合は、<a href=*2>*2</a>と置換したいのですが、どうしたらいいでしょうか？

24: デフォルトの名無しさん [] 2021/09/12(日) 05:49:55.32 ID:zHKafq1A(1/3) AAS
s/[[(.*?(|(`*?))]]/$3 ? $3 : $1/ge
かな？試してないけど。

25: デフォルトの名無しさん [] 2021/09/12(日) 05:51:13.73 ID:zHKafq1A(2/3) AAS
あ、ごめん。| の所は \| ね。

26: デフォルトの名無しさん [] 2021/09/12(日) 05:52:45.30 ID:zHKafq1A(3/3) AAS
[と]も直前に\要るね。

27: デフォルトの名無しさん [sage] 2021/09/12(日) 07:06:52.84 ID:jZMYjdNi(1) AAS
なぜ、Perl のXML パーサーを使わないの？

例えばRuby なら、Nokogiri と言う、HTML/XML パーサーがある。
内部的には、Libxml2 モジュールを使っているのかな？

たぶん、Perlにもあるはず

28: デフォルトの名無しさん [sage] 2021/09/12(日) 15:32:25.57 ID:89s8PaYB(1) AAS
パースするのがXMLじゃないからだな。

29(1): デフォルトの名無しさん [] 2021/09/13(月) 10:13:09.30 ID:E86z1ItW(1) AAS
s/\[\[(.*?(\|(`*?)))\]\]/$3 ? $3 : $1/ge
のパターンで試してみましたが、結果は「インプットメソッドエディタ|IME」
と置換されてしまいます。
(.*?)の部分で、|以降の文字列も含めてマッチングされているようで
それ以降のパターンマッチが効いてないようです。

30: デフォルトの名無しさん [sage] 2021/09/13(月) 10:38:07.93 ID:AXNI3otr(1) AAS
このへんで確認しろ。https://qiita.com/aqril_1132/items/c185c7ad84c129e5a2df

31: デフォルトの名無しさん [sage] 2021/09/13(月) 23:15:02.86 ID:vef3NqnY(1) AAS
strawberry perl が34をリリースしないのはなぜだ

32: デフォルトの名無しさん [sage] 2021/09/15(水) 19:04:24.79 ID:fHmj5hYp(1) AAS
スクレイピングすると地獄へ落ちるって本当ですか？

33: デフォルトの名無しさん [sage] 2021/09/15(水) 23:51:59.00 ID:3vtMVT28(1/2) AAS
落ちたり落ちなかったり

34: デフォルトの名無しさん [] 2021/09/15(水) 23:54:27.28 ID:3vtMVT28(2/2) AAS
>>29
それ . が ` になってるよ。直してやってみたらちゃんとできたよ。

$ echo '[[インプットメソッドエディタ|IME]]' | perl -pe 's/\[\[(.*?(\|(.*?)))\]\]/$3 ? $3 : $1/ge'
IME
$

35: デフォルトの名無しさん [sage] 2021/09/18(土) 03:37:45.50 ID:YPBxfQEw(1) AAS
スクレイピングの勉強するのですが、下手するとF5アタックになるとかの法的リスクと回避法を重視している入門書ってありますか？
今の所やりたいことは、特定の市町村の5年分気温気象データを収集して自分用に加工
近所のコインランドリーの稼働データを集計して空いてる確率が高い時間帯を調べるの2つです
前者は膨大なデータを取得する必要があります
後者は10分から20分おきにアクセスすることになります

36: デフォルトの名無しさん [sage] 2021/09/18(土) 03:45:17.73 ID:VuuEM7MI(1) AAS
まるぽ

37: デフォルトの名無しさん [sage] 2021/09/18(土) 18:17:05.22 ID:J85RgKD5(1) AAS
頭のおかしい人に以下のようなことを言われました

>>基本、スクレイピングは営業妨害との戦い。
>>どの本にも、そう書いてある。
>>スクレイピングを推奨する本はない

具体的な書籍名を教えてください

>>5ch は、マルチポスト禁止！
>>同じ質問を、複数のスレや外部のサイトに書いてはいけない

どこでそんなルールが決まっているのでしょうか？

38(2): デフォルトの名無しさん [sage] 2021/10/02(土) 06:38:43.82 ID:b+9bP+Kg(1) AAS
socketでデータを受信すると、
データの途中に「残りバイト数」が挿入されてしまうことがあるんだけど、これはどう取り除けばいいの？
例えばこんな感じになる
wtjjpodjtjtjaajjgjjaatwdjjg@gptjwttdmttjmttpwm'jajt
1f
1234567890123456789012345678901
残りバイト数(1f)を16進数で表した文字列が挿入されてる
元々こういうデータだった場合と、挿入されてこうなった場合の区別が付かない
readline()でもread()でも結果は同じだった

39: デフォルトの名無しさん [sage] 2021/10/02(土) 14:54:42.04 ID:lWVjrMOX(1) AAS
>>38
なにそれ？文字で挿入されるの？そんなの初めて聞いたなあ。送る側で入れてるだけなのでは？(そうでなければ呼んでるライブラリが何かおかしいか)

socket 関係はバッファリング避けるために sysread() 使った方が良い場合があるよ。
select で入力待ちをした後で読み込みとかね。
後は気を付けるとしたらノンブロッキングにしてるかどうかかな。

40(1): デフォルトの名無しさん [] 2021/10/03(日) 14:58:34.95 ID:ngVDhrCg(1/2) AAS
activeperlからStrawberryperlへ移行を検討しているのですが、
activeperlで使用しているモジュール（ Win32::EventLog::Message）が
cpanから削除されておりbackpanには残っていました。
https://cpan.metacpan.org/authors/id/D/DA/DAVEROTH/
上記から、Win32-EventLog-Message.tar.gzはダウンロードできたのですが、
当方perl初心者でStrawberryperlへのインストール方法がわからず困っております。
どなたかインストール方法についてご教授お願い致します

41: 38 [sage] 2021/10/03(日) 15:42:34.37 ID:Etawdk1b(1) AAS
お騒がせしました
Transfer-Encording: chunked
ってやつだった
これかどうかを確認して別処理か…面倒くさあい

42(1): デフォルトの名無しさん [] 2021/10/03(日) 20:15:27.91 ID:s9ykO0bu(1) AAS
>>40
マジレスするとperlを捨てるチャンス

43: デフォルトの名無しさん [sage] 2021/10/03(日) 20:18:20.58 ID:prztZm/y(1) AAS
>>42
そのかわりに何を勧めんの？
Windowsのイベントログを扱いたいヤツに。

44: デフォルトの名無しさん [] 2021/10/03(日) 22:00:09.32 ID:ngVDhrCg(2/2) AAS
40です。
通常Makefile.PLでインストールするようなのですが、
上記tar.gzには、Makefile.PLがなく、
Message.pmがあるのですが、
これは、strawberryperlにはインストールできないのでしょうか？

45: デフォルトの名無しさん [sage] 2021/10/03(日) 22:14:43.18 ID:BlQUkwCi(1) AAS
できるかどうか自分で試すしかない
他人にやってもらおうってのは虫が良すぎ

46: デフォルトの名無しさん [sage] 2021/10/21(木) 12:31:10.82 ID:gLUi04Um(1/2) AAS
my $str = "<img src=\"./test1.png\" style=\"width:100px;height:100px\">";
./test1.pngの部分を./test2.pngに置換するにはどうやればいいんですか？

my $str =~ s/test1.png/test2.png/g;というのじゃなくてtest1.pngの部分がどんな
画像URLでも置換できるように

47: デフォルトの名無しさん [sage] 2021/10/21(木) 12:49:12.67 ID:hpQkeFJy(1/2) AAS
test2.pngを変数にすればいいだけ

48: デフォルトの名無しさん [sage] 2021/10/21(木) 12:53:02.13 ID:gLUi04Um(2/2) AAS
いやそうじゃなくて正規表現使ったやつで

49: デフォルトの名無しさん [sage] 2021/10/21(木) 13:11:31.93 ID:hpQkeFJy(2/2) AAS
s/src=".+?"/src="test2.png"/

50: デフォルトの名無しさん [sage] 2021/11/08(月) 18:04:06.58 ID:H7HFgRE2(1/2) AAS
{a}ab{abc}
{}で囲まれたaだけdに置き換えたい
どうやればいいんですか？

{d}ab{dbc}になればいいってこと

51: デフォルトの名無しさん [sage] 2021/11/08(月) 18:59:06.40 ID:JELTvgr2(1) AAS
それだけじゃ分かんない
全ての条件を書かないと
それが解なんだけどね

52: デフォルトの名無しさん [sage] 2021/11/08(月) 22:10:38.33 ID:H7HFgRE2(2/2) AAS
本当にやりたいのは
my $line = "<img src='aaa.png' width='300' height='200'> 画像説明";
<>の中にある全ての を半角スペースに置き換えたいっす

実行結果は<img src='aaa.png' width='300' height='200'> 画像説明となればいいっす

送信したときブラウザが勝手に半角スペースを に変換しちゃうみたいなのでタグ内の半角スペースだけ元に戻したいから

53: デフォルトの名無しさん [sage] 2021/11/09(火) 00:02:06.84 ID:J0R6dl97(1/2) AAS
sub f {
my $s = shift;
$s =~ s/ / /g;
return "<$s>";
}

$line =~ s/<(.+?)>/f($1)/eg;

54: デフォルトの名無しさん [sage] 2021/11/09(火) 00:03:21.78 ID:J0R6dl97(2/2) AAS
sub f {
my $s = shift;
$s =~ s/＆＃160;/ /g;
return "<$s>";
}

$line =~ s/<(.+?)>/f($1)/eg;

55: デフォルトの名無しさん [sage] 2021/11/09(火) 00:36:22.21 ID:bwlPyLJQ(1) AAS
ありがとうございました

56(2): デフォルトの名無しさん [sage] 2022/01/06(木) 18:30:59.16 ID:LRBDWWjE(1) AAS
printで出力すると/nで改行できません
二重引用符で括ってもできません
なにをやっても/nがそのまま表示されます
調べても二重引用符で括れとか〈br〉とかしか出てきません

57: デフォルトの名無しさん [sage] 2022/01/06(木) 18:45:34.18 ID:qZej6RdN(1) AAS
スラッシュnは改行じゃないからな

58(1): デフォルトの名無しさん [sage] 2022/01/06(木) 20:07:08.37 ID:HyMw34ze(1) AAS
斬新な質問だ。ｗ
斜めの縦棒を日本語キーボードで入力しろ、と言われたらたしかにそうなるかもだが。

59: デフォルトの名無しさん [] 2022/01/07(金) 00:42:46.84 ID:+rjvm48j(1/2) AAS
>>56
\n でやってみな。

60: デフォルトの名無しさん [] 2022/01/07(金) 00:45:13.42 ID:+rjvm48j(2/2) AAS
>>58
やはり \ (\x5c) の歴史的な事情を知らないと分からないのだろうな。

61: 56 [sage] 2022/01/07(金) 18:30:12.92 ID:j8/UZCr2(1) AAS
￥マークを\に変えたらできました
紛らわしいもんですね

62: デフォルトの名無しさん [] 2022/01/08(土) 10:43:35.54 ID:mAjXIrhA(1) AAS
そう。紛らわしいんだ。

63: デフォルトの名無しさん [sage] 2022/01/08(土) 23:05:04.70 ID:Df3tzX0P(1) AAS
逆スラッシュは、日本語・Windows 用のキーボードで、半角の\ と同じ

半角の\ と見た目が同じでも、異なる文字コードの文字があるので、
それは使わないようにすべき！

64: デフォルトの名無しさん [sage] 2022/01/09(日) 19:38:34.71 ID:C8vy8rqb(1) AAS
プログラムコードの中に全角文字を入れない
というだけで十分では?

65: デフォルトの名無しさん [sage] 2022/01/09(日) 20:41:20.51 ID:G7UaEudb(1) AAS
そんな話はしていない。
アホなの？

66: デフォルトの名無しさん [] 2022/01/09(日) 20:58:02.56 ID:j/1ajBbY(1) AAS
運用でカバーできる…そんなふうに考えていた時期が俺にもありました

67: デフォルトの名無しさん [sage] 2022/01/10(月) 00:32:28.18 ID:lVSGmVUf(1/2) AAS
おまいらの話がさっぱりわからん

もしかしておまいらの画面にはレス中の \ が \ と表示されてるのか？

68: デフォルトの名無しさん [sage] 2022/01/10(月) 00:32:56.45 ID:lVSGmVUf(2/2) AAS
あーやっぱりそうかｗｗ

69: デフォルトの名無しさん [] 2022/01/10(月) 00:57:25.51 ID:av6tewvz(1/3) AAS
U+005C なのか U+00A5 なのかという問題

70(1): デフォルトの名無しさん [] 2022/01/10(月) 01:03:42.10 ID:av6tewvz(2/3) AAS
以前 Linux の端末で Perl のプログラムで改行として￥ｎを入れたらそのまま画面に￥ｎが出て来て驚いたことがあったが、
その時はキーボードの「￥」を押すと U+00A5 が入力されており「＼」を押すと U+005C が入力されている状態だった。
もちろんキーボードの通りに端末画面に出る。

ま、しかし、これが本来あるべき姿だよな。

71: デフォルトの名無しさん [] 2022/01/10(月) 01:06:59.43 ID:9yjjKzLZ(1) AAS
お前ら安心しろ、PowerShellのエスケープ文字はバッククォート「`」だ

72(1): デフォルトの名無しさん [] 2022/01/10(月) 18:57:32.72 ID:iL7OUFIC(1) AAS
evalは使わない方がいいって聞いたけど
例外処理でeval使わない方がいいんですか？
それなら例外処理はどうすればいいんですか？

73: デフォルトの名無しさん [sage] 2022/01/10(月) 19:47:01.57 ID:VCZFr+j9(1) AAS
>>72
文字列のevalは使うなという話やろ？
でなければ、そう言ったヤツに聞かんと。

74: デフォルトの名無しさん [] 2022/01/10(月) 19:53:08.99 ID:av6tewvz(3/3) AAS
セキュリティホールを作ってしまうかも知れないから使うなら気をつけて使えってことだろう。
特に外部から入力した文字列を元にしてevalに渡す文字列を作る場合な。

75(2): デフォルトの名無しさん [sage] 2022/01/12(水) 14:32:06.61 ID:qWEJmmBb(1) AAS
>>70
Windowsだけが異常なだけなんでは？
俺は本来しか知らないよ

76: デフォルトの名無しさん [sage] 2022/01/12(水) 17:06:22.24 ID:MDxnZ/Jq(1) AAS
>>75
そうなんだろうな。問題は、そこらじゅうにWindowsマシンがあるといこと。
サーバは Linux でも端末が Windows だとおかしい状態で表示されたりする。
(端末用のソフトやその設定次第ではあるが)

77: デフォルトの名無しさん [sage] 2022/01/12(水) 18:28:08.05 ID:7zxmPeKt(1) AAS
>>75
遭遇頻度で言えば、Windows以外のほうがレアだけどな！

78: デフォルトの名無しさん [sage] 2022/01/26(水) 18:09:06.30 ID:m/HfztEH(1) AAS
子飼弾がyoutubeやってるって聞いたんで見てみた
老害オヤジみたいになっててなんだかなあ

79(1): デフォルトの名無しさん [sage] 2022/02/16(水) 15:00:10.27 ID:kgKTrVeV(1) AAS
2020年にPerl5.32あたりと同じ内容で2021までにはPerl7がリリース予定
目立った機能追加もないからさすがにリリース余裕だろうと思っとんだがあの話しどうなったの？
Perlコミュニティ機能してなくてそれすらなくなったとか？

80: デフォルトの名無しさん [sage] 2022/03/29(火) 03:26:40.85 ID:d1B39DZ4(1) AAS
未だにperlでwebサイト作ってるとこあんの？
2chはperlらしいが

81: デフォルトの名無しさん [] 2022/03/30(水) 15:15:52.21 ID:eA8ci9y2(1) AAS
2chはC言語では？
違ったっけ？

82: デフォルトの名無しさん [sage] 2022/04/23(土) 16:12:18.71 ID:07cLvGHn(1) AAS
ここに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

83: デフォルトの名無しさん [sage] 2022/04/24(日) 18:45:33.05 ID:5imQEA1W(1) AAS
>>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 だ

84(2): デフォルトの名無しさん [sage] 2022/08/11(木) 23:25:10.27 ID:LJKUJJ+3(1) AAS
perlファイルに書かれている1行目の記述（#!/usr/local/bin/perl等）を変更せずに、
apacheでperlの参照先を変えたい（出来ればvirtualhost毎）のですが、やり方分かる方ませんか？

85(1): デフォルトの名無しさん [sage] 2022/08/11(木) 23:37:59.40 ID:/k5aJ7yS(1) AAS
それOSの力を借りないと無理なのでは？ApacheやPerlの問題ではないと思うが。

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

86: デフォルトの名無しさん [sage] 2022/08/14(日) 20:49:57.28 ID:kr4fb0g+(1) AAS
>>85
OSはUbuntu 20.04.4 LTS を使っています。
何か方法はないでしょうか？

87(1): デフォルトの名無しさん [sage] 2022/08/14(日) 21:03:12.18 ID:pSnWmvh5(1) AAS
shebangを無視してファイルを実行するようなApacheモジュールを組み込んだらできるかも？
そんなモジュールはきっと存在しないので、自作が前提だけど。ｗ

88: デフォルトの名無しさん [sage] 2022/08/20(土) 02:15:42.15 ID:GHxw2S4o(1) AAS
>>87
shebangを使って出来るか試して見ますね

89: デフォルトの名無しさん [] 2022/08/23(火) 18:46:04.59 ID:gaXbg1Nc(1) AAS
Perlに限った話じゃないんだが、WSL1でubuntu 22.04を使うとWSL1上でgzipバイナリが動かないせいで、tar.gz関連処理が軒並みエラーになってしまう
cpanでモジュールをダウンロードするとtar.gzの展開に失敗するのでなにもインストールできない
解決するには、gzipのソースをgnu公式からダウンロードしてビルド＆インストールしてWSL1で動くgzipにパスが通るようにする必要がある

90: デフォルトの名無しさん [sage] 2022/08/24(水) 00:32:00.18 ID:Ww6nM5wc(1) AAS
>>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

みたいな

91: デフォルトの名無しさん [] 2022/08/25(木) 15:27:50.26 ID:bJn+zm7R(1) AAS
宇宙刑事 shebang

92: デフォルトの名無しさん [] 2022/08/26(金) 18:50:05.53 ID:NQ4mbOjq(1) AAS
>>84
Would you like

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

93: デフォルトの名無しさん [] 2022/08/26(金) 20:12:41.13 ID:fCaJRqVr(1) AAS
きまぐれでどれが呼ばれるか判らんものをよく使おうと思えるな

94(1): デフォルトの名無しさん [sage] 2022/08/26(金) 20:37:01.58 ID:KXcMIUBJ(1) AAS
gzはwin同梱のtarには付いて無いんか？

95: デフォルトの名無しさん [sage] 2022/08/28(日) 05:40:04.80 ID:vrDCS1ZD(1/3) AAS
>>94
PATH の通ったディレクトリに Windows 用の xz.exe を置いておくと tar の J オプションで展開してくれるようだが圧縮は対応していない模様。
圧縮は自分でパイプ通してやらないとできないみたい。何故そうなっているかは不明。

96: デフォルトの名無しさん [sage] 2022/08/28(日) 05:40:40.65 ID:vrDCS1ZD(2/3) AAS
あ、gz か。ごめん。xz と間違えた。

97: デフォルトの名無しさん [sage] 2022/08/28(日) 05:42:29.29 ID:vrDCS1ZD(3/3) AAS
あれ？でも gz (gzip) 圧縮なら tar cvfz でできたな。

98: デフォルトの名無しさん [] 2022/12/23(金) 15:18:23.84 ID:yhR2datD(1) AAS
perlに付属されているh2xsというツールを使ってモジュールを作成したいんですが、ディレクトリに移動に移動してコードを書く方法が分かりませんアドバイスお願いします。

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

99(1): デフォルトの名無しさん [] 2023/06/07(水) 16:24:29.96 ID:ywJ2sk66(1/2) AAS
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 で確認した。

100(1): デフォルトの名無しさん [sage] 2023/06/07(水) 21:31:39.79 ID:w5fTdC21(1) AAS
myはpackageとは何の関係もない
packageにmyのシンボルテーブルはない
だから(3)ではuninitialized value $P1::bbになる
(4)は単なる文字列
正常な振る舞いだよ

101: デフォルトの名無しさん [sage] 2023/06/07(水) 23:23:43.75 ID:ywJ2sk66(2/2) AAS
>>100
回答ありがとう、myがそういうものだと今日まで知らずにいた…おｒｚ

102: デフォルトの名無しさん [sage] 2023/06/08(木) 00:48:41.98 ID:ZzDLFGD7(1) AAS
myのスコープはブロック、ファイル、evalの３つ
パッケージとは無関係だから>>99ではファイルスコープになるね
package P2でもう一度my $bb宣言したらエラーになることからも分かる

103: デフォルトの名無しさん [] 2024/02/23(金) 07:50:24.93 ID:3WpPBYhb(1) AAS
あげ

104(1): デフォルトの名無しさん [] 2024/04/14(日) 21:35:03.76 ID:byNUCOGR(1) AAS
ローカルサーバーでsrandとrandで生成した乱数の値と
レンタルサーバーでsrandとrandで生成した乱数の値が違うのは何で？
どちらもsrandの値は同じとする。

105: デフォルトの名無しさん [sage] 2024/04/15(月) 00:21:17.88 ID:9X9lvy+w(1) AAS
このへんから探ってみては
https://github.com/search?q=repo%3APerl%2Fperl5+rand&type=code

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

106: デフォルトの名無しさん [sage] 2024/04/15(月) 12:41:15.37 ID:cLz3iDP/(1) AAS
プラットフォームのifdefで切り分けてそうだからそれっぽいマクロ定数でも探すといいかも

107: デフォルトの名無しさん [sage] 2024/04/15(月) 17:29:37.18 ID:UgC/I+2W(1) AAS
ビルドされた環境のCライブラリ依存じゃない？
同じにしたいならMath::Random::MTとか使えばいいんでね

108: デフォルトの名無しさん [sage] 2024/04/16(火) 09:32:57.50 ID:Fr3sHPgG(1) AAS
>>104
一般論としてPerlの内部実装は無保証でコロッコロ変わるので、疑似乱数の再現性を担保したいならコードを同梱してしまうのが最も確実

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

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

109: デフォルトの名無しさん [sage] 2024/04/16(火) 14:14:10.10 ID:ipSHedtl(1) AAS
print"A\n",print"B\n";

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

110: デフォルトの名無しさん [sage] 2024/04/16(火) 15:16:06.51 ID:UEoqQOMp(1) AAS
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");

111: デフォルトの名無しさん [sage] 2024/04/16(火) 15:37:42.78 ID:E/T1RXIg(1) AAS
成る程、() 使わない副作用意識しないとダメですね
ありがとうございます

112: デフォルトの名無しさん [sage] 2024/11/17(日) 20:01:50.35 ID:w8x6IOGf(1) AAS
poetryと同等の仕組みがないときつい

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.023s