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

**デフォルトの名無しさん** · 2012/01/21(土) 10:56:39.03

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辺り

**デフォルトの名無しさん** · 2015/02/27(金) 00:27:41.82

仮に検索エンジンみたいなのを書くにしても
何を対象にするのかとか、検索単位とかを決めてもらわんと書きづらいぞ
「同じこと」の通り「対象:Webサイト、単位:ページ」ならGoogleに投げりゃ済むし

**デフォルトの名無しさん** · 2015/02/27(金) 00:34:35.35

検索対象も文字列に決まってるだろ
正規表現でのマッチングだっつってるんだから

逃げてないで考えてみれ

**デフォルトの名無しさん** · 2015/02/27(金) 01:46:02.77

>>482
文字列？
テキストでもファイルでもなく？
それって何に使うんだろか…結局、目的は何よ？って話だよ
もしかしたらもっと良い方法があるんじゃ？と勘ぐってしまうのよどうしても

**デフォルトの名無しさん** · 2015/02/27(金) 06:35:52.51

またよく判らん屁理屈を
検索の単位が文字列に対してで、それがどこから来たかは問題にならないだろ
まあ、大抵はファイルからだろうけど

で、ファイルならこんなツールがあるよ、みたいな感じで本題から逃げたいのが見え見え

**デフォルトの名無しさん** · 2015/02/27(金) 09:44:40.27

>>484
いやまあ、文字列に対してなら

my $hit = 1;
for my $ptn (split(" ",$search)) {
$s =~ /$ptn/ or $hit = 0;
}

こんなんで出来ると思うけど、こんなんで本当に良いのか？
後出し条件とか大量に出てきそうな感じがするんだが

**デフォルトの名無しさん** · 2015/02/27(金) 20:22:44.34

お前は、「ワンライナーでどうやりますか」って質問に
スクリプト作成して答えるのか？

「正規表現でどうやりますか？」って質問には、
普通に正規表現で答えりゃいいだろうが。
実際、質問への答えは、
>>477->>479で終了してる。

後出しを心配するなら実際に後出しされてから
盛大に罵倒しろよ

**デフォルトの名無しさん** · 2015/02/28(土) 15:03:31.15

あえて制限をつけてパズルとして解くならともかく
現実的な解としては >>477 で十分だよな

**デフォルトの名無しさん** · 2015/02/28(土) 16:50:40.78

元々の要求はただのスペース区切りだから、パラメータ数は不定で、
パラメータ抽出して、その全部に対してマッチングを繰り返すという当たり前の処理になる

でも、そんなことは最初から判っているのでわざわざ聞く筈がない

スペース区切りの文字列をそのまま使ってマッチングがしたいなら、
残念ながらperlの正規表現でそんなことは出来ない、が答えとなる

**デフォルトの名無しさん** · 2015/02/28(土) 17:32:00.47

本物のコミュ障だなぁ
粘着されてる>>476が、可哀想だわ。

**デフォルトの名無しさん** · 2015/02/28(土) 17:35:55.35

質問者のレベルまで勝手に想定するし、、、

>>476から読み取れるのは、拡大解釈しても
「ワンセンテンスの正規表現で書くにはどうしたらいい？」
程度だろーに

**デフォルトの名無しさん** · 2015/02/28(土) 19:58:12.22

◯正規表現で、AND検索の実装って、どうやんの？
×正規表現で、「スペースを使って」AND検索の実装って、どうやんの？

「わざわざ聞く筈がない」まで、分かってんなら、
自分の解釈の仕方が間違ってないか、
自問しろよ

**デフォルトの名無しさん** · 2016/01/10(日) 13:39:26.30

971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0
自称スーパープログラマー某

強烈加齢臭
メール見ない　メール無視
ドキュメント見ない　ドキュメント無視
説明聞かない　説明無視
話聞かない　話無視
ガム→むっちゃーむっちゃーむっちゃーむっちゃー
煎餅→バリバリバリバリバリバリ
菓子パン→モグモグモグモグモグモグモグモグモグモグ
カップアイス→むっちゃーむっちゃーペロペロペロペロ

フロアすべてに響き渡る超ばかでかいくしゃみ当然手でおさえない

異音と異振動
ドスーン！ドスーン！　ドカーン！ドカーン！　バコーン！バコーン！　ズドン！ズドン！
机が近いとマウスポインターが飛ぶ　誤操作誘発
書類だしたりしまうだけでドカンドカン

30秒ごとに口と鼻から異音
ふんっっ！　　　　ふんっっ！　　　

備品破壊　貸与P C 破壊　他人のもの破壊

奴の作ったスクリプトとプログラムは使えない　バグ製造機

電話や共有携帯電話　キーボードが油ベタベタ
奴に電話とPCとコンソールは触らせてはいけない

**デフォルトの名無しさん** · 2016/01/10(日) 17:45:28.72

Perl 5 version 16の正規表現で、地の文の一部としてマッチさせたいときに
バックスラッシュでエスケープせねばならない文字の一覧を教えてください
文字集合[ ]の内外で違うとか、文脈依存があればそれも知りたいです

**デフォルトの名無しさん** · 2016/01/10(日) 22:39:51.49

何をしたいのか知らないけど
http://perldoc.jp/index/core
で疑問のほとんどは解決すると思う。

まあ、エスケープすべき文字を知りたいということならそれは「英数字以外」だ。
\Q と quotemeta 関数について調べてみてほしい。

**デフォルトの名無しさん** · 2016/01/11(月) 19:10:22.91

>>494
ありがとうございます。
質問の動機は単に手で正規表現を書くときエスケープすべきかどうか
悩ましかったから（実際には「+」や「:」や「#」とか「[ ]」の外の「-」はエスケープ無しでも通っていそう）
だったからですが、エスケープして無害ということであればそうします

それはそうとしてquotemeta便利杉、

**デフォルトの名無しさん** · 2016/01/23(土) 00:11:45.16

すまん

Perl 6使った奴おるか

**デフォルトの名無しさん** · 2016/01/23(土) 06:03:31.81

>>496
おるけど？

まだ後10年は掛る。
触る必要無し

処理速度とか早くなってんのかも知れんけど、
起動が遅くて、使い物にならん。
挙動もバギー、docも揃ってない。
止事無き事情から、アルファ版を正式版として
リリースしただけじゃね？

**デフォルトの名無しさん** · 2016/02/07(日) 22:53:45.48

外部コマンドの話が出てて思い出したけど、
外部コマンドを実行するときに任意の文字列を外部コマンドの引数として渡したい場合、
Linux環境でエスケープすべき文字は？
シングルクォートとバックスラッシュだけエスケープして、それをシングルクォートで括ればOK？

**デフォルトの名無しさん** · 2016/02/09(火) 22:03:18.36

なんかPerl 5.16.1のウィンドーズ版のUTF-8対応は中途半端な希ガス、
use utf8;としてUTF-8でソースコードを書いても
open()のファイル名とかsystem()に与えるコマンド文字列とかが'shiftjis'（正確には'cp932'）のままだし、
コマンド引数も'shiftjis'（正確には'cp932'）のままだし、
なんでああなんですかね…

**デフォルトの名無しさん** · 2016/02/09(火) 23:41:10.97

dankogaiがのらりくらりうまく回避しちゃうからじゃない？
俺はもうperlでsjis処理するのはあきらめた。

**デフォルトの名無しさん** · 2016/02/12(金) 00:23:06.63

いろいろ面倒なんで、俺は use utf8; を使わないことにしたよ。

**デフォルトの名無しさん** · 2016/02/13(土) 14:58:53.06

>>498
シェルを経由するのならシェルのマニュアルを読みなさいとしか言えない。
bash の場合なら「定義」の項のメタ文字と「クォート」の項。
シングルクォートなら大体大丈夫なはずだけど。
そういう心配をしなきゃならないならシェルを呼ばない方が無難。
シェル経由でなければシステムコールするだけだから。

**デフォルトの名無しさん** · 2016/02/14(日) 22:17:05.33

>>498
もしかして、普段は Windows 使ってるからコマンドラインを作って渡す方法しか知らないとかそういうこと？

**デフォルトの名無しさん** · 2016/02/14(日) 22:28:48.47

思い付きで気軽にコマンドライン作って出力をキャプチャできるのがLLの良いところなのにね。

**デフォルトの名無しさん** · 2016/02/15(月) 12:21:34.14

>>504
助けてあげる気が無いなら引っ込んでてくれないか？

**デフォルトの名無しさん** · 2016/02/15(月) 15:10:01.24

>>498
" " 内では、「$(変数展開) \ `(コマンド置換) !(ヒストリ)」が展開される。
' ' 内では、展開されない。
\ は直後の1文字の機能を無効化する

メタキャラクタ・特殊文字なら、他にも多数。
? * > >> < << | ~ & など

ただし、「! ~」は、bashのみ

**デフォルトの名無しさん** · 2016/02/16(火) 03:32:48.12

モダンPerl入門増補改訂版（仮）
http://codezine.jp/book/modernperl2

**デフォルトの名無しさん** · 2016/02/16(火) 21:30:09.30

刊行日： 2014年1月予定

**デフォルトの名無しさん** · 2016/02/17(水) 00:23:01.67

なんと！もう発売されていましたか！

**デフォルトの名無しさん** · 2016/02/23(火) 20:40:57.84

これからPerlを学ぶメリットってある？

**デフォルトの名無しさん** · 2016/02/23(火) 21:43:14.01

いっぱーぃぁる
いっぱーぁある
いっぱーぁる
いっぱーる

**デフォルトの名無しさん** · 2016/02/24(水) 02:40:25.37

UNIXの歴史をエッセンスにしてUNIX以外でも使えるようにした言語だから学ぶ価値はある。
おれの場合はWindows上で毎日使ってる。慣れの問題もあるが他の言語だとこうはいかない。

**デフォルトの名無しさん** · 2016/02/24(水) 02:47:53.12

他の言語もWindowsで使えるだろ

**デフォルトの名無しさん** · 2016/02/24(水) 05:22:56.15

バージョンをきにしなくていいなら、Perlは、Windows 2000のパソコンでもつかえる。
現在のRubyは、インストーラがうごかない。インストーラがうごいても、実行時にDLLがどうのこうのいってエラー
Pythonも同様だろう、インストールがめんどくさいのは、損ですよ

Ruby, PythonでもCygwinならいけるかも
Cygwinがきらいなひとは、こまります

**デフォルトの名無しさん** · 2016/02/24(水) 05:26:37.80

C, Perlならイヤなおもいをしなくていい

**デフォルトの名無しさん** · 2016/02/26(金) 20:40:22.77

今時Cigwinなんて使ってるやついるの？
使う理由が見当たらないんだけど…。

**デフォルトの名無しさん** · 2016/02/26(金) 21:57:44.67

>>516
Windowsでコマンドラインを使うときに
一番便利な道具だよ。

**デフォルトの名無しさん** · 2016/02/26(金) 23:40:31.20

>>516
cygwinはインストールが楽でいいんだよ

**デフォルトの名無しさん** · 2016/02/27(土) 21:54:12.18

>>517
その使い方こそがもう洋ナシなんじゃないの？

**デフォルトの名無しさん** · 2016/02/28(日) 07:42:58.32

>>519
おまえさん、何でム板にいんの？
WebProg板の住人の発言だったら、まだ分るけどさ。

**デフォルトの名無しさん** · 2016/02/28(日) 11:25:02.81

>>517
cygwin+Perlでできて、バッチファイル(cmd.exe)+Perlでできないこととは…？

**デフォルトの名無しさん** · 2016/02/28(日) 11:39:02.77

>>521
その場合、Perlの部分は同じ。違うのは cmd.exe と bash （またはzsh）なので
コマンドプロンプトで出来ないこととは、シェルとシェルスクリプトの実行ということになる。

つまりbash（zsh）の快適な操作性が、cmd.exeにはない。
LinuxやMacで動くシェルスクリプトがcmd.exeでは動かない。

**デフォルトの名無しさん** · 2016/02/28(日) 22:48:20.46

パスに日本語使わない運用ならね
でもそれって制限きついよね？仕事で使うのはまず無理だな

**デフォルトの名無しさん** · 2016/02/28(日) 23:03:09.55

そういやcygwinはファイル名に日本語ついていても
ちゃんと動くよな。凄いことだよな。

>>523
お前何の話してんのー？

**デフォルトの名無しさん** · 2016/02/29(月) 21:02:02.19

>>520
個人環境なら好きにやればいいんじゃない？

**デフォルトの名無しさん** · 2016/07/18(月) 23:24:13.82

ロブ・パイク語録。
>「UNIXはただ死んだだけでなく、本当にひどい臭いを放ち始めている」 - 1991年ごろ
（中略）
>「そういった日々は過ぎ去り、賛辞は Perl にもたらされた」 - [7] 単機能ツールについて
賛辞は Perl にもたらされた！

**デフォルトの名無しさん** · 2016/08/18(木) 07:54:36.84

>>526
25年前の話だからな。
25年も経てば、SMAPも結成して6人から5人になり解散する。

**デフォルトの名無しさん** · 2017/04/14(金) 21:43:32.26

win7でactiveperl
`コマンド` からの応答をファイルに書き出したい
テキストならうまくいくけど、バイナリで失敗する
書き出し用のファイルはbinmodeにしてるので、受取側がおかしい
binmode STDIN
にはしてるけど変わらないみたい

C:> コマンド > file.bin
でリダイレクトすると成功するので、コマンド自体はちゃんと動いてる

何が悪いんだろう

**デフォルトの名無しさん** · 2017/04/14(金) 22:10:00.52

どういう具合に失敗するんだ？
バイナリをテキストとして解釈するのか？

**デフォルトの名無しさん** · 2017/04/14(金) 22:32:15.06

バイナリエディタとか無いから詳しくは判らないけど、
pptファイルを開こうとしても怒られる

**デフォルトの名無しさん** · 2017/04/15(土) 15:32:32.25

再現する最小コード書けや
バイナリエディタもフリーのあるやろ

**デフォルトの名無しさん** · 2017/04/15(土) 15:37:15.38

フリーソフトを勝手にインストールできない

**デフォルトの名無しさん** · 2017/04/15(土) 15:50:50.88

exe単体のもあるしそれさえアウトでも家の環境で再現させられるだろ
つか業務関連なら会社で聞けば

**デフォルトの名無しさん** · 2017/04/15(土) 16:02:38.46

知らないなら黙ってればいいのに

何かバイナリを標準出力に吐くコマンドなら何でも試せる筈
なかなかそういうサンプルが無いけど

**デフォルトの名無しさん** · 2017/04/15(土) 19:42:34.21

いいからお前の環境で再現するコードを書けよ

**デフォルトの名無しさん** · 2017/04/15(土) 20:14:19.75

これだけの情報で判らないならコード見ても判らないよ

binmode STDIN;
$result = `SomeCom.exe`;
open $out, '>', 'outfile.bin';
binmode $out;
print $result;

これだとNGで、
C:> SomeCom.exe > outfile.bin
これならOKになる

**デフォルトの名無しさん** · 2017/04/15(土) 20:28:40.15

binmode指定しないとダメなの？

**デフォルトの名無しさん** · 2017/04/15(土) 21:14:47.45

>>536
どう見ても標準出力に吐いてるんだけどそのコードで再現することは当然確認したんだよね？

**デフォルトの名無しさん** · 2017/04/15(土) 23:58:48.07

STDINは関係ない
パイプをバイナリモードにしろ

**デフォルトの名無しさん** · 2017/04/16(日) 00:22:01.12

open $in, '-|', 'SomeCom.exe';
binmode $in;
$result = <$in>;

こんな感じか
` ` を使う限り解決できない?

**デフォルトの名無しさん** · 2017/04/16(日) 00:23:16.22

あ、違う
@result に受けて結合か
そこでもまた改行コードが何かしそうな不安が

**デフォルトの名無しさん** · 2017/04/17(月) 21:59:30.64

>>539が正解でした
ちなみに、結果を変数に受ける必要はなくて、
入力から出力にそのまま流す方がスマート

**デフォルトの名無しさん** · 2017/04/23(日) 22:19:57.91

答えを知ってる人はシンプルにいきなり正解のみを示すんだよな

で、必要な知識のない人が見当違いのことをいろいろ書いて掻き回す

**デフォルトの名無しさん** · 2018/02/16(金) 06:37:50.13

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

**デフォルトの名無しさん** · 2018/02/16(金) 20:54:02.63

あれ？そういやこのスレは消化されないまま残ってたの？ちょっと前に63箱目が1000になったんだけど。
じゃあ新スレ立てずにそのままここ使う？

**デフォルトの名無しさん** · 2018/02/17(土) 13:11:36.41

>>545 ここで良いんじゃない？

Windows7 で ActivePerl 5.16.3 を使っているんだけど、改行が CR LF (0D 0A) のファイルを
<> で読み込むと、行末が LF (0A) だけになる。これはなぜに？

**デフォルトの名無しさん** · 2018/02/17(土) 13:45:31.82

>>546
ストリームがテキストモードだからでしょ。
それがイヤならbinmodeすれば？

**デフォルトの名無しさん** · 2018/02/17(土) 14:32:59.21

>>547 サンクス。できたできた。

**デフォルトの名無しさん** · 2018/02/19(月) 12:04:01.90

63箱目のテンプレこぴっとく

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

▼前スレ

**デフォルトの名無しさん** · 2018/02/20(火) 08:19:10.59

>>549

CGIの話題もム板でいい筈じゃ？
WEBプログラミング板に該当スレが無くなったってのが、理由だったような。

後は、下記を修正。

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

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

**デフォルトの名無しさん** · 2018/02/20(火) 09:05:34.87

これが次スレになったのね。
おいらもそうだが、
最近、スレが立てられなくなった人が多いのかな？

**デフォルトの名無しさん** · 2018/02/20(火) 10:46:08.66

>>550
もしやあなたはCGIとPerlの区別がつかない人？

**デフォルトの名無しさん** · 2018/03/03(土) 15:00:12.27

websocketをやってみたいんですが、Net::WebSocketというのとProtocol::WebSocketというのが検索で掛かります。
どっちを使うのでしょうか

**デフォルトの名無しさん** · 2018/03/03(土) 15:02:25.59

サーバにしたいです

**デフォルトの名無しさん** · 2018/03/03(土) 18:32:08.00

Mojolicious

**デフォルトの名無しさん** · 2018/03/05(月) 16:53:07.80

>>555
フレームワークは勉強の為に避けようと思います。

**デフォルトの名無しさん** · 2018/03/05(月) 18:51:20.07

正直websocketやるのにPeal選ぶ意味は無い気がする
やりたいってんなら止めないけど
node.jsとかgoでいいような
適材適所というか

**デフォルトの名無しさん** · 2018/03/06(火) 11:48:05.65

汎用的なものが作れないかと思っています。
スピードを求めるならjavaで作ろうと思います。

**デフォルトの名無しさん** · 2018/03/07(水) 00:30:44.98

とりあえずやってみれば。
ダメなら乗り換えれば。

**デフォルトの名無しさん** · 2018/03/18(日) 10:31:45.09

perlでサーバーAで計算した値をサーバーBに送り表示することってできますか？
できるならどうやるんですか？
できればモジュールなくても使える方法がいいです。

**デフォルトの名無しさん** · 2018/03/18(日) 11:47:09.15

サーバーAで計算した値をサーバーBに送るとはどういうことか、何に表示したいのか
perlの前にここを明らかにした方がいい

**デフォルトの名無しさん** · 2018/03/18(日) 12:33:37.42

>>561
もっとわかりやすいように質問変更する
サーバーAでログインIDとパスワード入力して
サーバーBに置いてあるユーザー情報と比較してログイン成功なら
サーバーAにログイン成功だと言う情報を送りたい
こういうこと

**デフォルトの名無しさん** · 2018/03/18(日) 13:33:56.77

use HTTP::Tiny; # v5.14から標準モジュール

my $response = HTTP::Tiny->new->post_form('サーバーBのURL', {id => $id, password => $password});

if ($response->{success}) {
　　print '成功';
}
else {
　　print '失敗';
}

----------
AからBに問い合わせてその結果をAで使うならこんな感じで行けるんじゃない

**デフォルトの名無しさん** · 2018/03/18(日) 17:24:24.80

ぜんぜんわかりやすくない。
「ログイン」といってもいろいろ。

Webサイトについてだったら、WWW::Mechanizeとかそういう？

https://www.google.co.jp/search?q=perl+mechanize

**デフォルトの名無しさん** · 2018/03/18(日) 19:37:28.90

perl関係ないな
仕様のはなしからだろ

**デフォルトの名無しさん** · 2018/03/18(日) 20:51:03.76

鯖へのログインなのか、それともHTMLページ等でのログインなのかも分からん

**デフォルトの名無しさん** · 2018/03/30(金) 12:35:13.04

Perlのソケット通信にて、とあるAPIへのリクエストに対して送られてきた全応答を全て取得した上で処理をしたいと思っています。

たとえば簡単な例だと
応答データ例：(00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10);
データは00～FF全てを含み、終了は6連続"00 00 00 00 00 00"になった場合となります。
==
my $data = <$socket>; # data => 00 01 02 03 04 05 06 07 08 09 0a
my $data2 = <$socket>; # pending....
==
$/ = \x5;
my $data = <$socket>; # data => 00 01 02 03 04 05
my $data2 = <$socket>; # pending....
==
のように、$/に当たるデータで停止してしまいます。$data2は待てど暮らせど進みません。
また6バイトで1組なので、sysread($socket,$buf,6)や$socket->recv($buf,6,0)、recv($socket,$buf,6,0)
といった方法もしてみましたが、これら全てpending...状態で1こちらも待てど暮らせど進みませんでした。
一括で取得する方法はありませんでしょうか。

**デフォルトの名無しさん** · 2018/03/30(金) 12:48:02.51

>>567
ノンブロッキングのソケットってできなかったっけ？
fcntl()で指定するんだったような気がするが。
まあでもこの辺はOSによって微妙に違うかも知れないのでよく調べてみて。

で、ブロックしないようにしておいて受信したやつをとにかく全部読んで最後に \0 が6つあるかどうか見ると。

**デフォルトの名無しさん** · 2018/03/30(金) 13:25:36.98

>>568
ありがとう
試してみた感じとまらなくなりました。
助かりました。

**デフォルトの名無しさん** · 2018/03/30(金) 20:15:44.88

while(1) {
　　PROC1;
　　if (COND) {
　　　　last;
　　}
　　PROC2;
}

こんなような処理を、while(1)とかlastとか使わずにスマートに書けない?

**デフォルトの名無しさん** · 2018/03/30(金) 20:22:24.29

>>570
PROC1はCONDの値を返さないってこと？

**デフォルトの名無しさん** · 2018/03/30(金) 20:50:04.69

想定してる例では返さないけど、返す前提じゃないと一般論にならない

**デフォルトの名無しさん** · 2018/03/30(金) 20:55:20.44

>>569
non-blocking にするとデータが何もきてない時にほとんど素通りするので
selectとか使って自分で待たせることを忘れずに。そうしないと入力待ち
ループが物凄く早く回ってしまい無駄にCPUタイムを食うことになる。

**デフォルトの名無しさん** · 2018/04/14(土) 09:32:20.00

x が100000～100500 なら y=1000
100501～100700 なら y=1001
100701～120000 なら y=1002

みたいな感じになってるとする
xはある範囲を全部埋めていて、yはある範囲で連続

で、xが与えられた時にyを求めたい
どんなデータ構造にするのが一番効率的だろう

**デフォルトの名無しさん** · 2018/04/14(土) 14:29:40.83

Perl関係無いような…
俺だったらxのfrom値をキーにハッシュ作って値にy入れるかなぁ

**デフォルトの名無しさん** · 2018/04/16(月) 09:41:27.92

>>574
単純な計算ではxからyは求められないようだね。だったら配列にxの下限とyの値のペアを入れといて比較かな。
こんなやつね。どう比較するかは分かると思うので省略。

my @a = (
[100000, 1000],
[100501, 1001],
[100701, 1002],
.
.
.
);

ハッシュ使うとxの値を比較する時に全てのキーを引き出してソートしてから行う必要があって、それだと余計に遅くなると思う。

しかし全てを配列に入れておいて頭から全て比較することが現実的とは思えないほど多い場合(何万件もあるとか)は、もうPerlでやるのは止めてRDBに繋いでやった方が良いかも知れない。
(xの上限、下限、yの値をただ入れる表を作ってxの方はインデックス作っておいて簡単なselectをする)。
そうすると何も考える必要がなくなって楽だ。DBはsqliteが軽くていいぞ。その場合DBIモジュールとDBD::SQLiteモジュールが必要。

**デフォルトの名無しさん** · 2018/04/16(月) 12:33:04.08

0, 501, 701, 1001, 1301,

x のfrom 値で、2分探索木にする。
各ノードが、y 値を持つ

**デフォルトの名無しさん** · 2018/04/16(月) 19:16:06.77

yを0から999までに単純化して、
下限だけ入れた配列を毎回0から見つかるまで舐める

という実装にしたら、余裕で一瞬で終わるので、これで十分だった

個人でDBが要るようなケースって、まず無い気がする

**デフォルトの名無しさん** · 2018/04/16(月) 19:54:02.09

>>578
ちなみに、DBを使ったことある？

個人的には、個人用途でもあれば便利。
保存関連がかなり楽になる。

**デフォルトの名無しさん** · 2018/04/16(月) 20:29:20.27

仕事でaccess使ったくらいだけど、
規模的にはテキストでも全然構わないレベルだった

excelと連動させたいからそういう手段が選べないだけで、
個人なら最初からexcelそのものを使わない

**デフォルトの名無しさん** · 2018/04/17(火) 09:50:37.14

扱うデータが多くて一々考えるのが面倒な時は使ってみると良い。