【古典的モダン】Perlについての質問箱 51箱目

**デフォルトの名無しさん** · 2021/05/26(水) 10:55:29.83

かつて一斉を風靡したPerlについての当時のモダンな質問をするための質問箱です。

【一つ前のスレのテンプレ】当時の状況を鑑みまた芸術作品であることに配慮して原文のままとした。

【モダン推奨】Perlについての質問箱 50箱目

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://hibari.2ch.net/php/ )

回答する際はモダンな方法でお願いします
（例 jcode.plではなくEncodeモジュールを使った方法）
理由はもう2012年です。いい加減2000年以前の方法はやめましょう。
最新のPerlを使うほうがかっこいいです。
いつまで勉強しないつもりですか？
過去にとらわれるのはもうやめです。進歩しませんよ。

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

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

http://www.perl.org/get.html
● 2011/10/30 現在の最新版: 5.14.2

▼ 前スレ
Perlについての質問箱 49箱目
http://toro.2ch.net/test/read.cgi/tech/1319953460/
リンク集は >>2-3辺り
Perl 日本語処理の基礎の基礎 >>4辺り

**デフォルトの名無しさん** · 2021/05/30(日) 07:45:46.69

pythonとrubyは専用の目的しかなくて、perlは汎用

**デフォルトの名無しさん** · 2021/05/30(日) 10:22:03.16

yumのpythonは別枠っていうのは間違ってるけど気持ちは判らんでもない
python利用者側にvenvを強いるんじゃなくて
yumが自分専用のpythonを内包しておいて
後から入れたpythonの影響がほぼ皆無になる想定をしていれば良かった
blenderみたいに

**デフォルトの名無しさん** · 2021/05/30(日) 11:25:09.97

確か、Chef に内包しているRuby は、他と関係ない。
Chefだけを処理するもの

だから、サーバーにChefエージェントを送り込んでも、
内包してるRubyは、外部と無関係

**デフォルトの名無しさん** · 2021/05/30(日) 12:40:25.52

>>62

pythonとrubyは専用＋汎用
汎用のものならどの言語でも作れる

**デフォルトの名無しさん** · 2021/05/30(日) 13:51:16.08

>>61
ワイの理由はおまえに関係ない。
使おうと思ったときに使う。

他人の実装を制限したがったりもそうやが、いちいち他人に干渉すな。
独裁者なの？

**デフォルトの名無しさん** · 2021/05/30(日) 14:30:29.88

だからお前の理由を言えばいいだけなんだがｗ

**デフォルトの名無しさん** · 2021/05/30(日) 14:33:11.66

> 独裁者なの？

そういやこの間も某所で見かけたんだけど
自分の意見を言いたいんだろうなって時に
質問形式にするのってあれなんなんだろ？

本当は「お前は独裁者だ！」っていいたんだろう？
なんで質問するの？

**デフォルトの名無しさん** · 2021/05/30(日) 15:03:02.34

優しい終身の独裁者

**デフォルトの名無しさん** · 2021/05/30(日) 15:47:56.86

>>68
いいや？
おまえは独裁者でないから。ｗ
文意が読めないの？

**デフォルトの名無しさん** · 2021/05/31(月) 11:02:02.95

>>52
gitがperlに依存してるんだよ

**デフォルトの名無しさん** · 2021/05/31(月) 11:48:35.16

>>71
早くPerl依存なくしたいね

https://github.com/git/git

Languages
C 48.6%
Shell 36.7%
Perl 6.2%
Tcl 4.5%
Python 1.9%
Makefile 0.8%
Other 1.3%

**デフォルトの名無しさん** · 2021/05/31(月) 12:03:17.29

>>72
「なくしたい」？
おまえ、中の人なん？
だったらわかる。

でなければ、どういう意味？

**デフォルトの名無しさん** · 2021/05/31(月) 12:37:09.09

gitがCへの書き直しを進めてるのは割と有名
リリースノートにたまに記述がある

**デフォルトの名無しさん** · 2021/05/31(月) 12:51:53.24

プラグイン言語としてPythonが採用されるケースが多い
PerlはANSIビルド時代のサクラエディタでPerlScriptが使えた頃が最盛期かねぇ

**デフォルトの名無しさん** · 2021/05/31(月) 13:59:50.93

スクリプトでカスタマイズ可能にする時に、何か専用言語作ってもいいけど、
pythonそのまま使うのが一番楽だし喜ばれるからな

**デフォルトの名無しさん** · 2021/05/31(月) 15:38:18.76

>>74
>>73への回答なら、>>72の説明にはなっていないのだが。
Gitの方針が>>72の意思に関係あんの？

中の人でなければ、「なくしてほしい」「なくなってほしい」ならまだわかる。

**デフォルトの名無しさん** · 2021/06/01(火) 16:53:02.80

>>73
遅いPerlをなくして速いCに置き換えたいだけだが？
その方が移植性も上がるし

**デフォルトの名無しさん** · 2021/06/01(火) 17:40:55.45

むしろGit for WindowsとStrawberryPerlを統合してmsys,make,gcc,git,perlを使えるスイートにしてほしい

**デフォルトの名無しさん** · 2021/06/01(火) 19:05:49.83

>>78
中の人なら、「置き換えたい」とかこんなところで愚痴ってないで、さっさと置き換えればよい。はよ。

外野なら、何様？自他の区別ができないの？まともに読み書きできないの？
せめて、「置き換えていただきたいです」くらい言え！

**デフォルトの名無しさん** · 2021/06/01(火) 19:34:20.26

Gitの開発方針としてPerl依存を無くしたいと考えていて、>>72がそれに同意してんのは別にいいだろうて
Perlスレで話す話じゃないだろが

**デフォルトの名無しさん** · 2021/06/02(水) 01:44:14.86

いまはwindowsで書くときvscode使ってるの？

**デフォルトの名無しさん** · 2021/06/02(水) 09:01:19.84

もうPerlはみんなすぐ死ぬかいつ死ぬかの話しかしないなw
https://www.reddit.com/r/programming/comments/npv163/should_perl_die_gracefully/

**デフォルトの名無しさん** · 2021/06/02(水) 09:30:27.67

pythonがどこの現場でも使えるようになれば、今すぐ無くなってもいい

**デフォルトの名無しさん** · 2021/06/02(水) 12:26:34.22

perlがどこの現場でも使えるようになれば、今すぐ無くなってもいい

**デフォルトの名無しさん** · 2021/06/03(木) 20:09:48.96

10年くらい前から言ってたし、多分10年後も言っていると思う

**デフォルトの名無しさん** · 2021/06/03(木) 22:01:26.57

使ってる人が死なない限り、その人は使い続けるだろうからね

**デフォルトの名無しさん** · 2021/06/03(木) 23:37:06.23

shift-JISなんかなくなればいいのに
というのも同じ議論で、過去にshift-JISで書かれたテキストがあって、
それが存在している限り無くならない
新規にshift-JISで書く人は誰もいなくなってもずっと残る

**デフォルトの名無しさん** · 2021/06/04(金) 00:19:38.80

たわけた互換性破壊やしょうもない不具合が今後もほとんどないだろう。
と信頼されてる言語は数が少ないからな。

Rubyは全然論外だし、Pythonもまだそこまででは。

**デフォルトの名無しさん** · 2021/06/06(日) 15:05:27.15

forkをthreadsに変更したけど、threads->createもたまーに失敗するんだな
Can't call method "tid" on an undefined value
で止まってた

即リトライでいいのか?
つか止まらんでくれよ

**デフォルトの名無しさん** · 2021/06/11(金) 15:34:27.59

バイナリを作成するためのMakefileを作成するためのCMakeLists.txtを作成するためのPerlスクリプトって需要ある？

**デフォルトの名無しさん** · 2021/06/13(日) 12:07:10.85

そのバイナリは何を作成するものなのかね？

**デフォルトの名無しさん** · 2021/06/13(日) 12:11:27.70

ツイッターのタイムラインで時々見かける有名人@dankogaiさんがPerlのEncodeモジュール作者であることを最近知ったバイナリ

**デフォルトの名無しさん** · 2021/06/13(日) 12:48:06.37

ツイッターのタイムラインで時々見かける有名人@dankogaiさんがPerlのEncodeモジュール作者であることを最近知ったバイナリを作成するためのMakefileを作成するためのCMakeLists.txtを作成するためのPerlスクリプトって需要ある？

**デフォルトの名無しさん** · 2021/06/13(日) 12:50:42.48

特殊な語尾かと思った

**デフォルトの名無しさん** · 2021/06/13(日) 13:25:39.61

>>93
語尾がバイナリなのかバイナリ

**デフォルトの名無しさん** · 2021/06/13(日) 13:36:12.73

バイコロ助？

**デフォルトの名無しさん** · 2021/06/13(日) 18:54:02.72

dankogaiがもう少しwindowsに詳しければ（ユーザーに優しければ）perlのencodeモジュールがもっと使いやすくなったのではと思う。
中途半端に頭が良いのは困ったものだ。

**デフォルトの名無しさん** · 2021/06/13(日) 19:24:51.50

別のスレでパヨク扱いで晒されていて、何とも言えない気持ちになった

**デフォルトの名無しさん** · 2021/06/13(日) 19:28:31.48

バカか？
Nick Ing-Simmonsが亡くなったから弾子飼がメンテナンスを引き受けたんだよ

**デフォルトの名無しさん** · 2021/06/13(日) 19:29:56.96

>>95-97
以下んごたる信長の野望・全国版の方言に触発されてコロ助の音声出力モジュールを九州弁にEncodeしようとして失敗したバイナリ
https://pbs.twimg.com/media/EllLrByU8BQPCAn?format=jpg

**デフォルトの名無しさん** · 2021/06/15(火) 00:19:17.34

>>98
おまえはハンパなく頭悪そうだなｗ

**デフォルトの名無しさん** · 2021/06/23(水) 19:18:58.99

ファスト映画配信容疑で3人逮捕｜共同通信
https://nordot.app/780292176086007808

Dan Kogai
https://twitter.com/dankogai/status/1407562029687181317
これ、勝手に縮めて勝手に配信して勝手に売上得るのはアウトだけど、
サブスクリプションで見放題のサービスでダイジェストするAIアドオンとかダメなのだろうか？
シン・エヴァのイントロみたく公式がやってる例さえあるし需要は大きい

山本一郎（Ichiro Yamamoto）
https://twitter.com/Ichiro_leadoff/status/1407562963431563267
駄目に決まってるだろ
https://twitter.com/5chan_nel (5ch newer account)

**デフォルトの名無しさん** · 2021/07/17(土) 10:23:07.65

windows updateしたらreaddirできなくなった

**デフォルトの名無しさん** · 2021/07/19(月) 21:09:49.34

ﾌｰﾝ

**デフォルトの名無しさん** · 2021/07/19(月) 22:13:40.11

超おま環で、特定のディレクトリだけで起きる現象だった
再現性は100%なんだけど原因がさっぱり判らん

**デフォルトの名無しさん** · 2021/07/19(月) 23:47:54.25

ディレクトリエントリが壊れたんやろ。
SSDなら、機械的寿命到達のお知らせ？

**デフォルトの名無しさん** · 2021/07/20(火) 00:56:36.47

こないだ停電あったしな
chkdskかけとこ

**デフォルトの名無しさん** · 2021/07/20(火) 23:59:28.34

ファイルシステムが壊れただけでは？ディスクチェックすれば直おらんかな？

**デフォルトの名無しさん** · 2021/07/21(水) 12:35:25.91

余計悪化する悪寒

**デフォルトの名無しさん** · 2021/07/21(水) 13:55:42.65

H/Wが壊れかけの場合、chkdskを実行すると止めを刺すことになるかもね

**デフォルトの名無しさん** · 2021/07/21(水) 15:36:00.45

必要なデータをバックアップした上でやればいいのさ
とどめさせば交換する気にもなるだろ

**デフォルトの名無しさん** · 2021/07/21(水) 23:18:36.13

while ($i <= $#array)
みたいなループの中で、
$array[$i + 2]
を参照すると、$#array が変わってしまって意図した条件でループを抜けない

どうしたもんか

**デフォルトの名無しさん** · 2021/07/22(木) 09:47:08.47

>>113
参照では変わらない
もし変わるなら参照する前に$iが範囲外か判定する

趣味でもstrictとワーニングの確認くらいはするけどね

**デフォルトの名無しさん** · 2021/07/22(木) 11:12:07.90

変わらない
もし変わるなら

どっちやねん

**デフォルトの名無しさん** · 2021/07/22(木) 12:05:00.22

範囲内をアクセスしてるうちは変わらない
範囲外をアクセスするとそのタイミングで自動で範囲を広げてしまうので変わってしまう

**デフォルトの名無しさん** · 2021/07/22(木) 12:10:36.98

元のサイズを一旦変数に設定しておく
じゃだめなの？

**デフォルトの名無しさん** · 2021/07/22(木) 12:47:48.86

>>115
相手が>>113みたいなクソコードなんやからしゃあない。
範囲外要素の参照ならクラッシュするか配列自動拡張するかの究極二択なんやし。

**デフォルトの名無しさん** · 2021/07/22(木) 12:48:34.05

>>115
もしかして実装による?と気を使って書いたけど、変わらねぇよ

perl -we "@array=(1,2); print qq($#array\n); print qq($array[10]\n); print qq($#array\n)"
1
Use of uninitialized value $array[10] in concatenation (.) or string at -e line 1.

1

**デフォルトの名無しさん** · 2021/07/22(木) 13:40:30.97

$array[$i + 2]->{name}
みたいなのだと変わる

**デフォルトの名無しさん** · 2021/07/22(木) 18:23:33.84

autovivifyはマジでバグの元

**デフォルトの名無しさん** · 2021/07/23(金) 02:03:51.68

Hash は読もうとしただけでも作られちゃうね。こういうことも起こる。

$ perl -MData::Dumper -e '$x{"a"}{"b"}; print Dumper(\%x);'
$VAR1 = {
'a' => {}
};
$

**デフォルトの名無しさん** · 2021/07/23(金) 10:05:47.15

no autovivification できるんですね。勉強になりました。

**デフォルトの名無しさん** · 2021/07/24(土) 04:24:55.90

Qiita に書いてる人がいた。

autovivificationとうまく付き合う
https://qiita.com/debug-ito/items/bf903f51c63b28df4bda

**デフォルトの名無しさん** · 2021/07/24(土) 10:41:41.07

no autovivificationがデフォルトだといいけど、それだと遅いんだろうな

**デフォルトの名無しさん** · 2021/07/24(土) 10:44:18.61

つまらん隔離スレ上げるより
下がってるスレで下げ進行の方が面白いぞ

**デフォルトの名無しさん** · 2021/07/24(土) 10:49:20.36

よその先進的な言語さんはそのへんどうなってるんだろう
初期化してないものを参照したらエラーで終了?

**デフォルトの名無しさん** · 2021/07/24(土) 13:02:23.11

時代と思想やろ。
厳密さよりもおおらかさな言語。

Perlには例外もないしな。
die+evalで似たようなことはできるが、原因は特定できんし。

**デフォルトの名無しさん** · 2021/07/24(土) 14:31:25.21

Rakuだとautovivificationは無くなってるよ
誰も知らないと思うけど

**デフォルトの名無しさん** · 2021/07/24(土) 14:35:48.18

Perlは$の文字入力がやたらと多くなるのが玉に瑕
$をShifitキー押下なしで入力できるキーボードが標準だったら、世間のPerlへの評価も違ったものになっていたと思う

**デフォルトの名無しさん** · 2021/07/24(土) 15:05:42.54

>>130
そこはシェルとかPHPもあるからそんなに問題ではないと思うけどな
文字列に変数埋め込みの時にもそのままかける利点もある
変数を視認しやすいから読む時はかなり便利だよ

**デフォルトの名無しさん** · 2021/07/24(土) 18:15:48.35

予約語を区別しなくてよい利点も。

Cとかで予約語を識別子として書くとわけのわからないエラーになりがち。
シェルは逆に、組み込み変数が多すぎて混乱することもある。
Perlはほどほどでいい落としどころ。

**デフォルトの名無しさん** · 2021/07/24(土) 18:32:18.88

どう見ても予約語なものを変数名にして、
それはそれで動くけどエディタが間違って色を付ける

**デフォルトの名無しさん** · 2021/07/24(土) 20:03:42.01

>>133
それはエディタが悪い

**デフォルトの名無しさん** · 2021/07/24(土) 20:10:49.65

正規表現の色付けもよく間違う

**デフォルトの名無しさん** · 2021/07/30(金) 18:20:35.62

スクレイピングしたいんですけど何を勉強すればいいですか
不正アクセスに問われたりしないでしょうか？
セキュリティ対策はどのようなことに注意すればよいでしょうか？

**デフォルトの名無しさん** · 2021/07/30(金) 19:00:06.70

httpsでいきなり躓くので、新しい言語の方がいいのでは

**デフォルトの名無しさん** · 2021/07/30(金) 22:05:38.04

>>136
ほぼ禁止してると思うよ

**デフォルトの名無しさん** · 2021/08/31(火) 19:26:38.99

threads->create しながら detach しながら、
前のスレッドがdetachするちょっと前に次のスレッドを作って、
基本的には1つしか動いてない

みたいな動作のまま放置すると、そのうちスレッドの作成に失敗するようになる
オーバーラップさせようとしている期間だけ失敗して、前のスレッドが無くなると成功する
そのままさらに放置すると、スレッドが全く作成できなくなる

何かが溜まっていって上限に達してるように見えるけど、何か制約ある?

**デフォルトの名無しさん** · 2021/10/27(水) 12:06:56.11

%hash = { key => value };
みたいに書いてエラーになる原因は絶対pythonだ

**デフォルトの名無しさん** · 2021/11/02(火) 20:15:13.69

それって参照ですよね？

**デフォルトの名無しさん** · 2021/11/02(火) 20:54:35.41

ハッシュにリファレンスを入れるとどうやって使うんだ?
別にエラーにはならないんだよな

**デフォルトの名無しさん** · 2021/11/03(水) 16:03:42.69

>>142
use warnings プラグマ指定されてると、Reference found where even-sized list expected at XXX.pl line YYY. みたいな警告が出るけど

**デフォルトの名無しさん** · 2021/12/07(火) 17:41:22.93

$item = $item[$i];

みたいな書き方してると、移植する時に困るな

**デフォルトの名無しさん** · 2021/12/07(火) 21:30:11.79

@itemsやね

**デフォルトの名無しさん** · 2021/12/07(火) 21:39:19.02

さらに$item{$key}もいる

**デフォルトの名無しさん** · 2021/12/08(水) 02:33:21.38

$item = $items[$i];

とか

foreach my $item (@items){

はよく見る。

**デフォルトの名無しさん** · 2021/12/08(水) 08:57:19.95

$item{$key}だと思ったら、$item->{$key}で、
うっかり$itemも使って書き換える、というのが自分のバグ原因1位

**デフォルトの名無しさん** · 2022/01/03(月) 14:11:28.15

0～9と+-以外の文字が含まれている場合は入力制限としたい場合

my $data = "-23456";
if($data =~ /[^0-9+-]/){
print "入力制限";
}
とやっても入力制限になってしまいます
どうやればいいんですか？

**デフォルトの名無しさん** · 2022/01/03(月) 14:28:13.30

１４９だけどこれでよかったです。
解決しました

**デフォルトの名無しさん** · 2022/01/04(火) 00:39:15.19

マイナス記号ってさ、 [] の中だと a-z と書いて a から z の意味にしてたりするじゃない。だから \- にしといた方が良いんだよ。
その例のように最後に使うなら大丈夫だろうけどね。

プラス記号に関しては [] の中だと任意の1文字の意味は消えてるように思うけど念のため \+ にしといた方が良いような気がする。(調べてない)

**デフォルトの名無しさん** · 2022/01/04(火) 00:46:20.99

難しいこと考えず記号を全部エスケープしときゃいいんだよ
へたに救済ルールがあるせいで混乱する

**デフォルトの名無しさん** · 2022/01/04(火) 14:31:56.40

チェッカーにかけるとエスケープしなくていいものをエスケープしてると指摘される

**デフォルトの名無しさん** · 2022/01/04(火) 15:57:51.97

Perlに慣れすぎると、Sedとかで事故りがち。

**デフォルトの名無しさん** · 2022/02/12(土) 12:48:37.74

sedに戻る必要とかあるの？

**デフォルトの名無しさん** · 2022/02/12(土) 23:03:57.39

あるときもある。

**デフォルトの名無しさん** · 2022/02/13(日) 00:17:15.83

最新言語から見ればsedもperlも同じ

**デフォルトの名無しさん** · 2022/02/13(日) 11:34:49.61

sed使うときは-Eオプション使うとマシになるよ
grepなんか-Pオプションなんてあるし

**デフォルトの名無しさん** · 2022/02/13(日) 11:42:02.90

grepは今でも普通に使う
perlより圧倒的に速い

**デフォルトの名無しさん** · 2022/02/13(日) 12:48:15.74

MINGW版のgrepは-Pオプション使えないんだよなあ

**デフォルトの名無しさん** · 2022/02/14(月) 18:49:00.35

うちのは使えるみたいだな

$ grep --version
GNU grep 2.5.4

Copyright (C) 2009 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>;
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

$ grep --help | egrep '(-P|-o)'
-P, --perl-regexp PATTERN is a Perl regular expression
-b, --byte-offset print the byte offset with output lines
-o, --only-matching show only the part of a line matching PATTERN
-u, --unix-byte-offsets report offsets as if CRs were not there (MSDOS)

$ uname
MINGW32_NT-6.2