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

**デフォルトの名無しさん** · 2019/02/01(金) 09:44:37.18

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: https://medaka.5ch.net/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.28.1)

▼前スレ
Perlについての質問箱 61箱目
http://toro.5ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.5ch.net/test/read.cgi/tech/1385039352/
Perlについての質問箱 63箱目
https://mevius.5ch.net/test/read.cgi/tech/1392820583/

**デフォルトの名無しさん** · 2020/03/14(土) 19:34:39.97

WSLつかえ

**デフォルトの名無しさん** · 2020/03/14(土) 22:58:59.61

>>355
理由を聞いてどうするんや？
文字コードとかややこしいから、対応してないんやろ。

**デフォルトの名無しさん** · 2020/03/14(土) 23:16:24.90

分からんのなら黙ってろやチンカス

**デフォルトの名無しさん** · 2020/03/14(土) 23:39:11.11

暗号化って、base64 とかだろ。
ascii だけだろ

Ruby なら、こういうやつだろ

module SecureRandom
https://docs.ruby-lang.org/ja/latest/class/SecureRandom.html

**デフォルトの名無しさん** · 2020/03/14(土) 23:44:18.11

keyの方は何でもokなんだけどな

**デフォルトの名無しさん** · 2020/03/15(日) 03:21:52.90

>>358
わかってもなにもできんくせに
ゴミクズ

**デフォルトの名無しさん** · 2020/03/15(日) 18:38:42.70

グレタちゃんのクリトリスは100カラットのルビー

**デフォルトの名無しさん** · 2020/03/16(月) 09:00:22.83

>>355
ここに書き込む前に、perldocを嫁
If using crypt on a Unicode string (which potentially has characters with
codepoints above 255), Perl tries to make sense of the situation by
trying to downgrade (a copy of) the string back to an eight-bit byte string
before calling crypt (on that copy). If that works, good.
If not, crypt dies with Wide character in crypt .

おそらく、crypt はPOSIXの仕様に合わせているから、こうなるのではないかと思う。

**デフォルトの名無しさん** · 2020/03/16(月) 19:53:11.24

128-255を渡しても止まるんだけどね
エラーが出るとかじゃなくて異常終了する
仕様だとは思い難い

**デフォルトの名無しさん** · 2020/03/16(月) 20:07:47.98

「異常終了」じゃなくて、「die」してるんちゃううんか？
>>363にもそう書いてあるやろ。

トラップしたけりゃevalしろ。

**デフォルトの名無しさん** · 2020/03/16(月) 20:22:32.11

die すると何かエラーメッセージ出しておとなしく終了するんじゃないのか?
windowsに怒られとるぞ

**デフォルトの名無しさん** · 2020/03/17(火) 00:31:17.78

この言語はなにが起こるかわからんので基本evalで囲わないとやってられませんね

**デフォルトの名無しさん** · 2020/03/17(火) 00:59:40.01

トラップでevalってなんだっけ？ｗ
Perlやめてから結構立つから忘れた。
なんかそんなのあったなｗｗｗ

今？Perlからシェルスクリプトに回帰していますがなにか？

**デフォルトの名無しさん** · 2020/03/17(火) 05:25:03.15

>>368
これ
https://perldoc.jp/func/eval
eval BLOCKってやつ

try catchみたいなもん

**デフォルトの名無しさん** · 2020/03/17(火) 08:02:58.85

エラーが返るならtryできるだろうけど、試してみたら異常終了するようなもんも避けられるのか?

**デフォルトの名無しさん** · 2020/03/17(火) 21:45:41.98

https://i.imgur.com/T58MWmG.png
evalでもトラップできない

**デフォルトの名無しさん** · 2020/03/18(水) 00:13:57.91

man にはどう書いてあるの? Perl の crypt じゃなくて C のライブラリの方だよ。

**デフォルトの名無しさん** · 2020/03/18(水) 01:56:55.56

WindowsだしActivePerlのようだし、何がおきてもふしぎじゃないな。ｗ

**デフォルトの名無しさん** · 2020/03/18(水) 09:12:43.24

Windows10、activeperl 5.20なんだけど、次のコードできちんと動く。何が問題なのか解らない。

$res = eval {crypt('aaa', 'ppp')};
print "1. $res\n";
$res = eval {crypt('aaa', 'あ')};
print "2. $res\n";
$res = crypt('aaa', 'ppp');
print "3. $res\n";
$res = crypt('aaa', 'あ');
print "4. $res\n";
__END__

1. ppFj4OYENOP9c
2. 縺VSnoxRf90hw
3. ppFj4OYENOP9c
4. 縺VSnoxRf90hw

**デフォルトの名無しさん** · 2020/03/18(水) 19:35:06.32

Windows7とか？

**デフォルトの名無しさん** · 2020/03/28(土) 10:30:07.37

検索が遅い
いろんな条件に対してファイル全体を検索、ということをする時に、
OSのキャッシュに頼って毎回 `grep` する方が速い
メモリに読み込んで検索すると負ける
ループで$data[$i] =~ /$pattern/ した方がまだ速くて、
grep {/$pattern/} @data するともっと遅くなる

大量一括検索の高速化のテクニックみたいなの何かあるのかな

**デフォルトの名無しさん** · 2020/03/28(土) 18:48:22.67

>>376
https://metacpan.org/search?q=grep
使った事ないが MCE::Grep 辺りは説明読む限り速そう

**デフォルトの名無しさん** · 2020/03/28(土) 18:55:38.49

もっと基本的な話なら perlperf
https://perldoc.jp/docs/perl/perlperf.pod

**デフォルトの名無しさん** · 2020/03/28(土) 19:23:29.33

MCE::GrepはCPUの使用率は上がるけど遅くなった
grepよりは正規表現の処理のあたりが時間かかってるんだと思う

感覚的にはもっと高速でも全然おかしくない感じなのに

**デフォルトの名無しさん** · 2020/03/28(土) 19:34:33.22

100MBのファイルからパターンに合う行を全部抽出するのに1秒かかるくらいの感じ
で、パターンが250もあるから、コーヒーが飲めるくらい待たされる

**デフォルトの名無しさん** · 2020/03/28(土) 20:00:38.86

俺だったらgrepでやっちゃうなぁ
結果はファイル経由で

**デフォルトの名無しさん** · 2020/03/28(土) 21:36:49.99

>>376
qr//で事前に正規表現をコンパイルしてみたら？

**デフォルトの名無しさん** · 2020/03/28(土) 21:55:00.53

同じパターンで繰り返し検索するのではなくて、
いろんなパターンで同じ対象を検索するので、コンパイルはできない

でも、パターンのリストは実行前に確定しているので、
qrで作ったものを配列に持たせておけば速くなるだろうか

**デフォルトの名無しさん** · 2020/03/28(土) 23:16:33.34

もはや perl の能力を超えているな
C とかで書いた方がいい

**デフォルトの名無しさん** · 2020/03/28(土) 23:24:04.96

パターンの内容にもよるが、flex で書いて Inline::C で呼ぶという方法もある。

**デフォルトの名無しさん** · 2020/03/28(土) 23:25:40.33

色んなパターンで？
grep -f でパターン読ませてやるのと同じか？

**デフォルトの名無しさん** · 2020/03/29(日) 09:15:52.43

素の Perl は NFA だけだから、どうしても速度的には不利になる。
パターンが250もあるなら尚更だ。
grep との差はPerl と C の差はもちろんあるだろうが
DFA でできるパターンなら、その差が大きいと思う。

**デフォルトの名無しさん** · 2020/03/29(日) 09:42:19.51

linuxだったら素直にgrep呼べばいいだけだけど、
windowsだと素性が良くて高速なgrepを探すところでまず困難がある
さらに、grepに引数を渡すところにもエスケープ文字の困難があって、
結果の受け取りにも文字コードの困難が

**デフォルトの名無しさん** · 2020/03/29(日) 17:43:38.29

そういえば awk は DFA じゃなかったかな。

**デフォルトの名無しさん** · 2020/03/30(月) 00:14:28.89

perl の Memoize は関数全体に掛けるようですが、
ruby の @memo、javascript の memo の変数に掛けるのは新し目の使い方でしょうか

**デフォルトの名無しさん** · 2020/03/30(月) 04:32:31.95

>>388
WSLのUbuntuだとどうなのだろうか？
あれ遅い？

**デフォルトの名無しさん** · 2020/03/30(月) 08:35:14.72

NFA でなければならない理由がないなら DFA にするだけで速度 1000 倍は堅いかも。
でも Perl のままでも正規表現のチューニングは可能だ。まだやってないならね。
実際に使ってるパターンを見せてもらわないことにはなんとも言えないが。

**デフォルトの名無しさん** · 2020/03/31(火) 12:53:45.32

>>388
普通にWSLを使えばいいだけでは？

**デフォルトの名無しさん** · 2020/03/31(火) 22:24:02.97

win8.1のサポートが終わった頃に思い出したら使ってみよう

**デフォルトの名無しさん** · 2020/04/22(水) 13:25:13.88

@array = ($str =~ /(PAT1).+?(PAT2).+?(PAT3)/g);
みたいにすると、パターン3つ分が配列に入るけど、他にもマッチするとそれも続けて入る
できれば2次元配列になって欲しい
そんな技はある?

**デフォルトの名無しさん** · 2020/04/22(水) 18:47:25.28

そういうことをする時のセオリーはスカラコンテキストで
$str =~ /\G$pat/g

**デフォルトの名無しさん** · 2020/04/22(水) 19:29:55.51

可能?

$str = '1a2b3c1x1d2e3f1g2h3i';
を与えられて
[[a, b, c], [d, e, f], [g, h, i]]
を得るにはどうすれば

**デフォルトの名無しさん** · 2020/04/22(水) 20:38:21.44

my @arr = ();
while ($str =~ /\G.+?([a-z]).+?([a-z]).+?([a-z])/g) {
　　push @arr, [$1, $2, $3];
}

**デフォルトの名無しさん** · 2020/04/22(水) 20:54:42.93

[[a, b, c], [x, d, e], [f, g, h]]
になっとるよ

**デフォルトの名無しさん** · 2020/04/22(水) 20:56:31.77

でも判った
普通に$1使えばいいだけか
結果を一つずつスカラに取るんだと思ってた

**デフォルトの名無しさん** · 2020/04/22(水) 21:01:22.02

/\G.*?1(.)2(.)3(.)/g
これがやりたかったこと

**デフォルトの名無しさん** · 2020/04/22(水) 21:27:03.82

結局コードはあんまり変わらなくて、ループで
push @array, ($1, $2, $3)
にするか、後で
splice(@elements, 0, 3)
を使っていくかの違い

パターンを3つから4つに増やした時に、
$4を追加するか、3を4に増やすかのメンテはやっぱり必要
いきなり2次元配列が得られるスマートさからは劣る

**デフォルトの名無しさん** · 2020/04/22(水) 21:30:34.59

どうやら今回は必要ないみたいだけど事前にグループの個数が
判らないという前提なら @- とか見ればいい。
あるいはグループに名前を付けて %+ を使えばいい。
全部ここに書いてあるよ。
https://perldoc.jp/pod/perlretut

**デフォルトの名無しさん** · 2020/04/22(水) 21:32:10.06

Perlで、とある配列を指定した要素数ごとに別の配列リファレンスに分割する処理をList::MoreUtilsモジュールで書き直してみた
https://perl48.hatenablog.com/entry/2018/08/19/005304

**デフォルトの名無しさん** · 2020/04/22(水) 23:57:47.29

名前を付けるような性格のものじゃなくて個数が変わる可能性があるなら
個数だけ与えてパターンを組み立てればいいよ。
$1,$2 とか書かなくても
map { ${$_}} 1 .. $n
で同じことができるし。
リストコンテキストで配列に入れてから splice する方がいいと思うならそうすればいい。

**デフォルトの名無しさん** · 2020/04/23(木) 08:13:25.78

目指すのは、個数がいくつなのか人間が把握しなくていいコード

**デフォルトの名無しさん** · 2020/04/23(木) 08:30:38.98

できるでしょ。自分がスマートになってスマートなコードを書けばいい。

**デフォルトの名無しさん** · 2020/04/23(木) 12:10:21.89

完全に数値って決まってるんなら、俺ならsplit使っちゃうな
@a = split /\d/, $str;
まあこんな単純な話じゃないんだろうけど

**デフォルトの名無しさん** · 2020/05/01(金) 10:49:51.92

activeperlで
$res = `exefile $file`;
みたいなことをした時に、
コマンドプロンプトからスクリプトを起動するとちゃんと動く
でも、スクリプトをランチャーから起動するとno such fileになる
ファイル名が英数ならどちらもok
2byte文字が混じると挙動が変わる

起動の仕方によってパスの取り扱いとか変わる?

**デフォルトの名無しさん** · 2020/05/01(金) 12:19:28.98

あ、違う
2byte文字ではなくドライブの違いだった
ネットワークドライブにあるとアクセスできない
コマンドプロンプトからならできる

**デフォルトの名無しさん** · 2020/05/01(金) 13:08:35.22

結局、ランチャーに管理者権限が付いてるのが原因

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
EnableLUA 1 -> 0
これで解決する
perl関係ない

**デフォルトの名無しさん** · 2020/05/01(金) 13:13:09.83

ランチャー自身か、ランチャーの起動方法がよくないんやろ。
ネットワークドライブの認証(ログオン)かそのタイミングがあやしい。

**デフォルトの名無しさん** · 2020/05/01(金) 13:13:40.55

あら、自己解決？

**デフォルトの名無しさん** · 2020/05/10(日) 19:19:00.31

質問させてください。
WindowsでActivePerlを使っています。
perl で、あるファイルを、関連付けられたアプリケーションで開く
には、どのようにすればよろしいでしょうか？

例えば、xx_system('foo.txt') のようにすると、'.txt'に
関連つけられたアプリケーションで、'foo.txt'を開くような
動作を実現したいのですが。

**デフォルトの名無しさん** · 2020/05/10(日) 21:12:47.84

system(1, 'foo.txt');

**デフォルトの名無しさん** · 2020/05/10(日) 22:26:25.38

>>415
動きました。ありがとうございました。

**デフォルトの名無しさん** · 2020/05/28(木) 11:01:17.93

最近 python を使い始めたんだけど、使うほどに perl 凄げーって思う。
perlって細かいこと気にしないでも書けるって感じ。
まあ、 python に慣れてないってのもあるけどw

**デフォルトの名無しさん** · 2020/05/28(木) 12:00:57.19

細かいことを気にしないせいでバグの原因になるので、
きちっとしか書けないようにした

perlの不満を解消してもっと簡単に書けるようにしたのは、
rubyの方が正常進化だと思う

**デフォルトの名無しさん** · 2020/05/28(木) 12:46:18.60

>>418
use strict;
use warnings;

**デフォルトの名無しさん** · 2020/05/28(木) 12:49:38.27

Perl は、暗号のような記号が多いから、皆嫌う

Ruby は可読性を上げるために、それらの記号を無くそうとしている

**デフォルトの名無しさん** · 2020/05/28(木) 13:57:57.17

>>420
変数の型を知るのに
宣言まで見ないとわからないのがJava
代入まで探さないとわからないのがpython
見るとその場でわかるのがperl
宗教論争は終わらない

**デフォルトの名無しさん** · 2020/05/28(木) 14:14:16.30

マウスオーバーで判るようなものをいちいち書かなくても

**デフォルトの名無しさん** · 2020/05/28(木) 19:40:22.87

PerlでIDEは使わないわな

**デフォルトの名無しさん** · 2020/05/28(木) 20:04:53.96

んなこたーない

**デフォルトの名無しさん** · 2020/05/28(木) 20:14:52.80

いやいやPerl書いてるときマウス触らんでしょ
まあ人によるんだろうが

**デフォルトの名無しさん** · 2020/05/28(木) 20:21:04.17

ロジックが逆だ
perlが型が判るからマウスを触らないのではなく、
マウスを触らないで作ったからマウスなしで型が判るようになってる

MT免許だからといってATに乗ってはいけない訳ではない

**デフォルトの名無しさん** · 2020/05/29(金) 20:28:53.39

Perl の IDE って、どんなのがある?

Eclipse とか IntelliJ IDEA のプラグインで使えたとは思ったが、拡張子を .pl にしておかないと Perl だと判別してくれなくて
ただのテキストファイルと認識されちゃって使い辛いなと思ったことはあるが、もっとまともなのある?

**デフォルトの名無しさん** · 2020/05/29(金) 20:32:29.66

vscode + Perl::LanguageServer

**デフォルトの名無しさん** · 2020/05/29(金) 20:34:34.78

サクラエディタで十分なんですよ(´・ω・｀)

**デフォルトの名無しさん** · 2020/05/29(金) 21:27:39.95

拡張子を ,pl にしないメリットってなんかある?

**デフォルトの名無しさん** · 2020/05/29(金) 21:28:20.85

実行ファイルはpl
モジュールはpm
そんな事も知らんのか(´・ω・｀)

**デフォルトの名無しさん** · 2020/05/29(金) 21:36:34.81

perlはvimで書く。
お兄さんとの約束だよ。

**デフォルトの名無しさん** · 2020/05/29(金) 21:38:26.77

mattnさんはパンツ履いて

**デフォルトの名無しさん** · 2020/05/29(金) 23:37:14.00

>>430
Linuxでは、いちいち拡張子をつけないのがふつう。
中身を気にしなくてよくなる。

**デフォルトの名無しさん** · 2020/05/30(土) 00:29:42.29

>>434
cとかshellとか拡張子をつけるのが普通なんじゃないの?

**デフォルトの名無しさん** · 2020/05/30(土) 00:31:15.77

ソースは付ける
実行ファイルは付けない
スクリプトはソースよりも実行ファイル寄り

**デフォルトの名無しさん** · 2020/05/30(土) 00:42:58.21

拡張子つければ伝わるであろう情報を削るとか
一人で管理してるサーバならいいけど
そうじゃなきゃ害悪だと思う

**デフォルトの名無しさん** · 2020/05/30(土) 01:44:27.37

人間がエディトするファイルは付ける
人間がエディトしないファイルは付けないんじゃないの?

**デフォルトの名無しさん** · 2020/05/30(土) 01:51:00.93

運用においては、実行ファイルの実装方法なんかどうでもいい。
むしろ、実装方法を変えたら、ファイル名も変わるほうがはるかに害悪。

たとえば、シェルスクリプトをPerl スクリプトに変えただけで、そのスクリプトを使っているところをすべて変更しないといけなくなる。

**デフォルトの名無しさん** · 2020/05/30(土) 03:26:43.00

昔々 MS-DOS (更にそれの元になった CP/M)はファイル名に固定で3文字の拡張子があり、
それによって実行ファイルかどうかを判定していて、Windows はそれを引き継いでいるので
拡張子を使っているだけ。

UNIX系OSはそもそも拡張子という概念はなく、実行ファイルは実行パーミッションのビットが
立っているかどうかで判定していた。C言語のソースに .c を付けたりはするが、あれは拡張子
ではなく接尾辞で主に人間やそれを読むコンパイラ等がファイルの種別をファイル名から判断
するためにある。だからOSから見たら .c の部分に特別な意味はなくファイル名の一部でしかない。

Windows だと例えば .exe のファイルなら .exe を抜いた拡張子なしのファイル名を指定して
OSに実行させる事は可能だが、これはOSが拡張子部分を特別扱いしているからだ。
UNIX系OSではそのような方法では実行できずファイル名を全て指定する必要がある。xxx.pl なら
xxx.pl と指定する必要があり xxx のみでは実行できない。その代わり実行パーミッションが立って
いればファイル名がどうであろうともOSはそれを実行しようとする(実際に実行できるかどうかは
ファイルの内容による)。

**デフォルトの名無しさん** · 2020/05/30(土) 08:54:37.07

拡張子が無くても判定できるようにすればいいんじゃないの? Emacs みたいに。

**デフォルトの名無しさん** · 2020/05/30(土) 12:16:10.21

>>441
つ　fileコマンド

**デフォルトの名無しさん** · 2020/05/30(土) 13:18:31.04

>>439
運用のために保守は犠牲にするんですか?

**デフォルトの名無しさん** · 2020/05/30(土) 13:58:45.71

>>443
実装の変更は、保守の範囲ではない。
二次開発かな？ｗ

**デフォルトの名無しさん** · 2020/05/30(土) 15:56:11.11

>>440
シェバン知らず？

**デフォルトの名無しさん** · 2020/05/30(土) 18:54:59.01

>>445
>>440はその前の話やろ。
シェバンがあるだけで、テキストファイルが勝手に起動されたら恐ろしいわ。ｗ

**デフォルトの名無しさん** · 2020/05/30(土) 19:43:41.34

>>432
おじいちゃん(´・ω・`)

**デフォルトの名無しさん** · 2020/05/31(日) 02:15:32.98

言語変えて作り直すって、俺の感覚ではシステム置き換えのイメージだわ
コンパイル済みのバイナリならともかく、スクリプト言語動かすって環境づくりも入るじゃん

**デフォルトの名無しさん** · 2020/05/31(日) 02:44:16.68

>>445
>>440に書いてあること読んでないだろ。

**デフォルトの名無しさん** · 2020/05/31(日) 03:40:37.55

その前って何？
だからシェバン使えば拡張子なんか使う必要はないってことだよ？
>>439みたいな書き換えはいらないってことを言ってる
あと自演して書き込みは見苦しいぞ

**デフォルトの名無しさん** · 2020/05/31(日) 04:22:23.87

読解力理解力がなくて、複数から指摘されたからって、自演扱いで返すとは見苦しいぞ。

**デフォルトの名無しさん** · 2020/05/31(日) 05:26:43.75

>>450
それ何のOSでの話？

**デフォルトの名無しさん** · 2020/06/11(木) 19:05:11.82

「local $| = 1;」と言う記述見たんですけど、
「$|」の局所化って意味あるのでしょうか？
ただ単に「$| = 1;」と等価であり「local」を記述しても無駄な気がするんですけど、
私の勘違いでしょうか？

「local $| = 1;」とやることで、
そのファイルの出力だけみたいな感じになるのですか？
となると、
同プロセスなのに標準出力バッファが出力毎に別個に用意されてる事になってしまいますよね？

分かるかた教えてください。

**デフォルトの名無しさん** · 2020/06/11(木) 19:32:41.35

>>453
スコープを抜けたときに、もとの値に戻る。

**デフォルトの名無しさん** · 2020/06/11(木) 19:37:09.97

横からだけど知らなかった…
毎回もとの値別変数で退避してた