【モダン推奨】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辺り

**デフォルトの名無しさん** · 2018/05/26(土) 11:44:11.22

blessは、オブジェクトにパッケージを関連付けるだけだろ。
どんな「安全装置」が必要なのか？

ちなみに、RubyもJavaScriptも、動的に後からメソッドとか足し放題だな。
まあ、スクリプト言語としては残念でもないし当然。

**デフォルトの名無しさん** · 2018/05/26(土) 11:59:50.95

メソッドを足すのと、コンストラクタが生成してないものを使うのは全然違うだろ

**デフォルトの名無しさん** · 2018/05/26(土) 15:30:59.65

Pod::PerldocJp という日本語 perldoc を cpanm 使ってインストールしてみたが、root でないとエラーが出て動かない(Linux 環境ね)。

$ perldocjp perldocjp
Error stat on '/tmp/.perldocjp/perldocjp.pod': そのようなファイルやディレクトリはありません at /usr/local/share/perl5/Pod/PerldocJp.pm line 78.
$

root になるとちゃんと出てくる。ただし sudo perldocjp perldocjp ではダメで、 sudo su - とかで root でログインした状態で perldocjp perldocjp とするとちゃんと動く。
実行時の環境変数 LANG は一般ユーザもroootも ja_JP.UTF-8 になっている。

これ Linux でインストールしてみてうまく行った人いる?

Pod::PerldocJpとperldocjpコマンドについての日本語での説明はここね。
http://search.cpan.org/~ishigaki/Pod-PerldocJp-0.18/perldocjp

**デフォルトの名無しさん** · 2018/06/03(日) 15:51:19.96

5.28まだ？

**デフォルトの名無しさん** · 2018/06/08(金) 21:09:03.47

例えばファイル名を入れて関数を呼んで、
処理結果を入れた配列なりのリファレンスを戻り値で返す
別のファイル名で同じ関数を呼んで、結果のリファレンスを別の変数で受ける

それで普通に動くんだけど、
なぜ同じ関数のmyで宣言した変数が違うオブジェクトを指しているのか、
なぜ古い方は消えてしまわないのか、
そもそもいつまで残ってるのか、
みたいな部分が何となく不安

参照カウントの仕組みを理解しても、やっぱり不安

**615** · 2018/06/09(土) 01:53:50.05

>>632
気持ちはなんとなく分かるけど、
こういう人に対して何と言って分かりやすく説明したら
よりよいかは
少し考えてしまうな…

**デフォルトの名無しさん** · 2018/06/09(土) 05:26:23.38

大丈夫。参照されなくなったやつは自動で消える。

**デフォルトの名無しさん** · 2018/06/09(土) 08:22:42.99

消えないことに対する不安じゃないんだよな

肉体は既に滅びているけど、どこかにある名簿にまだ名前があるお陰で、
辛うじて魂だけまだ現世に留まってる感じ

リファレンスを戻り値で受けるんじゃなくて、
自分で宣言した変数のリファレンスを引数で渡して、
そこに入れて貰う方式なら安心できる
意味は同じなんだけど

**デフォルトの名無しさん** · 2018/06/09(土) 08:45:10.02

strdupの仕様の気持ち悪さ
無名関数のリファレンスの気持ち悪さ
みたいなやつなら、俺も感じる

**デフォルトの名無しさん** · 2018/06/09(土) 17:49:06.89

うーん。しかし、そういうのは言語を実現する環境の実装にバグがあるかどうかの問題だよなあ。
そのバグを気にするならどんな言語も使えなくなるのでは？コンパイルする言語でもバグってて
変なコード作られたら終わりだしなあ。

**デフォルトの名無しさん** · 2018/06/09(土) 19:13:31.22

信頼性の話じゃないだろ。
言ってしまえば、リファレンスとかオブジェクトとか、なんかふわふわしてて、なんとなく納得がいかん、てだけ。

感覚的には慣れの話でしかないと思うけど、どうしてもというなら、C++でもやってみればいいのでは。
newとかヒープとかを把握できれば、実はぜんぜんふわふわしてないことが理解できるはず。

余計に混乱するかもしらんけども。ｗ

**デフォルトの名無しさん** · 2018/06/09(土) 19:58:15.52

C言語で関数内にstatic変数を持ってて、
そこに何か格納してそのポインタを返す、みたいな仕組みなら安心する

何回呼んでも同じポインタが返ってきて、前回の内容は保存されていない
だから必要なら呼んだ側の責任で保存しとかないといけない
家がない子はいない

perlのsub内のmy変数のリファレンスも見かけはそれと似てるけど、
実際の動作が全然違って、実体は動的に生成される
じゃあC言語のauto変数みたいなもんかというと、関数が終わってもスコープを抜けない
かといってずっと存在する訳でもなくて「要らなくなったら消える」というルールが人智を超える

うまく動くように出来てるんだから、怖がらずに飛んでみろ的な

**デフォルトの名無しさん** · 2018/06/09(土) 20:16:55.67

もはや信じるか否かという宗教的問題か？

**デフォルトの名無しさん** · 2018/06/09(土) 20:29:44.29

変数の寿命なんて本来はコードから静的に判るものだったのに、
それを動的にする代わりに管理を手放して機械に任せることにした
それはなかなかのパラダイムシフトである筈なのに、
オブジェクト指向のデータ隠蔽とセットで隠蔽されてあんまり気にしてない

コンストラクタさんに任せとけば全部うまくやってくれるから

**デフォルトの名無しさん** · 2018/06/10(日) 02:37:37.78

>>639
人智は超えないだろ…

**デフォルトの名無しさん** · 2018/06/10(日) 05:50:21.80

>>639
それだとマルチスレッドの時に困るわけだな。呼び出し側でバッファ作ってそのポインタを渡すという手もあるが、
量が動的に変化する場合はそれだけでは実現できない。で、malloc() 使うわけだが、そうするとどこかで必ず
free() する必要が出てくる。これが煩わしいので自動でなんとかならないかと色々やってるのが今時の言語。
とはいっても Perl は30年以上前に作られた言語だけどね。

**デフォルトの名無しさん** · 2018/06/10(日) 18:45:28.50

Perl++

**デフォルトの名無しさん** · 2018/06/10(日) 18:52:31.32

個人環境をMariaDBに代えてみたけど
DBD::MariaDBがgithubにしかなくてMySQLに戻したわ(´・ω・｀)
こういうとこ困るなー枯れてると

**デフォルトの名無しさん** · 2018/06/10(日) 23:05:19.73

MySQL用で動きそうなもんだが。
実際、数年前だけどRubyでは使えた。

**デフォルトの名無しさん** · 2018/06/11(月) 00:28:21.09

それは枯れてないのでは

**デフォルトの名無しさん** · 2018/06/11(月) 13:01:10.20

枯れてるって、不具合とか掘り尽くされて安定してるって言ういい意味と
動きが無いって言う悪い意味の両面がある気が

**デフォルトの名無しさん** · 2018/06/11(月) 13:04:00.52

>>646
my.conf的な(my.confではない)、恐らくMySQLにあってまりあDBに無いファイル読みにいってこける。
たぶん簡単に修正できるけど、CPAN取得ファイルは弄りたくないから様子見にしたわ

**デフォルトの名無しさん** · 2018/06/11(月) 17:12:02.09

>>648
IT系で後者の意味では普通使わない。
「枯れるソフトウェア」などでググってみ。

**デフォルトの名無しさん** · 2018/06/11(月) 17:21:23.85

>>650
この場合「枯れる　言語」のが適切だと思うけど…
俺は文脈でどっちの意味でも使ってたわ

**デフォルトの名無しさん** · 2018/06/11(月) 19:02:34.25

不具合が枯れたなら分かるけど、動きがないはよくわからん。
ユーザー数は関係ないってこと？C言語はどっち？

**デフォルトの名無しさん** · 2018/06/11(月) 19:30:59.90

%cat = (%hash1, %hash2);
みたいにするとハッシュが結合できる
keys %cat でkeyの配列が取得できる

でも、keys (%hash1, %hash2)
とすると怒られる
keys {%hash1, %hash2}
ならいけるけど、5.12では通らない

どうすれば

**デフォルトの名無しさん** · 2018/06/11(月) 21:05:27.50

(keys %hash1, keys %hash2)かなあ

**デフォルトの名無しさん** · 2018/06/11(月) 21:25:55.72

それだけだと同じキーがあった場合に2つ出て来るのでもう一捻り必要ということになるんだろうな。

こうかねえ？

keys map { $_ => 1 } keys %hash1, keys %hash2

**デフォルトの名無しさん** · 2018/06/11(月) 21:27:28.65

>>653

$cat a.pl
use strict;
my %h0 = ( a => 1, b => 2);
my %h1 = ( b => 3, c => 4);
print( keys( %{ +{ %h0 , %h1 }}),"\n");
$perl a.pl
acb
$
$# できるといえばできるけど、君がやってるやり方をおすすめするよ。その方が余計なバグを防止できる。

**デフォルトの名無しさん** · 2018/06/11(月) 21:37:24.11

怒られる方法が何故悪いのかがよく判らんのだよな
普通に無名のハッシュになるんじゃないのかと思うんだけど、
> Type of argument to keys on reference must be unblessed hashref or arrayref
hashでもarrayでもない何かのリファレンスになってる?

**デフォルトの名無しさん** · 2018/06/11(月) 21:46:36.09

{}で括ってるからhashrefと思ったとか

**デフォルトの名無しさん** · 2018/06/11(月) 23:58:04.20

keys()が引数にリファレンスをとれるようになったのは最近(でもないけど)だから、曽野せいなんでは。
>>657

**デフォルトの名無しさん** · 2018/06/11(月) 23:59:00.05

>>656は、わざわざデリファレンスしてるし。

**デフォルトの名無しさん** · 2018/06/12(火) 00:01:02.77

%hash1 = (a => 1, b => 2);
%hash2 = (c => 3, d => 4);
$ref = (%hash1, %hash2);
print $ref;

さて、何が表示されるでしょう?

**デフォルトの名無しさん** · 2018/06/12(火) 02:21:03.71

perl -e "use Data::Dumper; %hash1 = (a => 1, b => 2); %hash2 = (c => 3, d => 4); $ref = (\%hash1, \%hash2); print Dumper($ref);"

**656** · 2018/06/12(火) 13:02:00.90

>>660
つっこみありがとう。もう長いこと Perl 使ってるからね、そこはデリファレンスしたいんだよ。
そもそも Perl4 にはリファレンスが無かったんだ。
C でも関数ポインタ使うときは (*p)() みたいな書き方してるよ。

**デフォルトの名無しさん** · 2018/06/13(水) 02:19:57.94

>>661
2/8 と出た。何が出てるんだこれ？

**デフォルトの名無しさん** · 2018/06/13(水) 06:32:37.33

>>661
通常はそこはリスト値に展開されて %hash2 の要素のどれかが全体のスカラ値になるはずだけど、そうなってないね。
その仕様は公式ドキュメントのどこに書かれてるの?
通常の評価をしてもらうにはどう書けばいいの?

**デフォルトの名無しさん** · 2018/06/13(水) 07:40:41.18

>>664
5.26からは挙動が変わったので注意
ttp://perldoc.jp/docs/perl/5.26.0/perl5260delta.pod#scalar40-37hash41-32return32signature32changed

>>665
リスト値が展開されてから代入されるのではなく
左辺がスカラコンテキスト -> リストの一番右側の値が代入される -> %hashをスカラコンテキストで評価
と思われ

**デフォルトの名無しさん** · 2018/06/13(水) 10:44:03.43

ありがとう。perldata は読んでたけど理解できてなかった。

**デフォルトの名無しさん** · 2018/06/15(金) 22:18:58.35

正規表現のマッチ結果って、どこかのデフォルト変数に入ってないの?
($match1, $match2) = ($1, $2);
とやる代わりに、
($match1, $match2) = @_;
みたいにやりたい

**デフォルトの名無しさん** · 2018/06/15(金) 22:34:53.18

リストコンテキストで評価すれば$1とか使わず代入できる
($hours, $minutes, $second) = ($time =~ /(\d\d):(\d\d):(\d\d)/);

ttp://perldoc.jp/docs/perl/5.22.1/perlretut.pod#Extracting32matches

**デフォルトの名無しさん** · 2018/06/16(土) 06:32:34.79

>>668-669
もしくは %+ と %-
http://perldoc.jp/docs/perl/5.24.1/perlvar.pod#Variables32related32to32regular32expressions

**デフォルトの名無しさん** · 2018/06/16(土) 06:48:42.62

インデックスだけ渡されてもなー

**デフォルトの名無しさん** · 2018/06/16(土) 13:31:25.59

>>671
@+・@- と勘違いしてないか?
http://perldoc.jp/docs/perl/5.22.1/perlretut.pod#Named32backreferences

**デフォルトの名無しさん** · 2018/06/16(土) 14:40:46.76

どうやっても、($1, $2)に相当するような配列は、自分で作らないと無いんだけど、
そもそもそのやり方は便利なのか? という問題があって

括弧の数を左から数えて、挿入したら間違えずにずらして、というやり方は、
どう考えても避けるべきテクニックなので、わざわざ改良版でそんな方法を
準備したりはしない

**デフォルトの名無しさん** · 2018/06/17(日) 02:57:43.02

>>669
ちょっと捻ってこうすると配列に入るね。

@t = ($time =~ /(\d\d):(\d\d):(\d\d)/);

で、マッチしなければ @t には何も入らないので if (@t) { マッチした時の処理 } のように書ける。

**デフォルトの名無しさん** · 2018/06/17(日) 04:40:03.87

if の中に突っ込んじゃえば見た目が元とあまり変わらなくなるな。

if (my @t = $time =~ /(\d\d):(\d\d):(\d\d)/) {
　# このブロックに入った場合は @t[0..2] に値が入っている。
}

**デフォルトの名無しさん** · 2018/06/17(日) 09:21:55.81

それが常套手段
でも、次の行で使うためだけにテンポラリの変数を命名して、
ということを避ける手段が大抵はあるのに、この場合は無さそうなのが気になる

**デフォルトの名無しさん** · 2018/06/17(日) 16:50:23.88

気にするな。

**デフォルトの名無しさん** · 2018/06/17(日) 17:15:26.48

リストのスライスを使えばいいんじゃないかなあ。

**デフォルトの名無しさん** · 2018/06/17(日) 17:43:24.21

もう括弧を数えるのはやめようぜ、ということなのだろう
$1, $2 の代わりの配列があったとしても、数えないといけないのは同じなので、
明示的にラベルを付けて書くのが人間的

**デフォルトの名無しさん** · 2018/06/17(日) 21:23:30.12

あー。まあそうかな。

**デフォルトの名無しさん** · 2018/07/04(水) 17:49:09.45

使ってる Perl が 24.1 になったんだけど、どこかで do の仕様変わった?
do('.state')
がエラーになるんだが。
@INC に '.' を加えれば見つけてくれるけど
do('./.state')
と書いとくべきだったよ。

**デフォルトの名無しさん** · 2018/07/04(水) 21:00:50.16

それは do の仕様が変わったんではなく、@INC の仕様が変わったんだな。

**デフォルトの名無しさん** · 2018/07/04(水) 21:36:23.59

@_ とタイプしようとしても必ずミスする
下手すると、`\ になる

**デフォルトの名無しさん** · 2018/07/04(水) 22:16:13.94

WCG

**デフォルトの名無しさん** · 2018/07/04(水) 23:54:26.65

>>683
いっそ `\ とタイプするよう心がけたらミスで @_ となる率が上がったりして。

**681** · 2018/07/05(木) 06:47:48.29

>>602
ありがとう。perl5241delta だったんだね。
@INC でなく do を探してたからわからなかったよ。

**681** · 2018/07/05(木) 06:50:01.14

ごめん、>>602 でなく >>682 ね。

**デフォルトの名無しさん** · 2018/07/06(金) 00:12:17.27

質問じゃないけど、愚痴なんで聞き流してください。

Perlが好きなんですが、モジュールを使って実践サンプルが多いんが、つくって覚えるだけなんで
すごいさみしいです。

Perlのモジュールプログラムは最高に面白いのに、なんであの本だけなんですかね？

あと、PythonのTKinterも好きだけど、全然出てない。

**デフォルトの名無しさん** · 2018/07/06(金) 08:01:08.76

今回のプロジェクトは大掛かりだったので、
自分で使う用のツールを大量に作った

こういうの好き

**デフォルトの名無しさん** · 2018/08/11(土) 13:47:45.26

perlの話でもなんでもないけど、再帰呼び出しの話

あるディレクトリから下の階層構造について、再帰的に調べたい
その時に、そのターゲットのディレクトリからの相対パスで出力させたい
それを再帰呼び出しを使ってやらせようとすると、
最初: ターゲット
次: ターゲット/file1
次の次: ターゲット/file1/file11
次の次の次: ターゲット/file1/file11/file111
が調べる対象で、単純に受け取った相対パスに対して
ターゲット/相対パス/ファイル名
を調べればいい訳ではないし、再帰的に渡す相対パス名も、
相対パス/ファイル名
と決め打ちすると最初だけ例外がある

何かスマートにやる方法は無いもんかなと
いっそフルパスで扱って、後から文字列置換でターゲット部分だけ削るという方法もあるけど

**デフォルトの名無しさん** · 2018/08/11(土) 14:01:06.83

>>690
台無しなこというと、ディレクトリ以下のファイルを列挙するシェルコマンドとプロセス通信したほうが速い。

**デフォルトの名無しさん** · 2018/08/11(土) 14:16:49.10

再帰しなくてよくなるだけで、相対パスの問題は解決しないというか、
より遠のくような

**デフォルトの名無しさん** · 2018/08/11(土) 15:52:58.06

Perlの話をするが、File::Findモジュールを使えば。

**デフォルトの名無しさん** · 2018/08/11(土) 20:53:56.37

>>693
まさにFile::Findが遅い。シェルコマンドとプロセス間通信読み取りしたほうがいい。
具体的には以下のようなシェルコマンドをパイプ読み取りするといい。

unixの場合: find [path] -type f
windowsの場合: dir /B /S /A:-D [path]

**デフォルトの名無しさん** · 2018/08/11(土) 21:20:05.57

まさにそんな感じになった

dir の結果になんかハングルとかSJISじゃないものが混じってて、
それをそのままbatファイルに吐いて、
batファイルを見ても・・・みたいに化けてても、
実行させるとちゃんと正常に動作する

何作ってたかというと、差分バックアップツール
tarコマンドでできそうで試したけどうまくいかないので作ったった

全ファイルのタイムスタンプ一覧を保存しておいて、
2代目からは差分だけのアーカイブを作る
消えてるファイルを削除する為のbatファイルも一緒に生成

**デフォルトの名無しさん** · 2018/08/11(土) 23:09:00.44

Perlの話から外れるが、おらは差分バックアップにはrsyncに--backupオプションつけて使ってる。

**デフォルトの名無しさん** · 2018/08/11(土) 23:21:12.60

windowsにもあればいいんだけど

差分バックアップツールそのものはいろいろあるんだよな
っていうか、windowsそのものにも内蔵されてたような

バックアップのデータをバックアップ対象のシステムと同じとこに置いててもあんまり意味ないので、
単一のアーカイブとしてクラウドかどっかに置きたい
しかも、専用ファイル形式とかでなくて、何もインストールせずに解凍するだけでリストアしたい
とか考えると条件に合うツールがなかなか無くて、
それでいて作るのはそんなに難しくもなさそうなので、自分で作るかと

**デフォルトの名無しさん** · 2018/08/12(日) 05:27:13.10

rsyncは、Windowsでもつかえるぞ。

**デフォルトの名無しさん** · 2018/08/12(日) 05:29:09.82

Windows でバックアップというと xcopy や robocopy だろうな。
rsync も動くんじゃないか? Cygwin や WSL 上の Ubuntu とかなら確実に動くと思うが。

**デフォルトの名無しさん** · 2018/08/12(日) 06:37:38.09

rsyncっていうかrdiffかな

rdiffの出力形式がどんなのか知らないけど、
リストア時にもrdiffが必要だというなら避けたい

ただのzipなりtarなりのアーカイブを順に上書き展開するだけでいい状態にしておかないと、
リストアが必要な事態になった時には多分リストア用のツールも無い

**615** · 2018/08/12(日) 14:53:20.30

>>697
robocopy

**デフォルトの名無しさん** · 2018/08/12(日) 15:08:29.76

だからミラーを作りたい訳じゃないって

ミラーも実はあるけど
そっちはもっと頻度の高いバックアップ用で、
物理的に別のドライブなら同時に壊れる確率は低いだろうという考え

そうじゃなくて、PC一式盗まれた/津波で流された/証拠物件として押収された、等の為に、
まるきり新規から昨日の作業環境を復元したい時の為に、
最低限の情報をクラウドに置いてある

それは特定のディレクトリ以下まるごとのアーカイブでいいんだけど、
サイズが巨大になるので2代目以降は差分で済ませたいというのがそもそもの動機

**615** · 2018/08/12(日) 16:11:04.49

>>702
find 特定のディレクトリ以下まるごとアーカイブしたdir -type f -ptin0 | xargs -0 md5sum -b | sort -k2 > md5_tree_orig.out

で生成した md5_tree_orig.out を保持しておき、

md5sum --quiet -c その後更新を受けた上記dir md5_tree_orig.out

で追加/削除/更新されたファイルを検出しリストアップ
とか

**デフォルトの名無しさん** · 2018/08/12(日) 16:17:29.70

まあ、そんなようなことをタイムスタンプの比較だけでやらせた

リストアップまでは簡単で、差分のアーカイブの作成と、
ファイルが減ってたらリストア側からも減らす仕組みが面倒なんだけど
動かしてみると空のディレクトリが生成されてなかったり

**デフォルトの名無しさん** · 2018/08/12(日) 18:42:09.50

信頼性の不安とか動作確認のめんどさとか考えたら、rsync/robocopyにしたほうがいいんじゃないの？
どうしても差分だったらrdiff-backupとか？

**デフォルトの名無しさん** · 2018/08/12(日) 19:21:31.28

ミラーは既にやってるからもう要らない
差分のアーカイブを作ってネットに保存するというのをやりたいだけ

勧めるとしたらtarのバックアップ機能で、まさに差分だけのアーカイブを
作る機能があるんだけど、windowsに移植した人が更新時間とアクセス時間とか
あのへんを失敗してるみたいで、試したのは使えないビルドだった

**615** · 2018/08/12(日) 21:24:20.34

mtimeに基づいて更新されたファイルだと判定する方法は、
アーカイブから抽出した古い日付のファイルを見落とすので
抜けが起きる可能性があるよ

**デフォルトの名無しさん** · 2018/08/12(日) 21:35:27.48

よし、cygwinを導入してcygwinのtar使おうぜ。

**デフォルトの名無しさん** · 2018/08/12(日) 21:37:14.43

makeじゃないんだから
イコールでなければ当然更新対象

でもなー
意図的にタイムスタンプを保持したまま修正する、みたいなことを
あちこちでやってるんだよな

**デフォルトの名無しさん** · 2018/08/12(日) 21:43:05.49

tar.exe はWindows10だと標準で入るらしい。

「tar」「curl」がWindows 10に、“WSL”も強化～Insider Preview Build 17063
https://forest.watch.impress.co.jp/docs/news/1097996.html
2017年12月20日 15:17

**デフォルトの名無しさん** · 2018/08/12(日) 21:58:15.81

新しき皮袋に古き酒を

**デフォルトの名無しさん** · 2018/08/12(日) 22:20:57.53

λ where curl
C:\Windows\System32\curl.exe

λ where tar
C:\Windows\System32\tar.exe

ホンマや

**デフォルトの名無しさん** · 2018/08/21(火) 07:25:20.85

AnyData は固定長レコードに対応してなかったんだな…

**デフォルトの名無しさん** · 2018/08/21(火) 07:26:35.45

>>710
色々始まってきてんね

**デフォルトの名無しさん** · 2018/08/22(水) 02:53:12.04

　　　　　　　 _　―-　‐- ､
　　　　　　 (r／　-─二:.:.:ヽ　　始まったな
　　　　　　７''´￣ヽ-─＜:.:.',　　　　　　　　　　　　　　　　　　＿＿
.　　　　　　〈t＜　く=r‐､＼:く　　　　　　　＿ ...-::‐::￢:::::￣:::::::::::::::::::::::::::::::
　　　　　 ∠j `　/ ,j={_/ヽヽr'　　　　　　　＞:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
　　　　　　　っ Y　_/　ヽ了　　　　　　　／:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
.　　　　　　　しイ --─￢　　　　　　 /::::::/:/|:::／::∧:::∧:::::::::::::::::::::::::::::::::::
　　　　　　　　 f: :_: : :_:_:_└ ､　　　　 |/f|/|/ .|/　|/　∨　ヽ|＼:::::::::::::::::::::::::
　　　　　　　　/-ｰ／: : : : : : :＼　　　　　 {　　　　　　　　　　　ﾍ:::::::::::::::::::::
　　　　　　　/7: : : :r: : : : : : : : : }　　　　　',　 .j ／　　　　　}　　 .}::::::::::::::::::::
　　　　　　/: : : : : :.|: :j: : : :＼: : j　　　　　 }　/_　　　　　　ﾐ　　ﾍ::::::::::::::::::
　　　　　/: : : : : : : j: ﾍ、: : : : ＼|　　　　/く<l´::＜ﾆ二￣｀＞　　　ﾐ:::::::::／
　　　　./: : : : : : : ＼::::ﾍ: : : : : : :ヽ　　　 {::ア{:::::::}厂¨,`_＿＿＿___j::::::/／
　　　　{: : : : : : : : : : ﾍ:::ﾍ: : : : : : :',　　　 V　ﾍ::::ﾉ`￣　￣￣￣￣ .{::::|ヽ
　　　　',: : : : : : : : : : : :＼ﾍ: : : : : :ﾍ.　　 /　　ﾍ¨　　　　　　　／／:}::::|／
　　　　 ',: : : : : : : :::::::::::::::::::〉: :_:_.r--―く　　　>ヽ　　　　／　　 _ﾉ::::{　_／
　　　　　'; : : : :.::::::::::::::::::::::r＜／ :.:..　　　`ー￢＼__　　　　　　　 /::::/
　　　　　〈: : : : :ー---‐‐r―'´　　:.:.:.　ﾍ: .　　ヽ . .　}ｰ､　　　 .／::::<
　　　　　　　　　　　　　　　　ああ・・・　　　　　　　',: . .|: : 〉　／:::::::/

**デフォルトの名無しさん** · 2018/09/05(水) 22:22:13.99

gethostbyaddr関数を使ってhost名に変換したいけどなぜかこれ使うと
gateway timeoutとかいうのが表示されます
何が問題ですか？

**デフォルトの名無しさん** · 2018/09/06(木) 02:07:27.72

>>716
use Socket で getnameinfo 使っても同じ?

**デフォルトの名無しさん** · 2018/09/16(日) 16:31:42.80

forkを使わずにperlからperlを複数起動するにはどうしたらいいだろう

**デフォルトの名無しさん** · 2018/09/16(日) 21:13:46.95

試してないけど
`perl hoge.pm &`
じゃダメ？

**デフォルトの名無しさん** · 2018/09/16(日) 21:22:37.13

一つだけ起動ならそれでいいだろうけど、複数起動できない

**デフォルトの名無しさん** · 2018/09/16(日) 23:05:41.48

forkがダメな理由は？

**デフォルトの名無しさん** · 2018/09/16(日) 23:26:35.23

タスクをkillする別のスクリプトと組み合わせて使う予定で、
windowsのperlのforkはkillと相性が悪いから

**デフォルトの名無しさん** · 2018/09/17(月) 01:48:55.49

Win32APIを直接使えば。
CreateProcess()とか。

**デフォルトの名無しさん** · 2018/09/17(月) 02:58:47.55

>>720
my $pid1 = system(1, "perl prog1.pl");
my $pid2 = system(2, "perl prog2.pl");

のようにして起動して後でこの $pid1, $pid2 に対して kill するのは?

**デフォルトの名無しさん** · 2018/09/17(月) 03:00:07.85

ごめん。2行目間違えた。こうね。system() の第一引数はどちらも1。

my $pid2 = system(1, "perl prog2.pl");

**デフォルトの名無しさん** · 2018/09/17(月) 07:03:10.02

おお、何故かうまく行く
理由が判らない

**デフォルトの名無しさん** · 2018/09/17(月) 12:38:21.06

>>724,725
Windows Strawberry Perl と ubuntu(WSL)標準perl それぞれで試したけど、挙動が変わる。
以下のようにthreadsを使ったらどうかな。挙動も同じになるし。

use threads
my $t1 = threads->create(sub { system("perl prog1.pl"); });
my $t2 = threads->create(sub { system("perl prog2.pl"); });
$t1->join();
$t2->join();

**デフォルトの名無しさん** · 2018/09/17(月) 20:28:41.27

あれ？規制されたか？
ちょっと書き込みテスト。