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

1デフォルトの名無しさん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辺り



630デフォルトの名無しさん2018/05/26(土) 15:30:59.65ID:NxLTutQ0
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

631デフォルトの名無しさん2018/06/03(日) 15:51:19.96ID:F3uiBXX1
5.28まだ?

632デフォルトの名無しさん2018/06/08(金) 21:09:03.47ID:JtDK6GNM
例えばファイル名を入れて関数を呼んで、
処理結果を入れた配列なりのリファレンスを戻り値で返す
別のファイル名で同じ関数を呼んで、結果のリファレンスを別の変数で受ける

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

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

6336152018/06/09(土) 01:53:50.05ID:dh6JCgcP
>>632
気持ちはなんとなく分かるけど、
こういう人に対して何と言って分かりやすく説明したら
よりよいかは
少し考えてしまうな…

634デフォルトの名無しさん2018/06/09(土) 05:26:23.38ID:uYb8xFM5
大丈夫。参照されなくなったやつは自動で消える。

635デフォルトの名無しさん2018/06/09(土) 08:22:42.99ID:VVS81UdD
消えないことに対する不安じゃないんだよな

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

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

636デフォルトの名無しさん2018/06/09(土) 08:45:10.02ID:ngqKHOqq
strdupの仕様の気持ち悪さ
無名関数のリファレンスの気持ち悪さ
みたいなやつなら、俺も感じる

637デフォルトの名無しさん2018/06/09(土) 17:49:06.89ID:uYb8xFM5
うーん。しかし、そういうのは言語を実現する環境の実装にバグがあるかどうかの問題だよなあ。
そのバグを気にするならどんな言語も使えなくなるのでは?コンパイルする言語でもバグってて
変なコード作られたら終わりだしなあ。

638デフォルトの名無しさん2018/06/09(土) 19:13:31.22ID:sS73Mbwb
信頼性の話じゃないだろ。
言ってしまえば、リファレンスとかオブジェクトとか、なんかふわふわしてて、なんとなく納得がいかん、てだけ。

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

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

639デフォルトの名無しさん2018/06/09(土) 19:58:15.52ID:VVS81UdD
C言語で関数内にstatic変数を持ってて、
そこに何か格納してそのポインタを返す、みたいな仕組みなら安心する

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

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

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

640デフォルトの名無しさん2018/06/09(土) 20:16:55.67ID:vLAdQtfD
もはや信じるか否かという宗教的問題か?

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

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

642デフォルトの名無しさん2018/06/10(日) 02:37:37.78ID:3IVbSRGy
>>639
人智は超えないだろ…

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

644デフォルトの名無しさん2018/06/10(日) 18:45:28.50ID:vU7l4ry5
Perl++

645デフォルトの名無しさん2018/06/10(日) 18:52:31.32ID:7xflXXzg
個人環境をMariaDBに代えてみたけど
DBD::MariaDBがgithubにしかなくてMySQLに戻したわ(´・ω・`)
こういうとこ困るなー枯れてると

646デフォルトの名無しさん2018/06/10(日) 23:05:19.73ID:A0irmCxf
MySQL用で動きそうなもんだが。
実際、数年前だけどRubyでは使えた。

647デフォルトの名無しさん2018/06/11(月) 00:28:21.09ID:giD/kjqV
それは枯れてないのでは

648デフォルトの名無しさん2018/06/11(月) 13:01:10.20ID:FLjqN/A3
枯れてるって、不具合とか掘り尽くされて安定してるって言ういい意味と
動きが無いって言う悪い意味の両面がある気が

649デフォルトの名無しさん2018/06/11(月) 13:04:00.52ID:FLjqN/A3
>>646
my.conf的な(my.confではない)、恐らくMySQLにあってまりあDBに無いファイル読みにいってこける。
たぶん簡単に修正できるけど、CPAN取得ファイルは弄りたくないから様子見にしたわ

650デフォルトの名無しさん2018/06/11(月) 17:12:02.09ID:ah84zYcK
>>648
IT系で後者の意味では普通使わない。
「枯れる ソフトウェア」などでググってみ。

651デフォルトの名無しさん2018/06/11(月) 17:21:23.85ID:FLjqN/A3
>>650
この場合「枯れる 言語」のが適切だと思うけど…
俺は文脈でどっちの意味でも使ってたわ

652デフォルトの名無しさん2018/06/11(月) 19:02:34.25ID:HvQh9O78
不具合が枯れたなら分かるけど、動きがないはよくわからん。
ユーザー数は関係ないってこと?C言語はどっち?

653デフォルトの名無しさん2018/06/11(月) 19:30:59.90ID:giD/kjqV
%cat = (%hash1, %hash2);
みたいにするとハッシュが結合できる
keys %cat でkeyの配列が取得できる

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

どうすれば

654デフォルトの名無しさん2018/06/11(月) 21:05:27.50ID:HvQh9O78
(keys %hash1, keys %hash2)かなあ

655デフォルトの名無しさん2018/06/11(月) 21:25:55.72ID:C5cAV0Rs
それだけだと同じキーがあった場合に2つ出て来るのでもう一捻り必要ということになるんだろうな。

こうかねえ?

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

656デフォルトの名無しさん2018/06/11(月) 21:27:28.65ID:bgvsbZyV
>>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
$
$# できるといえばできるけど、君がやってるやり方をおすすめするよ。その方が余計なバグを防止できる。

657デフォルトの名無しさん2018/06/11(月) 21:37:24.11ID:giD/kjqV
怒られる方法が何故悪いのかがよく判らんのだよな
普通に無名のハッシュになるんじゃないのかと思うんだけど、
> Type of argument to keys on reference must be unblessed hashref or arrayref
hashでもarrayでもない何かのリファレンスになってる?

658デフォルトの名無しさん2018/06/11(月) 21:46:36.09ID:C5cAV0Rs
{}で括ってるからhashrefと思ったとか

659デフォルトの名無しさん2018/06/11(月) 23:58:04.20ID:kxBy2s6A
keys()が引数にリファレンスをとれるようになったのは最近(でもないけど)だから、曽野せいなんでは。
>>657

660デフォルトの名無しさん2018/06/11(月) 23:59:00.05ID:kxBy2s6A
>>656は、わざわざデリファレンスしてるし。

661デフォルトの名無しさん2018/06/12(火) 00:01:02.77ID:DCSlzX2w
%hash1 = (a => 1, b => 2);
%hash2 = (c => 3, d => 4);
$ref = (%hash1, %hash2);
print $ref;

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

662デフォルトの名無しさん2018/06/12(火) 02:21:03.71ID:zyhS8Ljg
perl -e "use Data::Dumper; %hash1 = (a => 1, b => 2); %hash2 = (c => 3, d => 4); $ref = (\%hash1, \%hash2); print Dumper($ref);"

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

664デフォルトの名無しさん2018/06/13(水) 02:19:57.94ID:mK+NhzCY
>>661
2/8 と出た。何が出てるんだこれ?

665デフォルトの名無しさん2018/06/13(水) 06:32:37.33ID:a9+2+9qX
>>661
通常はそこはリスト値に展開されて %hash2 の要素のどれかが全体のスカラ値になるはずだけど、そうなってないね。
その仕様は公式ドキュメントのどこに書かれてるの?
通常の評価をしてもらうにはどう書けばいいの?

666デフォルトの名無しさん2018/06/13(水) 07:40:41.18ID:3GuASBgR
>>664
5.26からは挙動が変わったので注意
ttp://perldoc.jp/docs/perl/5.26.0/perl5260delta.pod#scalar40-37hash41-32return32signature32changed

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

667デフォルトの名無しさん2018/06/13(水) 10:44:03.43ID:a9+2+9qX
ありがとう。perldata は読んでたけど理解できてなかった。

668デフォルトの名無しさん2018/06/15(金) 22:18:58.35ID:Cep0TxDe
正規表現のマッチ結果って、どこかのデフォルト変数に入ってないの?
($match1, $match2) = ($1, $2);
とやる代わりに、
($match1, $match2) = @_;
みたいにやりたい

669デフォルトの名無しさん2018/06/15(金) 22:34:53.18ID:+TY+tyj1
リストコンテキストで評価すれば$1とか使わず代入できる
($hours, $minutes, $second) = ($time =~ /(\d\d):(\d\d):(\d\d)/);

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

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

671デフォルトの名無しさん2018/06/16(土) 06:48:42.62ID:QsFR7Mzm
インデックスだけ渡されてもなー

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

673デフォルトの名無しさん2018/06/16(土) 14:40:46.76ID:QsFR7Mzm
どうやっても、($1, $2)に相当するような配列は、自分で作らないと無いんだけど、
そもそもそのやり方は便利なのか? という問題があって

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

674デフォルトの名無しさん2018/06/17(日) 02:57:43.02ID:rS3/QTqY
>>669
ちょっと捻ってこうすると配列に入るね。

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

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

675デフォルトの名無しさん2018/06/17(日) 04:40:03.87ID:rS3/QTqY
if の中に突っ込んじゃえば見た目が元とあまり変わらなくなるな。

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

676デフォルトの名無しさん2018/06/17(日) 09:21:55.81ID:jBtDb+3n
それが常套手段
でも、次の行で使うためだけにテンポラリの変数を命名して、
ということを避ける手段が大抵はあるのに、この場合は無さそうなのが気になる

677デフォルトの名無しさん2018/06/17(日) 16:50:23.88ID:YZJ2jt3n
気にするな。

678デフォルトの名無しさん2018/06/17(日) 17:15:26.48ID:1gNDCUDy
リストのスライスを使えばいいんじゃないかなあ。

679デフォルトの名無しさん2018/06/17(日) 17:43:24.21ID:jBtDb+3n
もう括弧を数えるのはやめようぜ、ということなのだろう
$1, $2 の代わりの配列があったとしても、数えないといけないのは同じなので、
明示的にラベルを付けて書くのが人間的

680デフォルトの名無しさん2018/06/17(日) 21:23:30.12ID:hnLcPBvl
あー。まあそうかな。

新着レスの表示
レスを投稿する