[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
356: 2020/03/14(土)19:34 ID:RPa5riWU(1) AAS
WSLつかえ
357: 2020/03/14(土)22:58 ID:eh0BX5+5(1) AAS
>>355
理由を聞いてどうするんや？
文字コードとかややこしいから、対応してないんやろ。
358(1): 2020/03/14(土)23:16 ID:5TZ0Uf7y(1) AAS
分からんのなら黙ってろやチンカス
359: 2020/03/14(土)23:39 ID:9VuyfYoc(1) AAS
暗号化って、base64 とかだろ。
ascii だけだろ
Ruby なら、こういうやつだろ
module SecureRandom
外部ﾘﾝｸ[html]:docs.ruby-lang.org
360: 2020/03/14(土)23:44 ID:jx2yED/o(2/2) AAS
keyの方は何でもokなんだけどな
361: 2020/03/15(日)03:21 ID:ey4TMar/(1) AAS
>>358
わかってもなにもできんくせに
ゴミクズ
362: 2020/03/15(日)18:38 ID:8dswEreI(1) AAS
グレタちゃんのクリトリスは100カラットのルビー
363(1): 2020/03/16(月)09:00 ID:m2o8L3Qu(1) AAS
>>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の仕様に合わせているから、こうなるのではないかと思う。
364: 2020/03/16(月)19:53 ID:jMV62GuM(1/2) AAS
128-255を渡しても止まるんだけどね
エラーが出るとかじゃなくて異常終了する
仕様だとは思い難い
365: 2020/03/16(月)20:07 ID:O3TrJAsg(1) AAS
「異常終了」じゃなくて、「die」してるんちゃううんか？
>>363にもそう書いてあるやろ。
トラップしたけりゃevalしろ。
366: 2020/03/16(月)20:22 ID:jMV62GuM(2/2) AAS
die すると何かエラーメッセージ出しておとなしく終了するんじゃないのか?
windowsに怒られとるぞ
367: 2020/03/17(火)00:31 ID:WzQFj8c+(1/2) AAS
この言語はなにが起こるかわからんので基本evalで囲わないとやってられませんね
368(1): 2020/03/17(火)00:59 ID:DZYZalLc(1) AAS
トラップでevalってなんだっけ？ｗ
Perlやめてから結構立つから忘れた。
なんかそんなのあったなｗｗｗ
今？Perlからシェルスクリプトに回帰していますがなにか？
369: 2020/03/17(火)05:25 ID:WzQFj8c+(2/2) AAS
>>368
これ
外部ﾘﾝｸ:perldoc.jp
eval BLOCKってやつ
try catchみたいなもん
370: 2020/03/17(火)08:02 ID:sAGmKBfN(1/2) AAS
エラーが返るならtryできるだろうけど、試してみたら異常終了するようなもんも避けられるのか?
371: 2020/03/17(火)21:45 ID:sAGmKBfN(2/2) AAS
画像ﾘﾝｸ
evalでもトラップできない
372: 2020/03/18(水)00:13 ID:+5qWGdwM(1) AAS
man にはどう書いてあるの? Perl の crypt じゃなくて C のライブラリの方だよ。
373: 2020/03/18(水)01:56 ID:jzX09kaS(1) AAS
WindowsだしActivePerlのようだし、何がおきてもふしぎじゃないな。ｗ
374: 2020/03/18(水)09:12 ID:SzV6uL92(1) AAS
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
375: 2020/03/18(水)19:35 ID:iQ6PHWNN(1) AAS
Windows7とか？
376(2): 2020/03/28(土)10:30 ID:gZJzrXqn(1/4) AAS
検索が遅い
いろんな条件に対してファイル全体を検索、ということをする時に、
OSのキャッシュに頼って毎回 `grep` する方が速い
メモリに読み込んで検索すると負ける
ループで$data[$i] =~ /$pattern/ した方がまだ速くて、
grep {/$pattern/} @data するともっと遅くなる
大量一括検索の高速化のテクニックみたいなの何かあるのかな
377: 2020/03/28(土)18:48 ID:Cuxaq7bT(1/2) AAS
>>376
外部ﾘﾝｸ:metacpan.org
使った事ないが MCE::Grep 辺りは説明読む限り速そう
378: 2020/03/28(土)18:55 ID:Cuxaq7bT(2/2) AAS
もっと基本的な話なら perlperf
外部ﾘﾝｸ[pod]:perldoc.jp
379: 2020/03/28(土)19:23 ID:gZJzrXqn(2/4) AAS
MCE::GrepはCPUの使用率は上がるけど遅くなった
grepよりは正規表現の処理のあたりが時間かかってるんだと思う
感覚的にはもっと高速でも全然おかしくない感じなのに
380: 2020/03/28(土)19:34 ID:gZJzrXqn(3/4) AAS
100MBのファイルからパターンに合う行を全部抽出するのに1秒かかるくらいの感じ
で、パターンが250もあるから、コーヒーが飲めるくらい待たされる
381: 2020/03/28(土)20:00 ID:L8+cmwNy(1) AAS
俺だったらgrepでやっちゃうなぁ
結果はファイル経由で
382: 2020/03/28(土)21:36 ID:L89shHGR(1) AAS
>>376
qr//で事前に正規表現をコンパイルしてみたら？
383: 2020/03/28(土)21:55 ID:gZJzrXqn(4/4) AAS
同じパターンで繰り返し検索するのではなくて、
いろんなパターンで同じ対象を検索するので、コンパイルはできない
でも、パターンのリストは実行前に確定しているので、
qrで作ったものを配列に持たせておけば速くなるだろうか
384: 2020/03/28(土)23:16 ID:2U8ZKDy+(1) AAS
もはや perl の能力を超えているな
C とかで書いた方がいい
385: 2020/03/28(土)23:24 ID:ZQFwrOhU(1) AAS
パターンの内容にもよるが、flex で書いて Inline::C で呼ぶという方法もある。
上下前次1-新書関写板覧索設栞歴
あと 617 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.015s