【モダン推奨】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/04/18(水) 03:06:20.17

単純にSELECT y FROM hoge WHERE x BETWEEN a AND bで
実態はSQL側で最適化してくれるよ
データを扱うことに特化した高級言語な訳だし

個人的にはDB使うかどうかって、
データの流動性(?)がポイントな気がする
弄る機会が多ければ多いほど恩恵受けられる訳だから

**デフォルトの名無しさん** · 2018/04/18(水) 03:22:30.21

>>588
BETWEEN a AND ｂって、aからbの間ってことじゃなかったっけ？
x=100502の場合のyを求めるのにどう書くの？
BETWEEN 100502 AND 100502でいいんだっけ？

**デフォルトの名無しさん** · 2018/04/18(水) 03:27:30.58

これって例えば、10000から11000の間にあるデータxを全部抽出したい場合とかに使うものなのでは？

**デフォルトの名無しさん** · 2018/04/18(水) 03:58:19.16

>>587の例って全部おかしかったので書き直しとく
・MAX(x<=100502)
・x<=100502 and (次のレコードのx)?>100502
・x<=100502 and x2>=100502

**デフォルトの名無しさん** · 2018/04/18(水) 11:34:48.13

表は x の最大と最小(xmin,xmax)と y をただ入れといて select y from xytbl where x between xmin and xmax みたいにすればいいじゃん。
xmin + 1 が次の xmax と一致するので無駄があるが xmin, xmax にインデックス作っておけば多分速くはなるだろう。
どうしても無駄をなくしたい場合は xmin と y だけにして xmax はビュー作ってそちらであるかのように見せかけておくか、または複雑になるが一つのSQL文にするかだ。

**デフォルトの名無しさん** · 2018/04/19(木) 02:32:23.49

>>592
何を言ってるのか不明
表にxminとyしかないのなら、xは使えないだろ
また、[x,y,xmin,xmax]=
([100000,1000,100000,100500], [100501,1001,100501,100700], [100701,1002,100701,120000],…)
ってことで
select y from xytbl where x between xmin and xmax
なら全レコードがマッチするよ

**デフォルトの名無しさん** · 2018/04/19(木) 03:01:26.91

between句は、
SELECT カラム名 , ... FROM テーブル名 WHERE カラム BETWEEN 値1 AND 値2;
で
SELECT カラム名 , ... FROM テーブル名 WHERE カラム >= 値1 AND カラム <= 値2;
と書くのと同等の機能

select y from tbl01 where x between 100000 and 110000
なら
select y from tbl01 where x >= 100000 and x<=110000
と同じってこと

**デフォルトの名無しさん** · 2018/04/19(木) 10:18:42.11

>>593
うまく伝わらなかったかな？考えてることは多分同じだよ。
例えば以下のようにするの(以下はSQLiteでのSQL)。

create table xytbl (xmin, xmax, y);
insert into xytbl (xmin, xmax, y)
values (100000, 100500, 1000), (100501, 100700, 1001), (100701, 120000, 1002);
create table xtbl (x);
insert into xtbl (x) values (9999), (100300), (100502), (118000), (120100);
select x, y from xytbl, xtbl where x between xmin and xmax;

ここでは xtbl に x の値だけ並べて入れておいて後でまとめて selectして x, y 両方出している。

**デフォルトの名無しさん** · 2018/04/19(木) 10:19:56.20

ごめんびとうぃーん言い出しっぺだけどダメだね
感覚と言うかノリだけで書いてしまった
実際書くと即だめじゃんってなるやつ

**デフォルトの名無しさん** · 2018/04/19(木) 10:22:29.59

PerlからDBI経由でDBアクセスするならxtbl不要でxの部分はprepareで'?'にしておいてexecuteで実際の値を渡せば良い。

**デフォルトの名無しさん** · 2018/04/19(木) 10:28:26.42

真面目に今考えた結果
Select y From hoge Where ? < x Order by x Desc Limit 1;
で多分取れる

**デフォルトの名無しさん** · 2018/04/23(月) 17:03:26.38

$$で取得するプロセスIDはどんな環境でも最大４桁までですか？

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

>>599
んなこたなかろう。Linuxで ps -fe とかやれば5桁ぐらいのが沢山出てくるぞ。
かといって最大5桁で作って安心してはいけない。
将来的に変わるかも知れないしLinux以外ではもっと桁数あるかも知れないからな。

**デフォルトの名無しさん** · 2018/05/01(火) 17:33:53.54

全く初歩的な質問ですいません
ググってみたのですがそのものズバリの例を見つけることができませんでした。
やりたいことは、連装配列に配列を入れて取り出すことです。
最後の出力行が　[2]　となることを意図していますが、出力は
[] 　となり、ワーニングもでています。
配列を入れたつもりの連装配列の要素が配列とは認識されていないようです。
この場合どのように書けば、所期の結果が得られるでしょうか？

$ perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-linux-gnu-thread-multi
(with 46 registered patches, see perl -V for more detail)
～後半略～

$ cat sample.pl

my %hasy01;
my @array01;

@array01=(2,4,6,8);
$hash01{"name"}=@array01;

printf( "[%s]\n", $array01[0] );
printf( "[%s]\n", $hash01{"name"}[0] );

$ perl -w sample.pl
[2]
Use of uninitialized value in printf at sample.pl line 9.
[]

**デフォルトの名無しさん** · 2018/05/01(火) 17:45:53.43

$hash01{"name"}=\@array01;

こうやるんだよ

**デフォルトの名無しさん** · 2018/05/01(火) 17:54:36.04

>>601
$hash01{"name"}=[@array01];

でも可

**デフォルトの名無しさん** · 2018/05/01(火) 17:57:41.47

>>602
おお、うまくいきました。
ありがとうございます。

**デフォルトの名無しさん** · 2018/05/01(火) 21:28:23.40

>>603
リストのリファレンスかコピーかでまったく別物なので注意。

**デフォルトの名無しさん** · 2018/05/01(火) 21:42:46.89

デリファレンス側もちょっと不満があるな

printf( "[%s]\n", ${$hash01{"name"}}[0] );
こうか
printf( "[%s]\n", $hash01{"name"}->[0] );
こうがいい

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

>>605
目的用途に応じて意識的に書き分ける

>>606
}{][の間の->は略せるので
printf("[%s]\n", $hash01{"name"}[0]);

が良いかと

**デフォルトの名無しさん** · 2018/05/02(水) 08:00:00.39

#自分ならこうするかな
my $hash01;
my @array01;

@array01=(2,4,6,8);

$hash01 = {
name => \@array01 ,
foo => \@array01 ,
bar => \@array01 ,
# .... 多分こういうふうに増えるだろうし
};

printf( "[%s]\n", $h->{name}->[0] ); # -> があると目が滑りにくい！

**デフォルトの名無しさん** · 2018/05/05(土) 20:27:28.60

正規表現でマッチした部分を$1,$2などで取り出すけど
$いくつまであるかわからない場合$1,$2...$nをまとめて配列に入れる方法ってどうやるんですか？

**デフォルトの名無しさん** · 2018/05/05(土) 21:54:57.88

>>609
ttp://perldoc.jp/docs/perl/5.22.1/perlrequick.pod#Extracting32matches
＞リストコンテキストでは、グループ化付きのマッチング /regex/ はマッチングした値のリスト ($1,$2,...) を返します。従ってこれは以下のように書き換えられます
＞ ($hours, $minutes, $second) = ($time =~ /(\d\d):(\d\d):(\d\d)/);

ttp://perldoc.jp/docs/perl/5.22.1/perlrequick.pod#More32matching
＞リストコンテキストでは、//g はマッチングしたグループのリストを返します; グループ化の指定がなければ、正規表現全体にマッチングするリストを返します。従って
＞ @words = ($x =~ /(\w+)/g);

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

そういえば$10まで行って困ったこと一度もないな

**デフォルトの名無しさん** · 2018/05/06(日) 12:36:15.67

>>611
え？困らんだろ。普通に $10 とか $11 とか書けば良いだけだし。

**デフォルトの名無しさん** · 2018/05/06(日) 13:41:43.10

Perl のことだとは言ってないな。正規表現の話なら 9 までしか使えない方が多数派だ。Perl でさえ昔はそうだった。
まあ、そういう話なら $10 ではなく \10 と書くべきかもしれないが。

**デフォルトの名無しさん** · 2018/05/06(日) 18:20:08.93

いやこのスレは「Perl についての質問箱」なわけで・・・

**デフォルトの名無しさん** · 2018/05/15(火) 01:25:39.67

ﾕｰｻﾞ定義関数のリファレンスを変数に代入しておき、そのリファレンス変数を
参照することによって関数を呼び出すことができます。たとえばこんな感じに。
sub s { $_[0]+1 }
$r = \&s;
print $r->(1)."\n";

$ perl usｒ.pl
2

それでは、popやshift、printなどの組み込み関数についても、リファレンスを変数に代入しておき、変数を参照することによって組み込み関数を呼び出すことができないか方法を探しています。

しかしCOREやCORE::GLOBAL名前空間を使ってできないか、ためしてみましたがうまくいきません。たとえば

$r = \CORE::print;
#print "$r\n";
print $r->(3.14, "\n");

を実行すると

Not a CODE reference at ～.pl line 3.

となります。

$r = \CORE::GLOBAL::print;
#print "$r\n";
print $r->(3.14, "\n");

を実行しても

Not a CODE reference at ～.pl line 3.

となってしまします。何かいい方法をご存知でしたら教えてくださいませ。

**デフォルトの名無しさん** · 2018/05/15(火) 07:18:03.41

ユーザー定義関数だと\&でやってるのにCOREは\&でやってないのはなんで？

**615** · 2018/05/15(火) 23:35:25.73

>>616
\&CORE もためしたけれど

$r = \&CORE::print;
print "$r\n";
$r->(3.14, "\n");

実行すると

Undefined subroutine &CORE::print called at ～.pl line 3.
CODE(0x3919c)

となるのよ。
できなことなのかね…

**デフォルトの名無しさん** · 2018/05/16(水) 00:12:42.68

ttps://perldoc.perl.org/CORE.html
COREパッケージの関数もリファレンスを取得したり別名を定義することができる（pushなど）
ただし一部はベアワードでしか呼び出せない（printなど）

＞組み込み関数についても、リファレンスを変数に代入しておき、変数を参照することによって組み込み関数を呼び出すことができないか
結論：ものによる

**615** · 2018/05/16(水) 01:13:39.26

>>618
ありがとう。

**デフォルトの名無しさん** · 2018/05/16(水) 04:01:32.31

無名関数のリファレンスを使えば。

**615** · 2018/05/16(水) 07:58:19.21

>>620
そうすれば機能的に可能だけれど、
ﾕｰｻﾞ関数のコードがワンクッション間に入るので
パーフォマンス的にみて、
できれば組み込み関数を直接、第一級関数としてクロージャーなどに
使えないか調べていた、ってわけですのよ

**デフォルトの名無しさん** · 2018/05/20(日) 02:13:22.75

https://log.perl.org/2018/05/goodbye-search-dot-cpan-dot-org.html

search.cpan.orgが6月に終了だと。
mcpan使ってねってことだけど、終焉を感じるなぁ…

**デフォルトの名無しさん** · 2018/05/23(水) 19:29:13.97

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

U85LY

**デフォルトの名無しさん** · 2018/05/23(水) 21:28:50.98

意味もなく、関係ない変数を bless

**デフォルトの名無しさん** · 2018/05/24(木) 12:17:56.05

bless
それは祝福

**デフォルトの名無しさん** · 2018/05/26(土) 02:04:34.60

God bless you!

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

さすがにリファレンスですらない変数だと怒られた
でも、勝手に作った偽オブジェクトを食わせたりはできる

他の言語はそのへんの安全装置はどうなってるんだろう

**デフォルトの名無しさん** · 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 ね。