Perlコーディング初心者質問スレ Part 50

**nobodyさん** · 2006/06/26(月) 00:46:38

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 2006/07/13(木) 01:04:37

>>487
静的なhtmlをincludeするんじゃなくて、そこで普通にテンプレートを使えば
実質お望みの事ができると思うんだけど…。

**nobodyさん** · 2006/07/13(木) 01:05:37

>>487
いろいろ方法はあるだろうけど、全く別の CGI を呼ぶ「いい方法」というなら SSI が「いい方法」だと思うぞ。

**nobodyさん** · 2006/07/13(木) 01:06:25

実はそこに入れたいのはカウンターとかいう話じゃねえのかなｗ

**nobodyさん** · 2006/07/13(木) 01:17:32

質問
パーミッション777のディレクトリだとmkdirできるのですが
755だとできません。777だとセキュリティ的に問題ですよね？
755のディレクトリ直下に新規ディレクトリを作成するにはどうしたらいいでしょうか？

**nobodyさん** · 2006/07/13(木) 01:29:08

>>484
よく分かってないなら、そういうプログラムは組まない方がいい。

**nobodyさん** · 2006/07/13(木) 01:29:35

>>491
じゃー、chmod で 777 にしてから mkdir して 755 に戻せば？

**nobodyさん** · 2006/07/13(木) 01:43:02

>>493
777のディレクトリだとchmodできましたが
755のディレクトリだとchmodできませんでした・・・

**487** · 2006/07/13(木) 02:29:43

>>487
知識不足で申し訳ないです。普通にテンプレートを使うとはどういうことでしょう？テンプレートでcgiを実行するようなものがあるんですか？

>> 489
SSIで試してみました。parent.cgiから読み取るのをchild.shtmlにしてその中でとして実行してみました。

結果普通にchild.shtmlを見ると実行が確認できたのですが、parent.cgiの中でshtmlを読み込んでしまうとSSIが実行されないようでダメでした。

>>490
カウンターではありませんｗ

**nobodyさん** · 2006/07/13(木) 02:50:05

>>495
テンプレート使ってるってことは、そもそもCGIで動いてるんでしょ。
その場で動的なページ作ればいいだけでは。

テンプレートで静的なhtmlを読み込んで、
さらにそこからCGI叩いて動的なページを、、、なんて考える前に。

**495** · 2006/07/13(木) 03:13:47

>>496
レスありがとうございます。

しかしそのテンプレートのhtmlの"ある部分"にCGIの結果を入れたいんですよ。そこはスタイルシート等で位置が厳密に決まっているのでその部分だけ元のparent.cgiでhoge.cgiを呼び出してってのは難しいんじゃないかと思ってます。

**nobodyさん** · 2006/07/13(木) 03:25:44

じゃあもう iframe でいいじゃん。それかAjax

**nobodyさん** · 2006/07/13(木) 06:06:02

>>483
言いたい事はわかるが、
それはパターンマッチを必要とする条件じゃないのか？

ただの文字列を探すならindexしかないだろ。

**nobodyさん** · 2006/07/13(木) 06:14:58

Cとかでは確かにindexは激速だが、Perlはもしかしたらindexが正規表現ライブラリの
皮をかぶってるかもしれないから、ソース見るかベンチ取るかしてみないと(ry

**nobodyさん** · NG

昔indexの方が速かった覚えがあるので
ふつーに簡単なベンチ取ったら
indexの方が2倍速かったんですけど
当然っちゃー当然の結果やね

**nobodyさん** · 2006/07/13(木) 06:32:39

こういう結果もあるぞ。

http://x68000.q-e-d.net/~68user/webcgi/search-1.html

**457** · 2006/07/13(木) 07:33:25

気分良く寝てたので話題に乗りおくれた。
>>502
横レスだけどリンク先を良くよんだら？
search-2.cgi がせめて and 検索だったらいいんだけどリンク先は
アンフェアな比較だよ。（まあ、そういう目的で作ったんんじゃない
だろうけど）
以下は寝起きで確認したベンチマークのソース。
#!/usr/bin/env perl -w
#use strict ;
use Benchmark ;
my $str1 = ( 'a' x 30 ) . 'hoge' . ( 'a' x 10 ) ;
my $str2 = ( 'a' x 30 ) . ' hoge ' . ( 'a' x 10 ) ;
sub cont1(){ $str1 =~ /hoge/ }
sub cont2(){ $str2 =~ /hoge/ }
sub test_index1(){ index $str1, 'hoge' }
sub test_index2(){ index $str2, 'hoge' }
timethese 500000, { o0 => 'cont1' , o1 => 'cont2' , o2 => 'test_index1' , o3 => 'test_index2' } ;
================
Benchmark: timing 500000 iterations of o0, o1, o2, o3...
o0: 1 wallclock secs ( 1.66 usr + 0.01 sys = 1.67 CPU) @ 299401.20/s (n=500000)
o1: 2 wallclock secs ( 1.66 usr + 0.02 sys = 1.68 CPU) @ 297619.05/s (n=500000)
o2: 1 wallclock secs ( 1.43 usr + 0.01 sys = 1.44 CPU) @ 347222.22/s (n=500000)
o3: 1 wallclock secs ( 1.43 usr + 0.01 sys = 1.44 CPU) @ 347222.22/s (n=500000)

**nobodyさん** · 2006/07/13(木) 07:46:36

search-3.pl って eval でモロ高速化してんじゃん…
search-2 が and 検索であろうとなんであろうと、単純な index と正規表現
の速度比較のソースにはならんな。

**nobodyさん** · 2006/07/13(木) 13:17:19

>>500
>Perlはもしかしたらindexが正規表現ライブラリの
>皮をかぶってるかもしれないから
それは普通に考えてありえない…。

**nobodyさん** · 2006/07/13(木) 15:37:15

>>503

>>483 でやってみて。
検索文字が文字列か変数かどうかで結果が変わるんだよ。

**nobodyさん** · 2006/07/13(木) 16:04:15

>>506
>>503 と同じようなのを書いてベンチ取った。
何度かやってみたが、変数に入れてもindexの方が速かった。

#!/usr/bin/perl
use Benchmark;

my $str1 = ('a' x 30) . 'hoge' . ('a' x 10);
my $str2 = ('a' x 30) . ' hoge ' . ('a' x 10);

sub test_reg1 { my $hoge = 'hoge'; $str1 =~ /$hoge/; }
sub test_reg2 { my $hoge = 'hoge'; $str2 =~ /$hoge/; }
sub test_index1 { my $hoge = 'hoge'; index($str1, $hoge); }
sub test_index2 { my $hoge = 'hoge'; index($str2, $hoge); }

timethese 500000, {
　reg1 => 'test_reg1',
　reg2 => 'test_reg2',
　idx1 => 'test_index1',
　idx2 => 'test_index2',
};

idx1: 1 wallclock secs ( 0.83 usr + 0.00 sys = 0.83 CPU) @ 602409.64/s (n=500000)
idx2: 0 wallclock secs ( 0.83 usr + 0.00 sys = 0.83 CPU) @ 602409.64/s (n=500000)
reg1: 1 wallclock secs ( 1.00 usr + 0.00 sys = 1.00 CPU) @ 500000.00/s (n=500000)
reg2: 0 wallclock secs ( 1.00 usr + 0.00 sys = 1.00 CPU) @ 500000.00/s (n=500000)

**nobodyさん** · 2006/07/13(木) 16:11:59

>>506
ちなみに >>483 みたいに orで繋ぐのもやってみたけど、
やっぱり indexの方が速かった。

**nobodyさん** · 2006/07/13(木) 16:38:50

>>508
あー、ほんとだ。

でもね、検索対象のサイズを大きくするにしたがって逆転していくみたい。

my $str1 = ('a' x 10000) . 'hoge' . ('a' x 1000);
my $str2 = ('a' x 10000) . 'hage' . ('a' x 1000);

とかでやってみておくれ。これは 11k だけど、うちの環境では 1k あたりから差がではじめた。

**nobodyさん** · 2006/07/13(木) 17:11:02

>>509
そりゃ長くなれば BM法にアルゴリズム変えるからね。正規表現の方は。

**nobodyさん** · 2006/07/13(木) 17:29:16

結局長さとか対象文字列に依存して違う結果が出るので
気になる人はよく考えるなり実験するなりして選択しろと
いうことか。

**nobodyさん** · 2006/07/13(木) 17:33:49

ただ正規表現でいつまでもオプショナルな文字列が無い
(オートマトン作らなくて良い)なんて事は無いし。

**nobodyさん** · 2006/07/13(木) 19:41:52

index使わないコーディングスタイルはKENTのせい。

**nobodyさん** · 2006/07/13(木) 19:59:46

>>513
お前が働かないのは誰のせい？

**nobodyさん** · 2006/07/13(木) 20:09:12

いまだKENT信者っていたんだなｗ

**nobodyさん** · 2006/07/13(木) 20:52:55

あれ？　KENTってindexを使っているんじゃなかったっけ？

**nobodyさん** · 2006/07/13(木) 21:53:37

パターンを詰め込んだ変数でevalで局所化もせずぐりんぐりんじゃなかった？

**nobodyさん** · 2006/07/13(木) 21:58:11

KENT 曰く
「それでもPerlは動いている」

**nobodyさん** · 2006/07/13(木) 22:11:56

print "location:hoge.gif\n\n";

アクセス解析用のcgiで出力を上記のようにしています。
自分自身先日winXPのIE7のベータ版にブラウザを変えて、気付いたのですが、
キャッシュされてしまってページ間の移動時に思うように動作しないことがあります。

これはベータ版のバグかもしれませんが。普通はcgiファイルをキャッシュして読み込みを省略することはないと思うので。
それでキャッシュ対策のヘッダを付け加えたいのですが、
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Expires" content="Tue, 20 Aug 1996 14:25:27 GMT">
これのPERLヘッダ？版はどう記述すればいいでしょうか？

宜しくお願いします。

**nobodyさん** · 2006/07/13(木) 22:22:32

print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n";
print "Expires: Thu, 01 Dec 1994 16:00:00 GMT\n\n";

一応こんな感じかなと思いますが、あってるのでしょうか？
http://www.gac.jp/article/index.php?stats=question&category=10&id=11811&command=msg
ここではどうやらNNにはこれでは残ってしまうように書いてあるのですが。

**nobodyさん** · 2006/07/13(木) 22:23:30

>>519
ってか Content-type 出すときに Last-modified とか一緒にだしてもダメなん？

**519** · 2006/07/13(木) 22:24:37

>>520は>>519ですすみません。
要は私の場合は戻るボタンが効かないように、ではなくて、
アクセス解析CGIがちゃんと動作することと、
チャットで使ってる、
<meta http-equiv="Refresh" content="15">
がちゃんと動作することなのですが。

**519** · 2006/07/13(木) 22:25:35

>>521
ありがとうございます。
その書き方がイマイチ自身がもてなかったので投稿して確認に参りました。

**nobodyさん** · 2006/07/13(木) 22:26:24

ダミーの値、たとえばtimeをアドレスにくっつけて別のURLにすれば解決。

**nobodyさん** · 2006/07/13(木) 23:13:19

'' and '' are identical (not copied) at test.cgi line 60

というエラーが出たんですが、これはどういうときに出るもんなんですか？
test.cgiの60行目で''と''が同じになってるよ（コピーされたとかじゃなくてな）
ってこと？意味が分かりません。

**525** · 2006/07/13(木) 23:16:07

ちなみに60行目付近はこんな感じです。

59行目}elsif($action eq 'move'){
60行目&move;
61行目&move_complete;
62行目}elsif(......

**nobodyさん** · 2006/07/13(木) 23:29:36

>>525
シェルが吐いてるエラー。
どっかで cpしてるんだろうけど、コピー元とコピー先が同じだと出る。

**525** · 2006/07/13(木) 23:46:26

>>527
該当箇所とは全然違うところが原因ってことですか。
コピーなんてしてたっけなぁ…。
レスありがとうございました！

**nobodyさん** · 2006/07/14(金) 00:05:57

Perlプログラムがおいてあるフォルダの中に、「temp」という名前のフォルダがあります。
この「temp」フォルダの中にある各フォルダの名前を$dirnameとしましょう。
各フォルダの中に、
{
$dirname
}
とだけ書かれた、「test.txt」という名前のファイルをそれぞれ新しく作りたいんです。

#!/usr/bin/perl
opendir DIR, "temp" or die "can't open temp\n";
@dir = map { -d "temp/$_" ? $_ : '' } readdir DIR;

foreach $dirname (@dir) {
chdir "./$dirname";
open OUT, ">test.txt" or die "can't create the file\n";
print OUT "{\n";
print OUT "$dirname\n";
print OUT "}\n";
close OUT;
chdir "..";
}

close DIR;
こんな感じにプログラムを書いてDOSプロンプトから実行したのですが何も起きません・・・
どうすればいいのか教えていただけないでしょうか？

**525** · 2006/07/14(金) 00:20:17

60行目の
&move;を別の名前に変える動いた・・・なぜ？？
逆に59行目の'move'を別の名前に変えただけでは同じエラーが。

**nobodyさん** · 2006/07/14(金) 00:26:19

>>529
とりあえず、mapで書いてる行をgrepで書き直す。
@dir = grep { -d "temp/$_" && !/^¥./ } readdir(DIR);

**529** · 2006/07/14(金) 00:57:49

>>531
そのままコピペしてもう一度実行してみました。
が、駄目…。

**nobodyさん** · 2006/07/14(金) 01:07:41

横だけど
print @dir ; か
chdir "./$dirname" or die してみそ

@dir の中身は
./temp/hoge
./temp/piyo
じゃなく
hoge
piyo
になるYO @OSX

**nobodyさん** · 2006/07/14(金) 01:11:29

>>529
foreachの前の時点で@dirに期待した値が入ってるかどうかぐらいは
確認して問題の切り分けをしろよ。

あとchdirも失敗することがあるので or dieしとけ。

**nobodyさん** · 2006/07/14(金) 01:13:56

質問はしてくるけど、何も考えないのか。
誰かがなんか書いたらそれコピペして動くかどうかだけ？
なんだかなぁ。

**nobodyさん** · 2006/07/14(金) 01:14:40

わざわざ chdir せずに
open OUT, "> temp/$dirname/test.txt" or die "can't create the file\n";
ってすればいいじゃない

**nobodyさん** · 2006/07/14(金) 01:21:07

chdir でやるにしても foreach ループの前で chdir "temp/" が必要だしな。

**529** · 2006/07/14(金) 01:27:17

>>536
できました！！！
ものすごく賢いやり方ですね。

>>534、>>533
chdirがうまくいってなかったというか、どうやら相対ディレクトリ名の指定とかが根本的
にわかっていなかったようです。openでカレントディレクトリも変わるんだと思ってました。

>>535
(・∀・)

みなさんどうもありがとうございます。
おかげさまで相対ディレクトリ名の指定ということに関してだいぶ理解が進みました。

**nobodyさん** · 2006/07/14(金) 02:04:03

あれ、chdir の有効範囲って local だったっけ？
そもそも1回目の
chdir "./$dirname";
でもし成功して temp/hoge/ になっちゃった場合、2回目はそこから chdir だから temp/hoge/fuga/ とかなんじゃねの？

**nobodyさん** · 2006/07/14(金) 02:23:45

>538
フルパスも相対パスも知らずにファイル扱ってたのか((( ；ﾟДﾟ)))

**nobodyさん** · 2006/07/14(金) 02:33:40

>>539
>>529 のコードではファイルへの書き込みを行なった後に chdir ".." してるから
temp/ → temp/hoge/ → temp/ と戻るはず。

でもやっぱり読みづらいから、カレントディレクトリはあんまり変えて欲しくないなぁ。

**nobodyさん** · 2006/07/14(金) 16:30:45

-dはsymbolic linkのリンク先がディレクトリの場合も真を返すので、
前提条件でそういうのはないならOKだが一般的にはchdir ".."では
戻れないかもしれない。

perlのchdirにはファイルハンドルやディレクトリハンドルを渡せるので、
戻りたいディレクトリを開いておいてこっちを使うほうが安全。

**nobodyさん** · 2006/07/14(金) 18:02:15

メールの標準入力からの取得を考えています。
qmailなのですが、perlにパイプさせるにはどうしたらよいでしょうか？

sendmailなら/etc/aliases　でできますよね？

**nobodyさん** · NG

http://man.qmail.jp/jman5/dot-qmail.html

**nobodyさん** · 2006/07/14(金) 19:43:53

ttp://www.uploda.org/uporg445281.txt

上記の掲示板に投稿する際のコード入力のスクリプトを作ったんですが
時たまコード入力より下が表示されなくなってしまいます。
どうすれば改善していいか分かりません。
どなたか改善よろしくお願いします。

**nobodyさん** · 2006/07/14(金) 19:50:38

>>545
<form>タグが無い。
<table>タグも無い。
下から5行目、==＆gt;と書くべき所で、'==>' と書いている。

**nobodyさん** · 2006/07/14(金) 19:55:39

>>545
というか、sub code 自体をどこからも呼んでない…。
sub error は存在しない。
何がしたいの？そこからして不明。

**nobodyさん** · 2006/07/14(金) 19:59:34

掲示板の一部です。
削除パスワードの下に&code;で呼び出して使ってます。
sub errorはあります。

で何をしたいかと言うとどうやってもコード部分が原因だと分かっていてもたまにコード部分からしたが消える
のが直せないので直してほしいわけです。

**nobodyさん** · 2006/07/14(金) 20:04:26

直して欲しいなら全部晒せよ

**nobodyさん** · 2006/07/14(金) 20:05:56

>>548
そんな一部しかないんじゃ分からん…。

とりあえず、>>546 の通り&code の中でHTML表示してる部分、
tableタグの開始も終了も無いんだが…。そこが一番あやしい。
ちゃんとtableタグ入れてみたら？
それさえ分からなければ、PerlじゃなくてHTMLの質問だよ。

**nobodyさん** · 2006/07/14(金) 20:08:03

すんません・・・。
http://livetool.ty.land.to/aska/aska.cgi
ココに問題の掲示板とソースをのっけてあります。

数回更新ボタンを押していると表示されなくなりますのでそれを改善したいのです。
よろしくお願いします。

**nobodyさん** · 2006/07/14(金) 22:04:47

mysqlとperlで会員サイト作ってみたいのですが
よい参考書を教えてください

**nobodyさん** · 2006/07/14(金) 22:11:09

>>552
WEb制作板池

**nobodyさん** · 2006/07/14(金) 22:26:32

>>552
その程度は参考書などいらない。
というか基本的にプログラム組むのに参考書なんていらない。

http://www.rfs.jp/sb/index.html
ここに書いてある内容を全て理解・・しなくても簡単にそのくらいは作れる。
まずは自分のパソコンに仮想環境を作ることが先決だ。
そうすればどれだけ程度の低い話なのかわかる。

優れたプログラムを組めるかどうかは人によって優劣がでるが、
最低限動くものなら健常者であれば誰でも可能。

**nobodyさん** · 2006/07/14(金) 23:28:12

確かに作るだけならその通りなんだが…
WebProgは脆弱性があると、攻撃される危険が付きまとうことも忘れないでくれ。

と言うことで最低限ここは読んでおくべき。
ttp://www.ipa.go.jp/security/awareness/vendor/programming/
出来ればこの辺もね
ttp://www.jumperz.net/texts/csrf.htm

**nobodyさん** · 2006/07/15(土) 13:04:39

ありがとうございます>>553-554

**nobodyさん** · 2006/07/15(土) 19:12:52

あの>>551の件は・・・・。

**nobodyさん** · 2006/07/15(土) 19:19:39

>>557

>#乱数の作成
>$rand1 = int(rand(10));

を

$rand1 = int(rand(10)) + 1;

と末尾に+1しろ。

**nobodyさん** · 2006/07/15(土) 19:25:01

今の、このスレの空気は以下の成分からなってます。
1). 自力でつくってんだったら協力したるのに
2). 向うの掲示板に問い合わせろよ

3). KENT かよ！

**nobodyさん** · 2006/07/15(土) 19:41:55

>>559
だいたい合ってるｗｗｗｗｗ

&code; とか気持ち悪いな。暗黙に &code(@_); と渡されることを知ってての諸行かな。
せめて &code(); とかにしてほしいなあ。

**nobodyさん** · 2006/07/15(土) 19:48:58

>>558
ありがとうございます。
文法的にも間違っていたようです。

>>559
すべてではないですが大半は作りましたが・・・・・。

**nobodyさん** · 2006/07/15(土) 19:53:50

たいはん【大半】
全体の半分以上。過半。大部分。副詞的にも用いる。

へぇ・・・。

**nobodyさん** · 2006/07/15(土) 19:55:13

>>560

>せめて &code(); とかにしてほしいなあ。

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
と釣られてみるテスト

**nobodyさん** · 2006/07/15(土) 20:04:58

>>561
ほんとかどうか知らんが、おれは KENT であろうとなかろうと問い合わせ先が記入されてるソースに関してのレスは
つけんぞ。

おまえさんがさきに「この部分が自作です」といえば
話は別になるときもあるが。

**nobodyさん** · 2006/07/15(土) 20:06:20

改行忘れorz...

**nobodyさん** · 2006/07/15(土) 20:38:18

KENTもう配布やめてくれないかな。
ダメな子が増えて困る。

**nobodyさん** · 2006/07/15(土) 20:45:33

KENT便利だな

少なくともチャント動くし

**nobodyさん** · 2006/07/15(土) 21:34:29

× チャント動く
○ 動きはする

**nobodyさん** · 2006/07/15(土) 21:59:01

KENT使ったこと無い

**nobodyさん** · 2006/07/15(土) 22:15:52

KENTしか使っていない。

**nobodyさん** · 2006/07/15(土) 23:50:29

KENTの何がいいかって、セキュリティとか全然考えてないとこだよな。
攻撃できまくり☆(ゝω・)v

**nobodyさん** · 2006/07/16(日) 00:07:06

terra大先生の遺作がまだアチコチに残っている。
外部から任意コマンド実行可能なまま。

**nobodyさん** · 2006/07/16(日) 06:07:21

えーｗどんな設計したらそんなことになるんだろｗ

**nobodyさん** · 2006/07/16(日) 13:59:39

正規表現でマッチした方の値を取る方法が分かりません。
例えば
$hoge = '2743AB5837C9849';
というような文字列があるとして
$hoge =~ s/\D//g;
とした場合に\Dに該当する方（ABC）の値を取りたいんですが
どうすれば良いんでしょうか？

**nobodyさん** · 2006/07/16(日) 14:07:23

>574
$&

**574** · 2006/07/16(日) 14:21:08

>>575
ありがとうございます。
マッチ変数というのがあるんですね。

ttp://www.rfs.jp/sb/perl/02/09.html
>後方参照の変数には上記のほかに、マッチ変数 $& $` $' $+ があります。これらの変数を使うと
>プログラム内のすべての正規表現の処理が遅くなるので、注意して使ってください。

という記述があったんですが、できることなら使わない方が良い代物なんでしょうか。
それとも多用がいけないのであって、1、2箇所であれば問題ないんでしょうか。

◆TWARamEjuA · NG

違う変数に入れちゃっても良いような。
($hage = $hoge) =~ s/\D//g;

**nobodyさん** · 2006/07/16(日) 14:48:17

>>576
> という記述があったんですが、できることなら使わない方が良い代物なんでしょうか。
> それとも多用がいけないのであって、1、2箇所であれば問題ないんでしょうか。
1回でも使っている箇所があると、全ての正規表現が遅くなる。
マッチ変数が使われているかどうか調べるためのモジュールはDevel::SawAmpersand

**nobodyさん** · 2006/07/16(日) 14:56:43

>>577-588
ありがとうございます。
ちょっと落雷がヤバイので一旦PCの電源落とします。
落ち着いたらそのときまたレスします。すみません。

**nobodyさん** · 2006/07/16(日) 15:07:17

速度気になるんだったら、
my @hit = () ;
push @hit, $1 while $hoge =~ s/(¥D)// ;
みたく $1 を使えば？
つーか $& 使ったことないなあ。オレ。

**nobodyさん** · 2006/07/16(日) 15:54:56

$1使ったほうが遅いはず

**nobodyさん** · 2006/07/16(日) 16:08:19

誰かベンチとってｋｔ

**bench 魔** · 2006/07/16(日) 16:56:41

お前がやれよ！まあ、暇だからやったけどさ。
===そーす===
my $str1 = 'a' x 6 . 'hoge' ;
$str1 = $str1 x 100 ;
sub test1(){ my ( $tmp, @hoge ) = $str1 ; push @hoge, $& while $tmp =~ s/hoge// ; }
sub test2(){ my ( $tmp, @hoge ) = $str1 ; push @hoge, $1 while $tmp =~ s/(hoge)// ; }

#timethese 10000, { test2 => 'test2' } ;
timethese 10000, { test1 => 'test1', test2 => 'test2' } ;
===実行結果===
1. ソース内に $& 蟻
Benchmark: timing 10000 iterations of test, test2...
test: 13 wallclock secs (13.22 usr + 0.10 sys = 13.32 CPU) @ 750.75/s (n=10000)
test2: 14 wallclock secs (13.34 usr + 0.10 sys = 13.44 CPU) @ 744.05/s (n=10000)

2. ソース内に $& なし（test1 をコメントアウト
Benchmark: timing 10000 iterations of test2...
test2: 14 wallclock secs (13.32 usr + 0.10 sys = 13.42 CPU) @ 745.16/s (n=10000)

**bench 魔** · 2006/07/16(日) 16:57:32

$& だけじゃ差が出ないのか？と思い、
==========
で、test1 を以下の様に変えて
sub test1(){
　my ( $tmp, @hoge, @fuga, @piyo ) = $str1 ;
　　( push (@hoge, $& ),
　　　push (@fuga, $`),
　　　push(@piyo, $' )) while $tmp =~ s/hoge// ; }

実行してみたが…
Benchmark: timing 10000 iterations of test, test2...
test: 26 wallclock secs (24.80 usr + 0.22 sys = 25.02 CPU) @ 399.68/s (n=10000)
test2: 14 wallclock secs (13.28 usr + 0.08 sys = 13.36 CPU) @ 748.50/s (n=10000)
test2 の結果は余りかわらず。

prelre にまで書いてある記載だから $& とか使ったら遅くなるケースが必ずある筈なんだけどなあ。
実際のソースで自分で確かめるしかねーな。

**nobodyさん** · 2006/07/16(日) 17:10:42

>>583-584
文句言いながらやる君が好きだ。

でも、
> これらの変数を使うとプログラム内のすべての正規表現の処理が遅くなるので、注意して使ってください
だから、同じ時に計測すると $1 の方も遅くなっちゃうんじゃないのかな？
比較じゃなくて構わないから、参考に単独での速度を計ってみてくれるといいかも。

できれば
> @hoges = $hoge =~ /\D/g;
系と
> push @hoges, $1 while $hoge =~ /(\D)/g ;
系とでも比較してあるとなお。

**bench 魔** · 2006/07/16(日) 17:51:19

>だから、同じ時に計測すると $1 の方も遅くなっちゃうんじゃないのかな？
>比較じゃなくて構わないから、参考に単独での速度を計ってみてくれるといいかも。
583 の 2.の条件が $& を排除した形のものデス。
$& の入っている行をすべてコメントアウトしました。

お約束「あなたの為にやるんじゃないんだからね！！」
>>583 のソースに
sub cont (){ my ( $tmp, @hoge ) = $str1 ; @hoge = $tmp =~ /hoge/g ;}
を加えて実行 ( 実行名 cont )。実行回数は 5 万回に変更
Benchmark: timing 50000 iterations of cont, test1, test2...
cont: 49 wallclock secs (48.24 usr + 0.34 sys = 48.58 CPU) @ 1029.23/s (n=50000)
test1: 67 wallclock secs (65.77 usr + 0.39 sys = 66.16 CPU) @ 755.74/s (n=50000)
test2: 69 wallclock secs (66.33 usr + 0.53 sys = 66.86 CPU) @ 747.83/s (n=50000)

そこから $& が入った部分を全削除して実行
Benchmark: timing 50000 iterations of cont, test2...
cont: 44 wallclock secs (42.59 usr + 0.33 sys = 42.92 CPU) @ 1164.96/s (n=50000)
test2: 69 wallclock secs (66.67 usr + 0.54 sys = 67.21 CPU) @ 743.94/s (n=50000)

…なるほど、test2 ( $1 を利用 )にはもともとコストが掛ってて $& の影響が表われなかった
だけか。
一箇所の正規表現だけだと、$1 より $& を使った方が速いがソース全体だと影響を及ぼす
という妥当な結果かな。

**nobodyさん** · 2006/07/16(日) 18:23:45

>>586
オツカレ！

つまり $& を使うとそもそも結果を伴う $1 の処理には影響ないけど、
普通の正規表現も結果をとることになるから総合的に遅くなる、ってわけだな。

結局、>>574の場合、一番早いのは

my @matchs = $hoge =~ /\D/g;
$hoge =~ s/\D//g; # ※より早い形→ $hoge =~ tr/0-9//cd;

って2段階で処理して $& も $1 も使わない形なんだろね。