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

**デフォルトの名無しさん** · 2014/02/19(水) 23:36:23.29

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)

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

**デフォルトの名無しさん** · 2016/07/23(土) 19:41:00.25

>>351
出来ました!!
{}で囲むのは思いつかなかったです。

**デフォルトの名無しさん** · 2016/07/23(土) 20:22:22.12

>>349
他プロセスとは同じプログラムを複数で同時実行したやつです
それとファイルロックだとディレクトリにあるファイル１つ１つにロックしなきゃならないので
ディレクトリにあるファイル全てにアクセス禁止するために
アクセス禁止用ファイルを作りました

**デフォルトの名無しさん** · 2016/07/23(土) 20:22:25.35

スクリプトを動かすときは、「動きますように」と昭和する。

**デフォルトの名無しさん** · 2016/07/23(土) 20:41:29.11

自分で考えているというのは大変良いことだと思うけど、聞きたいことがあるなら
環境くらいは書いてくれないと……
それに、使用中のファイルを rename することの何が問題なのかさっぱり解らない。
まず、何をするプログラムなのかを書いた方がいいと思うよ。

**デフォルトの名無しさん** · 2016/07/23(土) 22:25:30.57

**デフォルトの名無しさん** · 2016/07/23(土) 22:36:22.09

なんか書き込こもうとするとエラーが出て書き込めないわ

**デフォルトの名無しさん** · 2016/07/23(土) 22:48:53.55

ようするに
てすと１シージーアイ
ＯＰＥＮ（ＩＮ、”あああ．ＤＡＴ”）；
すりーぷ（５）；
ｃＬＯＳＥ（ＩＮ）；

てすと２シージーアイ
リネーム（”あああ．ＤＡＴ”、”ＡＡＡ。ＤＡＴ”）；
これを同時実行してもリネームはできなかったってこと

**デフォルトの名無しさん** · 2016/07/23(土) 22:51:17.71

同時実行って言ったけど先にてすと１の方を起動して５秒以内にてすと２を起動です

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

他のプロセスが開いているファイルを、更新できるわけないだろ

2つのプロセスで、ファイル共有できるのは、read & read、の組み合わせだけ。
read & write, write & read, write & write は、共有できない

**デフォルトの名無しさん** · 2016/07/23(土) 23:40:01.25

>他のプロセスが開いているファイルを、更新できるわけないだろ

何を前提に話してんだ？
更新出来るから、ファイルロックなぞの方法が開発されたんじゃねーの？
$ for i in 1 2 3 4 5 ; do
> perl -le 'open my $f, q{>>}, q{foo.txt} ; print $f q{foo} ; sleep 2' &
> done
$ cat foo.txt
foo
foo
foo
foo
foo

**デフォルトの名無しさん** · 2016/07/23(土) 23:51:16.68

>>361
更新 ”できないようにする" から
ロックなんだよ。アホかｗ

**デフォルトの名無しさん** · 2016/07/23(土) 23:55:37.22

>>362
ん？
（デフォの状態では）更新出来るから、
（更新出来ないようにするための）ファイルロックなぞの方法が開発されたんじゃねーの？

ってレスだったんだが、、、

**デフォルトの名無しさん** · 2016/07/24(日) 00:40:44.17

更新できるのは、同一プロセス内のマルチスレッドだろ

だから、マルチスレッド・プログラミングは難しい

**デフォルトの名無しさん** · 2016/07/24(日) 01:05:08.31

ファイイルロックのモードは２より５のノンブロッキングの方が軽いですか？

**デフォルトの名無しさん** · 2016/07/24(日) 01:16:29.25

>>365
軽いかどうかで決めるんじゃない。
それが必要かどうかで考えろ。

ホント頭が悪いやつは、軽いかどうかの基準しか
持ち合わせてないんだよな。

**デフォルトの名無しさん** · 2016/07/24(日) 02:10:22.95

上の２行は頭いいように見えたが
下の２行でホントに頭が悪い人だと思った。
誹謗癖はやめようね。嫌われるよ。というかすでに嫌われてると思うけど。

**デフォルトの名無しさん** · 2016/07/24(日) 02:12:06.72

>>367
正しいのか間違っているのかをいえよ。

**デフォルトの名無しさん** · 2016/07/24(日) 03:52:51.83

ノンブロッキングは、Node.js などが並行処理で、リクエストを受け付ける場合に使う。
こういうのは、プロ中のプロが使うもので、プログラムも順序通りには進まないから、
プログラミングが極めて難しい(イベントドリブン)

初心者は、ブロッキングを使え。
プログラムは一本道で、順序通りに進む

**デフォルトの名無しさん** · 2016/07/24(日) 04:07:39.30

※ただしマルチタスクOSじゃない場合に限る

**355** · 2016/07/24(日) 10:28:35.84

>>358
少なくとも Linux では問題なく rename できるよ。
rename できないというのはシステムコールのマニュアルに書いてあるの?
テストのやり方に問題は無かったの? こんなふうに同期させた方がいいと思うんだけど。

https://ideone.com/639PgP

**デフォルトの名無しさん** · 2016/07/24(日) 22:44:38.60

このようにflockをネストするのは問題ありますか？

open(IN, "< $datafile");
flock(IN, 1);

open(IN2, "< $datafile2");
flock(IN2, 1);
close(IN2);

close(IN);

**デフォルトの名無しさん** · 2016/07/25(月) 18:20:04.46

>>371
windows環境だけどopen中のファイルのrenameはできなかった

例えばtestディレクトリがあって、プロセスAでtestディレクトリにあるファイルのrenameやファイルの作成、
プロセスBでtestディレクトリを削除するとした場合
testディレクトリにファイルが残っているとrmdirが成功しないのでtestディレクトリを削除できない
unlinkでtestディレクトリのファイルを全て削除してからtestディレクトリを削除しようとしても
その間にプロセスAでファイルが作成された場合ディレクトリを削除できない
だからディレクトリそのものをロックしたいっていうこと

**デフォルトの名無しさん** · 2016/07/26(火) 08:16:09.27

>>372
問題ない

**デフォルトの名無しさん** · 2016/07/26(火) 13:18:10.17

>>373
そういうことを先に書いてくれないと……
そうか、Windows ではできないのか……
プロセスAの処理が終わるまでプロセスBを待たせておきたいということなら
普通に mkdir でどうでしょう。可搬性も高い排他制御の定番です。

**デフォルトの名無しさん** · 2016/07/26(火) 13:54:47.54

>>373
File::Path -> remove_tree

http://search.cpan.org/~riche/File-Path-2.12/lib/File/Path.pm

**デフォルトの名無しさん** · 2016/07/26(火) 18:01:31.91

何が目的でそのための何をしている状況なのかというのがいまだに理解できないんだけど、
そもそもそんな状況にしないやり方を考えた方がいいのかもしれない。
どうしても排他制御が必要なら例えばデータベースを使うというのは Windows でも出きると思う。
Windows のことは知らないからこれ以上はお役に立てそうに無い。

**デフォルトの名無しさん** · 2016/07/27(水) 02:23:44.17

簡単に言うとディレクトリをmkdirで削除したいけど
削除しようとしている間にディレクトリ内にファイルを作られるとmkdirできなくて削除できないので
ディレクトリ内にファイル作成もディレクトリ内のファイル読み込みも禁止にしたかったってこと

**デフォルトの名無しさん** · 2016/07/27(水) 02:26:13.90

mkdirじゃなくてrmdirだ

**デフォルトの名無しさん** · 2016/07/27(水) 08:10:16.74

任意のプロセスがアクセスできるディレクトリを削除したいという要求自体が間違っている

**デフォルトの名無しさん** · 2016/07/27(水) 08:32:01.24

>>380
bbsディレクトリの中に各掲示板ごとのディレクトリがあって、さらにその中にログファイルや掲示板設定ファイルがある
削除したい掲示板は各掲示板のディレクトリごとに削除するしかないのでどうしても任意のプロセスがアクセスできる
ディレクトリを削除するしかない

test1掲示板の場合
ファイルはbbs/test1/logfile.datとbbs/test1/settei.datがあって
掲示板を削除する場合はまずこの２つのファイルを削除してtest1ディレクトリを削除するということです

**デフォルトの名無しさん** · 2016/07/27(水) 09:49:12.77

その掲示板とやらのディレクトリは本当に、自分のプロセスだけでなく任意のプロセスからもアクセスできるのか?

であれば、ディレクトリのパーミッションが間違っている。自分のプロセス以外のアクセスを禁止せよ。

自分のプロセスしかアクセスできない前提であれば、好きなように自分で排他制御を行えばよい。例えば>>375のように。

**デフォルトの名無しさん** · 2016/07/27(水) 15:57:37.43

>>382
普通の掲示板やで
普通掲示板は誰でも観覧と書き込みができるので任意のプロセスからでも読み書きできる
それとディレクトリの削除はブラウザからperlで書いたcgiを起動して削除するので
パーミッションでのオーナーとかの判別はできないんや

**デフォルトの名無しさん** · 2016/07/27(水) 16:17:33.22

掲示板のcgiが動いてるプロセスは掲示板を閲覧しているユーザとは関係なかろうが。
これ以上はperlの話ではなく、そのcgi固有の話だ。
ここでやる話ではない。

**デフォルトの名無しさん** · 2016/07/29(金) 21:21:45.34

my(@aaa);
@aaa = sort {$b <=> $a} @aaa;

このとき$a,$bをmy($a,$b)やlocal($a,$b);と宣言するとエラーになります
$a,$bはどのように宣言すればいいんですか？

**デフォルトの名無しさん** · 2016/07/29(金) 22:20:02.88

aとbはあらかじめ用意された特殊変数。
特殊変数は全部グローバル変数

**デフォルトの名無しさん** · 2016/07/30(土) 00:48:59.27

>>378
他のプロセスに使われる前にディレクトリ名をランダムな名前に変更
するとよい。変更後に rmdir する。

**デフォルトの名無しさん** · 2016/07/30(土) 08:47:55.59

１：投稿ファイルをロックして書き込み
２：投稿数ファイルをロックして書き込み

１の排他ロックが成功して２の排他ロックが失敗してタイムアウトになり書き込みできなかった場合
投稿数が実際の投稿より少なくなりが整合性がとれなくなる
この場合下記のようにまとめてロックするのが普通？

まとめ排他ロック
１の処理
２の処理
ロック解除

**デフォルトの名無しさん** · 2016/07/30(土) 09:56:42.41

>>388
そういう場合はまとめた単位でロックを取ることが多い
あるいはロールバックできるようにするしかないけど、それはたいてい難しい

**デフォルトの名無しさん** · 2016/07/31(日) 09:21:12.12

１：投稿ファイルをロック
２：投稿数ファイルをロック
３：投稿ファイルを書き込み
４：投稿数ファイルを書き込み
５：投稿ファイルをアンロック
６：投稿数ファイルをアンロック

**デフォルトの名無しさん** · 2016/07/31(日) 14:54:33.71

PostgreSQLのTIMESTAMP形式の文字列を秒数（Perlのtime関数で取得したような状態）に直す関数教えて

**デフォルトの名無しさん** · 2016/08/02(火) 23:49:48.17

use DateTime::Format::Pg;
print DateTime::Format::Pg->parse_datetime( '2016-08-21 23:50:01' )->epoch;

**デフォルトの名無しさん** · 2016/08/05(金) 00:01:27.27

>>390
それだとロックの間に隙間ができる

**デフォルトの名無しさん** · 2016/08/05(金) 00:02:57.68

実行時間が0.15秒から0.2秒のperlスクリプトは重い部類ですか？

**デフォルトの名無しさん** · 2016/08/05(金) 00:22:53.93

>>390
データとは別にロック中か識別するためだけのロックファイルまたはディレクトリを用意するものなんじゃないの？>>389のように

**デフォルトの名無しさん** · 2016/08/05(金) 09:40:54.31

1:投稿数ファイルをロック
2:投稿数ファイルを書き込み
3:投稿数ファイルをアンロック
4:投稿ファイルをロック
5:投稿ファイルを書き込み
6:投稿ファイルをアンロック

じゃだめなのかな。

**デフォルトの名無しさん** · 2016/08/05(金) 09:49:56.50

それ投稿数と投稿が連動してないやん

ロック
必要な書き込み全部
ロック解除

が普通

**デフォルトの名無しさん** · 2016/08/05(金) 17:58:59.50

それは「普通」というより「手抜き」だね。最初はそれでいいと思うけど。

**デフォルトの名無しさん** · 2016/08/05(金) 21:06:28.92

>>398
普通じゃなくて天才だよ。
完璧な答え。

**デフォルトの名無しさん** · 2016/08/05(金) 21:06:53.73

>>396
だめ。それはバグ。

**デフォルトの名無しさん** · 2016/08/06(土) 00:52:14.83

まあ質問の直後にいきなり答えが書いてある
それを分からないのが混ぜ返してるだけだ
>>388-389

**デフォルトの名無しさん** · 2016/08/06(土) 07:58:04.15

（書き込み時）

１：まとめロックようファイルを作る
２：まとめロック用ファイルを排他ロックする
３：投稿ファイルにを投稿を書き込む
４：投稿数ファイルに投稿数を書き込む
５：まとめロックの解除

（観覧時）
１：まとめロック用ファイルを共有ロックする
２：投稿ファイルを読み込んで表示する
３；投稿数ファイルを読み込んで表示する
４：まとめロックを解除

これが正しい

**デフォルトの名無しさん** · 2016/08/09(火) 01:43:06.25

>>393
何のために数字が振ってあるのか分かる？

**デフォルトの名無しさん** · 2016/08/09(火) 02:52:34.66

なんのため？
プロセス間の整合を取るのにプロセス内の順序は全く意味ない数字と思うけど。
うーん、なんのためだろ？教えてくれないかな？

**デフォルトの名無しさん** · 2016/08/09(火) 22:13:03.27

> プロセス内の順序は全く意味ない数字と思うけど。

え？順番を入れ替えても同じなると思ってるの？
例えば5 → 1 → 4 → 3 → 2 → 6 の順番で
実行しても同じ結果になると？

ロックの話以前に、あんたが何が言いたいのかわからない

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

んでなんのため？

あと関係ない話しかしてないようだけど、同じになるって情報はどこから？
そしてその話になんの意味があると思い込んでますか？

**デフォルトの名無しさん** · 2016/08/09(火) 23:36:26.59

> んでなんのため？

順番が重要だからだろ。

**デフォルトの名無しさん** · 2016/08/09(火) 23:38:43.66

>>390が書いてあることは正しくて、
この順番通りの処理をすると不整合が起きない。

重要なのは書き込みを行う前に書き込むファイルすべてを
ロックするということ。最初にまとめて行う。

こうすることでロックの間に処理が割り込まれず
正しく書き込むことができる。

**デフォルトの名無しさん** · 2016/08/09(火) 23:45:04.85

ここまで正しい回答が何度も出てるのに、そのあとから間違った回答を自身満々にするのもすごいと思う
ロックは常にプロセス間の整合のみ取るべし

**デフォルトの名無しさん** · 2016/08/09(火) 23:54:26.10

ごめん。外部仕様としてはこの場合正しかった。
内部的にはやってはいけないお手本のような無意味なロックがされてて、それで勘違いした。すまんかった。

**デフォルトの名無しさん** · 2016/08/10(水) 08:11:51.04

いいってことよ

**デフォルトの名無しさん** · 2016/08/13(土) 09:19:35.74

確かにロックはプロセス間通信の一種で使う技術も同じか
こうゆうのはスクリプトをプログラムと思ってる人と、プログラムの基礎的な部分から学んだ人とでは差が出そうだね

**デフォルトの名無しさん** · 2016/08/22(月) 20:05:32.69

windows7で文字化けファイル名を取得するとショートファイルで得られるようですが、
ロングファイルのビットの並びをそのまま得たいです。
指定して得るにはどうすれば良いでしょうか？

ちなみにDOSなどでのコマンドは知っています。

**デフォルトの名無しさん** · 2016/08/22(月) 23:45:40.07

`dir /b *.*`
次スレのテンプレに追加するから

**デフォルトの名無しさん** · 2016/08/23(火) 00:01:48.07

コマンドじゃなくてPerlでどうにかしたいのだけど

**デフォルトの名無しさん** · 2016/08/23(火) 02:38:12.51

バッククォートの意味が分からないのかな

**デフォルトの名無しさん** · 2016/08/23(火) 07:59:22.61

コマンドだろ

**デフォルトの名無しさん** · 2016/08/23(火) 22:48:28.92

my @file = split(/\n/,`dir /b *.* 2>NUL`);
# あとは夏休みの宿題、な

**デフォルトの名無しさん** · 2016/08/24(水) 08:59:06.43

すまん、回答してるつもりだろうけど、頭悪い人に用はないんだ。
わざわざ何度も書いてる様だが、一番最初に(も)言った通りコマンド使うやりかたはできるから。

あと全レス会話の繋がりもなく、堂々と好き勝手なこと書く人間もしんどい。

**デフォルトの名無しさん** · 2016/08/24(水) 20:30:09.76

いや、君の記述能力が頭悪いんだよ。
流行の言葉で言うとコミュ力やプレゼン力がない。
コマンド知ってますなんて言い方じゃ伝わらない。
少しは自分の不徳を省みたらどうか。

**デフォルトの名無しさん** · 2016/08/24(水) 20:38:10.41

再現出来る環境無いんだけどWin32::GetLongPathNameはどうかな

**デフォルトの名無しさん** · 2016/08/24(水) 20:59:49.53

これは知ってるかい？→ <*>

**デフォルトの名無しさん** · 2016/08/24(水) 23:20:14.12

>>422
すまないがそれでは得られる文字は同じで、文字化け文字にはショートが適用されます。
おそらくwindowsに対するアプローチを変えないとだめだと思うのです。

>>421
いけたよありがとう。
API叩いてやりくりしてたけど、暫定的にそれを使わせてもらうよありがとう。
windowsは外部的にもさっさとunicode使ってほしいと思う。

>>420
その無駄な4行必要か？なんか書きたいなら頑張って回答書けば？（俺としては書かないで頂きたいけどな)

**デフォルトの名無しさん** · 2016/08/24(水) 23:31:21.73

まあとにかく特殊な環境なんだね。もう少し前提条件を書いたほうが早く欲しい回答を得られたと思うよ。
>>413の書き方じゃ>>420に文句を言う筋合いはないよ。

**デフォルトの名無しさん** · 2016/08/29(月) 17:11:38.79

どうでもいいけど特殊な環境じゃなくてwindows標準の仕様かと

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

文字化けが問題なんだろうね

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

なぜ化けるのか、と言う話だ
CP932とunicodeが混在してる場合はどうすりゃいいですかって話じゃね

**デフォルトの名無しさん** · 2016/09/01(木) 19:27:50.30

ココ参考にして ttp://hirobanex.net/article/2015/03/1425807814
こういう呼び出ししても
$teng->sql_builder->load_plugin('InsertOnDuplicate');
$teng->sql_builder->insert_on_duplicate（略）

Can't locate object method "insert_on_duplicate" via package "Teng::QueryBuilder"
で呼べないんだけどどうしたらいい？

**デフォルトの名無しさん** · 2016/09/01(木) 19:29:20.37

ちなみに
__PACKAGE__->load_plugin('+SQL::Maker::Plugin::InsertOnDuplicate');

でもダメ

**デフォルトの名無しさん** · 2016/09/01(木) 20:39:24.43

ブログ記事じゃなくてPOD読めよ

**デフォルトの名無しさん** · 2016/09/01(木) 22:35:57.18

PODに別パッケージから plugin生やす方法なんて書いてないでしょ

**デフォルトの名無しさん** · 2016/09/03(土) 20:53:36.76

マジレスするなら、
別の方法で呼べるか試してみる
何が起こっているのか調べてみる
ってところか。

**デフォルトの名無しさん** · 2016/09/09(金) 12:53:46.35

何を調べたらいいのかわからんので手が付かない

**デフォルトの名無しさん** · 2016/09/09(金) 13:05:29.57

はっきりしてるのはhirobanexのとおりに書いてもエラーで動かない事
それも $teng->->execute なんていうタイポレベルの話じゃなく
根本的にどこか間違ってるけど、どこだかわからんということ

$teng->sql_builder ってSQL::Makerを継承した状態でnewされてるんじゃないの？
Teng::QueryBuilder = SQL::Maker　だから
これで動くんじゃないの？
$teng->sql_builder->load_plugin('InsertOnDuplicate');
$teng->sql_builder->insert_on_duplicate（略）

**デフォルトの名無しさん** · 2016/09/09(金) 16:12:29.13

もう直接コード読めよ

**デフォルトの名無しさん** · 2016/09/09(金) 16:58:05.37

$teng->sql_builderでTeng::QueryBuilderのオブジェクトが帰ってくる
これはほぼSQL::Makerを継承しただけなのでSQL::Maker::load_pluginを読むとどうやらクラスメソッドとして書かれている
実際SQL::MakerのPODにも継承したクラスでクラスメソッドとして呼び出す例が書かれている

つまり $teng->sql_builder->load_plugin('foo') という書き方はオブジェクトから呼び出してるので間違い（おそらくTeng::QueryBuilder=HASH(0x000000)みたいなところに生えてる）
Teng::QueryBuilder->load_plugin('foo') とするか ref($teng->sql_builder)->load_plugin('foo') とするか
もしくはブログの例にもある通り独自のQueryBuilderクラスを用意するか

>>429
この__PACKAGE__はどこに書いたんや？__PACKAGE__の意味わかってる？

**デフォルトの名無しさん** · 2016/09/09(金) 17:40:55.04

もう、馬鹿過ぎて哀れだ。実際にやりたいことは

*SQL::Maker::insert_on_duplicate = \&SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate;

ってことでしょ? もうこれでいいでしょ。POD すら読まないんじゃ助けようがないよ。

**437** · 2016/09/10(土) 11:47:34.76

ごめん、言い過ぎた。とりあえず、正解が分らない段階で俺ならどうするかを書くよ。

まず、何をしているのかを POD で確認する。
POD では load_plugin についてはクラスメソッドとして使う例だけが書かれている。
ここで「おかしい」と思わなければならない。
オブジェクトメソッドとして使えないとは書かれていないのでソースコードを読む。
%INC を見ればソースコードの場所は分かる。
load_plugin は予想以上にシンプルだった。これで解決。

解決しなかった場合。
まず、SQL::Maker::Plugin::InsertOnDuplicate を明示的に use する。それで間違いなく呼べる。
SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate( $teng->sql_builder)
あるいは
$teng->sql_builder->SQL::Maker::Plugin::InsertOnDuplicate::insert_on_duplicate
好きな方でいい。これでうまくいくなら load_plugin で何かが間違っている。
デバッガを使うか、load_plugin を差し替えて動作を詳しく調べる。

**デフォルトの名無しさん** · 2016/09/10(土) 18:20:16.29

Tengを使うのかどうか自分で選べるのなら、自分が理解していないものを使わないという選択肢がある。
他の人が選んでしかも使わなければならないという状況なら、選んだ人にどう使うのかを聞くといい。

**デフォルトの名無しさん** · 2016/09/10(土) 19:19:33.59

多分ブログ書いた人やその人に教えた人はTeng本体と混ざって勘違いしたんだろうな
Teng自体はインスタンスからもロードできるから

**デフォルトの名無しさん** · 2016/09/13(火) 17:44:13.57

この記事、オレオレメモだって自分で書いてるからわざわざつっこむのも野暮だけどOR検索の例もちょっとひどい。
どうしてこうなった?

**デフォルトの名無しさん** · 2016/09/22(木) 14:09:25.16

Windows の Strawberry Perl で、「Parallel::ForkManager」は使えますか？

----------------------------------------
use LWP::Simple;
use Parallel::ForkManager;
...
@links=(
["http://www.foo.bar/rulez.data";,"rulez_data.txt"],
["http://new.host/more_data.doc";,"more_data.doc"],
...
);
...
# 最大30プロセスで並列的にダウンロードを行います
my $pm = new Parallel::ForkManager(30);
foreach my $linkarray (@links) {
$pm->start and next; # forkさせます
my ($link,$fn) = @$linkarray;
warn "Cannot get $fn from $link"
if getstore($link,$fn) != RC_OK;
$pm->finish; # 子プロセスをexitします
}
$pm->wait_all_children;
----------------------------------------
の様なスクリプトで、数万ファイルをダウンロードしようとすると、
　 child process '-*****' disappeared.
　 A call to `waitpid` outside of Parallel::ForkManager might have reaped it.
のエラーを出しながら、メモリを全消費・開放を何度か繰り返した後に、
最終的には、「Out of memory!」で異常終了します。

Cygwin の Perl では、「Cannot get $fn from $link」エラーを出しまくりますが、
メモリを全消費する事はありません（異常終了もしません）。

**デフォルトの名無しさん** · 2016/09/22(木) 15:02:46.45

windowsのForkは、表面上は同じように動作する仕様になっているが、
実際にプロセスやスレッド、CPUの動作が期待通りになってるかと言うとそれは違う。
ほとんどの場合が、unixとの互換性を保つための見せかけ。

**デフォルトの名無しさん** · 2016/09/22(木) 16:23:36.65

rulezの綴りがzの辺り、悪さしてそうだな

**デフォルトの名無しさん** · 2016/09/23(金) 01:08:30.38

if($hoge=~/(\d+)$hoge3$/){$hoge2=$1}

これの意味は

$hoge3が数字のみなら$hogeに代入し、$hoge2にも代入するという意味でしょうか？

**442** · 2016/09/23(金) 05:21:37.52

>>443
「WindowsのFork」の意味は分かりませんが（Windows用PerlのFork？）、
Cygwin の perl は、
　 C:\cygwin64\bin\bash --login -i -c "perl ...
等としなくても、Windows から直接起動出来るので、
あのスプリクトで直接起動しても、メモリエラーは出ませんでした。

Cygwin の perl を、Strawberry Perl の代わりに、、、と思ったら、
いきなり chomp が、CR+LF を削除してくれなかった。

>>444
perldoc.jp からのコピペです。

>>445
if ( 文字列 =~ /パターン/ )
もし「文字列」の中に「パターン」が含まれていれば、

if ( $hoge =~ /(\d+)$hoge3$/ ) { $hoge2 = $1 }
もし「 $hoge 」の中に「 \d+$hoge3$ 」が含まれていれば、「 $hoge2 」に「 \d+ 」を代入

**445** · 2016/09/23(金) 08:03:28.29

>>446
ありがとうございます。
他言語の底辺SEなので助かりました。

**デフォルトの名無しさん** · 2016/09/23(金) 14:09:14.63

普段それを読む文化にない人がいきなり読めたら逆にすごいと思う
PerlってPerlが分かる人だけの言語

**デフォルトの名無しさん** · 2016/09/26(月) 17:38:36.14

Perl on Bash on Ubuntu on Windows10 での、
モジュールのインストールで、無駄に苦労した。
　解決法：　Config.pm の修正

Windows10 のコマンドプロンプトでも、
エスケープシーケンスが使えるらしい。
　 PROMPT $E[96m$T$E[3D $E[93m$P$G$E[37m$E[1C
懐かし

**デフォルトの名無しさん** · 2016/09/28(水) 02:39:45.69

ソースはサンプルコードな

**デフォルトの名無しさん** · 2016/10/03(月) 14:01:12.25

C:\> prompt $e[1;36m[$d$s$t$h$h$h] $e[1;33m%USERNAME%@%COMPUTERNAME% $e[37m$p$_$g$s