トップページ⇒php
1001コメント343KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2011/09/09(金) 18:11:49.71ID:???
Perlのコーディングで困ってる人のスレです。

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

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

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >>2 以降

前スレ　http://hibari.2ch.net/test/read.cgi/php/1295170172/
0090nobodyさん2011/09/22(木) 23:56:59.38ID:???
>>89
Perl処理系のソースを見ずに言うが、
そのへんはパフォーマンスがガタ落ちにならん程度にはうまいこと処理してるだろうと思う。
0091nobodyさん2011/09/23(金) 00:35:13.51ID:???
ん？配列の要素に対する delete が非推奨なのは別に問題ないっしょ？
delete $array[$n] は要素を削除するのではなくて、むしろ undef $array[$n] に近いんだから。
0092nobodyさん2011/09/23(金) 00:37:24.81ID:???
spliceは引数多くて邪魔くさい
0093nobodyさん2011/09/23(金) 00:38:06.92ID:???
>>89
誤読すんなよ。

（特殊挙動の切り詰めの事を想定してるなら別だが）
splice で対処しろってのは、要素を本当に削除するケースに関してだ。
@arr = 1 .. 5 ; => @arr = qw( 1 2 5 );

delete の代りなら、
splice @arr, 2, 2, (undef) x 2 なんてしなくても
@arr[2,3] = (undef)x2 ;なりの方法があろう。
0094nobodyさん2011/09/23(金) 01:21:24.31ID:???
８万の配列に長さ１の文字列を入れて、delete、undef、spliceでベンチマーク取ったけど、
spliceが一番遅かったけど大きな速度差は出なかった
0095nobodyさん2011/09/23(金) 01:24:44.39ID:???
>>94
あと1つか2つ桁増やしてよろしく。
0096nobodyさん2011/09/23(金) 07:44:14.40ID:???
use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
delete => sub{ my @arr = ARRAY ; delete @arr[ 99999 .. 999999] },
splice => sub{ my @arr = ARRAY ; splice @arr, 99999, 900000, (undef) x 900000 },
slice => sub{ my @arr = ARRAY ; @arr[99999 .. 999999] = (undef) x 900000 }
});
__DATA__
ARRAY => (q{x}) x 1000000
Benchmark: running delete, slice, splice for at least 3 CPU seconds...
delete: 3 wallclock secs ( 2.91 usr + 0.15 sys = 3.06 CPU) @ 2.94/s (n=9)
slice: 4 wallclock secs ( 3.17 usr + 0.14 sys = 3.31 CPU) @ 2.72/s (n=9)
splice: 3 wallclock secs ( 3.06 usr + 0.19 sys = 3.25 CPU) @ 3.08/s (n=10)
Rate slice delete splice
slice 2.72/s -- -8% -12%
delete 2.94/s 8% -- -4%
splice 3.08/s 13% 5% --

ARRAY => 1 .. 1000000
Benchmark: running delete, slice, splice for at least 3 CPU seconds...
delete: 3 wallclock secs ( 3.12 usr + 0.00 sys = 3.12 CPU) @ 12.82/s (n=40)
slice: 3 wallclock secs ( 3.02 usr + 0.01 sys = 3.03 CPU) @ 6.93/s (n=21)
splice: 3 wallclock secs ( 3.03 usr + 0.07 sys = 3.10 CPU) @ 9.35/s (n=29)
Rate slice splice delete
slice 6.93/s -- -26% -46%
splice 9.35/s 35% -- -27%
delete 12.8/s 85% 37% --
0097nobodyさん2011/09/24(土) 11:44:49.89ID:???
文字コードで分からないことがあるのでご教授お願いいたします。
(utf-8 でソースを書いています)


utf-8 の半角ア -> EFBDB1
utf-16 の半角ア -> FF71

utf-8 でソースを書いているのだから、print "0xEFBDB1" で半角アが出力されるだろうと思ったら、
print "0xFF71" でないと半角アが表示されませんでした。
0098nobodyさん2011/09/24(土) 16:12:39.72ID:???
cryptって絶対に復号化できないんですか？
パスワードをこの関数を使って暗号しようと思っていますが
この関数を使う上で欠点や注意点がありましたら教えてもらえませんか？
0099nobodyさん2011/09/24(土) 16:30:15.23ID:???
>>98
>>1
http://perldoc.jp/func/crypt
0100nobodyさん2011/09/24(土) 16:48:02.74ID:???
>>97
半角のｲなら、0xFF72です。
0101nobodyさん2011/09/24(土) 18:00:52.20ID:???
>>97
0xは数値に対してなので、\xだと思いますが、\xは2桁までしか拾わないので、
3桁以上の場合は、{ }を使って\x{123}とする必要があります。

2桁の場合は（\x{00B1}としても2桁と解釈されます）、その値そのもののバイナリ
文字列となります。

print "\xEF\xBD\xB1";

これ↑は、UTF-8として解釈すれば「ｱ」を意味するバイナリ文字列です。
ただし、Perlがこれを文字列処理するときはISO 8859-1という文字コードの3文字
として扱います。

3桁以上の場合は、その値のUnicodeコードポイント（U+FF71）のテキスト文字列となります。
（ Perlは、"\x{FF71}"を「ｱ」という1文字として扱う）

バイナリ文字列（＝バイト文字列）とは、バイト単位で処理される文字列のことです。
テキスト文字列とは、文字単位で処理される文字列のことです。
0102nobodyさん2011/09/24(土) 18:01:21.98ID:???
>>99
リンクありがとう～ とりあえずこれ使ってみることにします
0103nobodyさん2011/09/24(土) 19:43:27.75ID:???
>>101
ありがとうございます！
0104nobodyさん2011/09/26(月) 12:35:58.38ID:???
トリップを生成する仕組みなんですが、

if (length $handle_pass >= 12)
{
my $mark = substr($handle_pass, 0, 1);
if ($mark eq '#' || $mark eq '$')
{
if ($handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|)
{
$GB->{TRIPSTRING} = substr(crypt(pack('H*', $1), "$2.."), -10);
}

文字列１２バイト以上で、先頭が#または$の場合、
$handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|を行なって
cryptによって生成していると思います。

しかし、$GB->{TRIPSTRING}や$1や$2をprintすると何も表示されません。
$handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|では何を行なっているのですか？
教えてください。
0105nobodyさん2011/09/26(月) 12:55:07.21ID:???
>>104
関係ないけど、これ $ から始まる場合何もしてないよね
0106 ◆??? 2011/09/26(月) 13:01:10.88ID:???
>>104
##0123456789abcdefxx 形式のトリップキーかどうかのチェックだろ

>>105
>>104は書いてないけど実際はelseがある
2chでは今のところ単に予約としてとってあるだけらしいから???になるだけだけど
01071042011/09/26(月) 14:03:37.14ID:???
>>105-106
ご回答ありがとうございます。
もう一度正規表現を調べますので、
その後、質問させてください。
01081042011/09/26(月) 17:00:08.24ID:???
先頭が#で始まり16進数文字が16個連続し、
末尾は./0-9A-Za-zのいずれかが0個以上2個以下連続する。

ですよね？

#0123456789abcdefxxは真
#0123456789abcdefxxxは偽
#0123456789abcdefは真

#0123456789abcdefあ　が偽なのは、なぜでしょうか？

また、[[:xdigit:]]の[]が二重でくくられている意味を教えてください。
01091042011/09/26(月) 17:01:58.51ID:???
すみません、書きこんで気づきましたが、

#0123456789abcdefも偽ではないのか？と思います。
0110nobodyさん2011/09/26(月) 18:06:25.07ID:???
あ は [a-zA-Z0-9] かどうか
f の後ろに続く判断が ? なのか + なのかで意味合いが変わってくるかと。

トリップキーの規格をもっかい調べてみればよいかと。
0111nobodyさん2011/09/27(火) 00:54:20.16ID:???
ファイルのロックはmkdirなどでロック用ディレクトリ
を作る方法は良く見かけますがディレクトリではなく
openでロック用ファイルを作るというのは問題があるんでしょうか？
0112nobodyさん2011/09/27(火) 01:02:44.10ID:???
rename とか mkdir はシステムコールを使ってるから、open より割り込まれる余地が少ない。

とかじゃなかったっけ？
0113nobodyさん2011/09/27(火) 01:31:29.84ID:???
>>111
http://www.din.or.jp/~ohzaki/perl.htm#File_Lock

今時 flock を使えない環境に出くわす事も稀だがな。
http://perldoc.perl.org/perlport.html#flock
0114nobodyさん2011/09/27(火) 02:07:22.29ID:???
モジュールを作ってて、そのモジュールの中では use utf8 とか、open(my $in, '<:utf8', '～') とかしてます。

しかし use utf8 してないスクリプトから呼ばれた時には、これだと文字化けが起きてしまいます。
そのため use utf8 されていない場合にはフラグを落として返したいのですが、
モジュールを呼んだスクリプトで use utf8 されてるかどうか調べる方法はあるのでしょうか？


モジュールが特定の文字コードに依存すること自体が駄目だとは分かっては居るのですが・・・
0115nobodyさん2011/09/27(火) 04:57:52.69ID:???
>>112
余地が少ないんじゃなくて余地が無い、
つまり処理がアトミックでないとだめなんだよ。
「余地が少ない」んじゃ意味ないの。
0116nobodyさん2011/09/27(火) 11:02:16.14ID:???
flock(XX, 2)
でデッドロックが発生した場合はどうなるんでしょうか？
あと、待ってる間は自動でsleepしてくれるんでしょうか？

flock(XX, 6)
で自分で実装するのとどちらが良いのか迷ってます。
0117nobodyさん2011/09/27(火) 19:02:14.19ID:???
すいません。プログラムを定刻になると自動で実行するようにしたいんですが、できますか？
レンタルサーバに置きます。
全体を無限ループをしてsleep()で休むというのを考えたのですが、無限ループは一番やってはいけないらしいですね。

あと検索するとすぐJavaScriptで自動更新する方法が出てきますが、
この方法だと時限以外にもCGIにアクセスされたときに実行してしまうと思います。
JavaScriptだけに実行させたいときはパーミッションをどう設定すればいいですか？
0118nobodyさん2011/09/27(火) 19:46:39.67ID:???
>>116
＞明白ではないものの、伝統的な flock の動作としては、ロックが得られるまで 無限に待ち続けるものと、単に勧告的に ロックするものの二つがあります。

>>117
cronのことを聞いてる？
0119nobodyさん2011/09/27(火) 21:07:32.00ID:???
>>118
その説明を読んで具体的にどうなるのかが分からなかった
伝統的とか無限とか

・複数のプロセスが待ち状態になった場合に、次にロックを得られる順番は？
・デッドロックかかったらプロセスはどうなるのか
・待ってる間の負荷は

この辺りが気になる。
0120nobodyさん2011/09/27(火) 22:48:37.67ID:???
・複数のプロセスが待ち状態になった場合に、次にロックを得られる順番は？
システムにしか分かりません

・デッドロックかかったらプロセスはどうなるのか
flock を待つオプションで呼び、他のプロセスが死ねばロックは外れるので先に進めますが、
mod_perlなどではプロセスは死なないのでflockは掛かったままになります。
なので、flockを呼ぶときは待たないようにしましょう
0121nobodyさん2011/09/27(火) 23:25:00.27ID:???
flock呼んだ順番になるのか、ランダムになるのかの2択くらいかと思ったんですが、後者って認識でいいです？

無限に待ち続けるとあるんですが、待たないようにする方法もあるんでしょうか？

あと、大量のプロセスが待ち状態になった場合の負荷も気になります。
大人しく待ってるんでしょうか？
0122nobodyさん2011/09/27(火) 23:54:57.99ID:???
unlock時に起き上がったプロセスがロックを取れる
LOCK_NBだ、ドキュメントぐらい読め
sleep以外に何をするのか、それ以前にロック待ちが大量にある時点でどうか
0123nobodyさん2011/09/28(水) 01:15:39.74ID:???
>>117
>>118 の書いているとおり通常はcronを使う。と思う。

> あと検索するとすぐJavaScriptで自動更新する方法が出てきますが、

「プログラムを定刻になると自動で実行」させるのにJavaScriptをどうやって使うの? 意味がわからん。

> JavaScriptだけに実行させたいときはパーミッションをどう設定すればいいですか？

さらに意味がわからん。
0124nobodyさん2011/09/28(水) 01:29:17.95ID:???
>>123
俺は最初、サーバサイドでjavascriptを動かすnode.jsのこと言ってるのかと思った。
cronを扱うためのapiもあるみたいだし。
perl関係ないけど。
0125nobodyさん2011/09/28(水) 02:00:23.29ID:???
>>122
ありがとうございました。
LOCK_NB使わずに待たない方法があると勘違いしてました。
素直に自分で実装します。
0126nobodyさん2011/09/28(水) 13:39:10.69ID:???
ファイルの読み書きでトランザクションを実現するモジュールを apache が標準で持ってくれるとありがたい
0127nobodyさん2011/09/28(水) 17:26:59.68ID:???
ファイルの読み込みは@lines = <IN>で一括して配列に入れていますが
while<IN>で１行ずつ読み込む方がいいんですか？
配列を引数にしたり戻り値にしたりする場合が多いから
どうしても一括読み込みが多くなってしまいますが
一括読み込みだとそんなにメモリの負担になりますか？

ていうか<IN>自体にもファイル全部のデータが格納されているんですよね？
0128nobodyさん2011/09/28(水) 18:31:25.70ID:???
GB単位でファイルを処理する人間だと、while で回すなりの工夫は必要だけど、
今のご時世だったら、殆どの人は気にする事は無いでしょ。

>ていうか<IN>自体にもファイル全部のデータが格納されているんですよね？
そんなスーパーな挙動を取られたら、5GBファイルを 2GB メモリの PC で解析
出来ないじゃないですかっ
0129nobodyさん2011/09/28(水) 21:17:17.61ID:???
一行づつ読み込んだら遅くなる。
0130nobodyさん2011/09/28(水) 22:32:03.45ID:???
% perl -le '$s = q{x} x 1000000 ; $s =~ s/(.{1,50})/$1\n/g; print $s ' > test.txt
% cat hoge.pl
use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
arr => sub { open my $fh, q{<}, q{test.txt} ; my @arr = <$fh> ; close $fh ; @arr },
whi => sub { open my $fh, q{<}, q{test.txt} ; my @arr ; while (<$fh>){ push @arr, $_ } close $fh ; @arr },
aho => sub { open my $fh, q{<}, q{test.txt} ; my @arr ; for (<$fh>){ push @arr, $_ } close $fh ; @arr },
});
% perl hoge.pl
Benchmark: running aho, arr, whi for at least 3 CPU seconds...
aho: 3 wallclock secs ( 2.76 usr + 0.35 sys = 3.11 CPU) @ 48.87/s (n=152)
arr: 3 wallclock secs ( 2.72 usr + 0.41 sys = 3.13 CPU) @ 56.55/s (n=177)
whi: 3 wallclock secs ( 2.85 usr + 0.30 sys = 3.15 CPU) @ 70.79/s (n=223)
Rate aho arr whi
aho 48.9/s -- -14% -31%
arr 56.5/s 16% -- -20%
whi 70.8/s 45% 25% --
0131nobodyさん2011/09/28(水) 22:55:36.32ID:???
>>130
コメントは大事だよー
whileが一番速いのか 理由は何なんだろうな
0132nobodyさん2011/09/28(水) 23:04:50.68ID:???
whileでファイルの2行目から読み込むのってどうやるんですか？
0133nobodyさん2011/09/29(木) 00:01:53.09ID:???
<FH>;
while (<FH>) {
}
0134nobodyさん2011/09/29(木) 00:44:49.60ID:???
>>131
ファイルがメモリにキャッシュされたから。
最後に書いたほうが早くなる。
0135nobodyさん2011/09/29(木) 00:45:39.00ID:???
訂正
最後に処理されたもののほうが早くなる。
0136nobodyさん2011/09/29(木) 00:54:10.24ID:???
最後も何も2回目以降同じじゃね
仮にキャッシュされてるんなら
0137nobodyさん2011/09/29(木) 01:02:01.08ID:???
>>135
適当に順番入れ替えてやってみ。
結果はほとんど変わらないから。

ていうかよく見たら一番最後に処理したahoが一番遅いじゃねーか。
0138nobodyさん2011/09/29(木) 01:09:34.61ID:???
やっぱり一度に全部読んだほうが2倍以上速かったな。

all => sub { open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')); close $fh ; return split("\n", $buf);},
0139nobodyさん2011/09/29(木) 01:35:54.32ID:???
一度に全部読んだほうが処理がしやすい場合が多い

ファイルの下に行くほど新しい書き込みの場合
最新のｎ件を表示する場合はwhileで１行ずつは難しいな
@linesに全部読み込んで@linesの配列の後ろからｎ番までを切り取って表示すれば簡単だな
0140nobodyさん2011/09/29(木) 01:40:46.41ID:???
結局のところ「用途による」だろ
0141nobodyさん2011/09/29(木) 01:53:22.20ID:???
>>139
ファイルの最後の方から読んでいって
改行の数を数えたほうが早いよ。
0142nobodyさん2011/09/29(木) 02:22:14.02ID:???
ファイルの最後の行から上の行に向かって１行ずつ取り出せるの？
ファイル読み込み位置操作できるのseekしか見つからなかったが
これ行単位じゃなく後ろからのバイト数なんだよな
0143nobodyさん2011/09/29(木) 02:39:16.38ID:???
ゆとりか。作れよ。
0144nobodyさん2011/09/29(木) 04:40:11.37ID:???
>>142
http://www.din.or.jp/~ohzaki/perl.htm#File_Reverse
0145nobodyさん2011/09/29(木) 06:43:00.87ID:???
>>137
一応書いとくが、Benchmarkのサブルーチン実行は記載順じゃないぞ。
勝手にソートされる。
もちろん、135の意見に同意するわけでは無いが。

ahoが遅いのは、明白に(<$fh>)の時点でメモリに確保（無名配列への代入と同等）
されてて、その後に@arrにpushしてるから、遅いの当たり前。
サブルーチンの名前が「アホ」な時点でネタだと分る。
0146nobodyさん2011/09/29(木) 07:40:54.50ID:???
AWKのAの人ディスってんの……
0147nobodyさん2011/09/29(木) 08:22:35.67ID:???
>>130
以下は自分の推測。
正しいかはわからない。

@arr = <$fh>;は、まずreadline関数内で、全行のリストが作られ、それが@arrにコピー
されるので「@arr＋全行リスト」のメモリを使う。

while (<$fh>){ push @arr, $_ }は、1行だけが$_に入るので、「@arr＋1行分」のメモリ
しか使っていない。

メモリ使用量の差が速度差に出たと。
0148nobodyさん2011/09/29(木) 11:31:16.87ID:???
>>130
7.8MB のテキストファイルでぶん回してみた

Benchmark: timing 10000 iterations of aho, arr, whi...
aho: 1337 wallclock secs (1157.39 usr + 103.11 sys = 1260.50 CPU) @ 7.93/s (n=10000)
arr: 1284 wallclock secs (1118.88 usr + 102.05 sys = 1220.92 CPU) @ 8.19/s (n=10000)
whi: 921 wallclock secs (768.06 usr + 104.30 sys = 872.36 CPU) @ 11.46/s (n=10000)
Rate aho arr whi
aho 7.93/s -- -3% -31%
arr 8.19/s 3% -- -29%
whi 11.5/s 44% 40% --
0149nobodyさん2011/09/29(木) 16:22:24.12ID:zOJkGfGB
sendmailとperlで質問です。
メールからプログラムを起動したくて色々設定を行っているのですが
どうにも行き詰ってしまいました。

CentOSにwebminを入れて管理しています。
sendmailにエイリアスを利用してプログラムを起動しようとしているのですがうまくいきません。

とりあえず外部からのメールは受信出来ている状態です。
登録用のエイリアスにプログラムに送ると合わせてユーザーにもメール配信していますが
そちらには届いている事を確認済みです。
smrshについてはリンクを設定済みでエラーは返ってこなくなりました。

この状態で簡単なプログラムを作成して動作確認を行おうとしたのですが
プログラムが動きません。

#!/usr/bin/perl --

open(OUT, ">> datafile.txt");
print(OUT "動作確認\n");
close(OUT);

試しでこのようなコードを置いてるのですが動きません。
プロンプトから動作させた場合は正しくファイルに書き込まれています。

エイリアスの指定の仕方がまずいとかでしょうか？

エイリアス名: "|/usr/bin/perl /var/www/html/プログラム名"
のような感じで指定しています。
直接
エイリアス名: "|/var/www/html/プログラム名"
としてもダメでした。
もしわかるかたがいらっしゃいましたらよろしくお願いします。
01501492011/09/29(木) 16:24:24.50ID:zOJkGfGB
追記
パーミッションは
プログラム755
書き込み用ファイル666
としています。
0151nobodyさん2011/09/29(木) 16:36:26.36ID:???
まずすべきことは、エラーログを見てみる。
0152nobodyさん2011/09/29(木) 16:41:31.46ID:???
>>149
メールがサーバに届いているなら、/var/log/maillogかなんかに出ているログを確認するというのが基本です。
気になったのは、ファイルパス。シェル上ではログイン時にそのユーザー派のホームディレクトリにカレントパスがセット
されますが、sendmailで受けた場合はそのパスにならないのだから、絶対パスで指定する必要があります。
0153nobodyさん2011/09/29(木) 16:41:44.87ID:???
> open(OUT, ">> datafile.txt");
この datafile.txt はどのディレクトリに書き込まれるの?
パーミッションエラーで書き出せないとかじゃないの?
01541492011/09/29(木) 16:59:53.15ID:???
>>152,153
盲点でした絶対パスで書いたら問題無く書き込めてました。
ありがとうございました！
0155nobodyさん2011/09/29(木) 17:44:48.07ID:???
結局Perlは関係なかったね。
0156nobodyさん2011/09/29(木) 17:51:14.58ID:???
せやろか？
0157nobodyさん2011/09/29(木) 21:10:32.23ID:???
せのつくあれをやるなんていやらしい
0158nobodyさん2011/09/29(木) 21:45:52.72ID:???
最近じゃ、小学生どうしでもするんですってね、






せいくらべ。
0159nobodyさん2011/09/30(金) 03:01:50.06ID:???
投稿の表示の上にページ数を載せたい場合
最大ページ数＝投稿数/１ページあたりの表示数の少数切り上げだから
投稿数がわからないと最大ページ数がわからないわけだから
whileだと最初にwile(<IN>){$toukousuu++;}で投稿数出してそのあとwile(<IN>){表示}の
２回ループしなきゃならないけど@lines一括読み込みなら$toukousuu=@linesのforeach(@lines){表示}の１回ループですむ
0160nobodyさん2011/09/30(金) 03:40:56.53ID:???

　 　∩＿＿＿∩　　 　　　　　　｜
　　 | ノ＼　　　　 ヽ　 　　　　　　|
　　/　　●゛　　● |　　　　 　　　|
　 |　∪　　( _●_)　ミ　 　　　　　j
　彡､　　　|∪|　　 |　　　 　　　>>159
/　　　　 ∩ノ ⊃　 ヽ
(　 ＼　／ ＿ノ　|　 |
.＼　“　　／＿＿|　 |
　　＼ ／＿＿＿ ／
0161nobodyさん2011/09/30(金) 09:23:13.25ID:???
http://hibari.2ch.net/test/read.cgi/affiliate/1317192380/
akiyan降臨中ｗ
0162nobodyさん2011/09/30(金) 12:34:30.65ID:???
>>160
何で釣り扱いされているのかわからんｗ
じゃあ例えばファイルの下から１０番目までの行であるならばフラグを立てるという場合
while(<IN>){

$aaa = $toukousuu-10;

if($count>=$aaa){
$flg = 1;
}
else{
$flg = 0;
}
$count++;
}
としなければならないが$toukousuuを求めるのはこれよりまえにwhile(<IN>){$toukousuu++;}とする必要が
あるのはわかるだろ。
つまりwhileだとループを２回しなければならんのだよ
0163nobodyさん2011/09/30(金) 13:19:30.58ID:???
　　　　　　　　　　 　 ｜
～～～～～～～～｜～～～～～～～～～～
　　　＞( c´_ゝ`)　　｜
　　　　　　　　　　　 ｜
＞( c´_ゝ`)　　　　　J
　　　　　＞( c´_ゝ`)



　　　　　　　 　　　　 ｜
～～～～～～～～｜～～～～～～～～～～
　　　　　　　　 　　　 ｜　　　　　＞( c´,_ゝ`)
　　　　　　　　 　　　 ｜
　　　　　　　　　 　　 J　　　＞( c´,_ゝ`)
　　　　　　　　　　　　　　　　　　　　＞( c´,_ゝ`)
0164nobodyさん2011/09/30(金) 18:04:53.60ID:???
>>162
うん。そうだね。それで？それがどうかしたの？

って感じ。
0165nobodyさん2011/09/30(金) 18:27:33.76ID:???
>>164
だって２回ループするとその分重くなるじゃん
0166nobodyさん2011/09/30(金) 18:55:57.64ID:???
>>165
どのみち全数読み込まなきゃいけないんだったらもちろん一括読み込みすればいいんだけどさ。
しかし重くなるのが嫌だったら投稿数などのインデックス情報の類は別途保存して、
独立して管理するという方法もあるぞ。
そうすれば $count = @array; みたいにいちいち配列の要素数を数えなくても済む。
0167nobodyさん2011/09/30(金) 19:33:37.65ID:???
>>165
slurp の方が早いよって主張ならまだしも、、、
>>130の結果が理解出来てないだろお前さん。
% perl -le '$s = q{x} x 1000000 ; $s =~ s/(.{1,50})/$1\n/g; print $s ' > test.txt
% cat hoge.pl
use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
arr => sub { open my $fh, q{<}, q{test.txt} ; my @arr = <$fh> ; close $fh ; printf STDERR "%d\n", scalar @arr ; for ( @arr ){ print STDERR; } },
whi => sub { open my $fh, q{<}, q{test.txt} ; my @arr ; while (<$fh>){ push @arr, $_ } ; close $fh ; printf STDERR "%d\n", $. ; for ( @arr ){ print STDERR; } },
});
% perl hoge.pl 2> /dev/null
Benchmark: running arr, whi for at least 3 CPU seconds...
arr: 4 wallclock secs ( 2.00 usr + 1.23 sys = 3.23 CPU) @ 242.11/s (n=782)
whi: 4 wallclock secs ( 1.95 usr + 1.29 sys = 3.24 CPU) @ 254.94/s (n=826)
Rate arr whi
arr 242/s -- -5%
whi 255/s 5% --
0168nobodyさん2011/09/30(金) 20:14:25.09ID:???
>>166
全部読み込むにしても一括読み込みだとメモリ食うよ
一行ずつ回す方がいい

>>167
読んだけど意味が分からない
0169nobodyさん2011/09/30(金) 20:49:46.04ID:???
165の「重い」ってメモリの重さの話か？
速度の話だと誤読したわ。

速度だと既に結論が出てて、>>130理解してれば、
while(<$fh>){ push @arr, $_ ; } が、@arr=<$fh>;
より早いんだから、後の処理が同じなら何回ループ回そうが、
無関係。カウンタを自分で付けようが、 $. 利用しようが同じ。

メモリ？
んなもん、同じファイルなら、
@arr =<$fh> ;だろうが、一行づつ回そうが誤差範囲だろ。
それを何回回そうが無関係。
@arr = do{ local $/ ; $buf = <$fh> ; split /^/ms, $buf ;
なんかするんだったら多くかかるのは当然だけど。

sub myps { print `ps ux $$`};
myps;
# お好きなコード
myps;
でもして差分取れば？
0170nobodyさん2011/09/30(金) 20:50:40.41ID:???
×@arr = do{ local $/ ; $buf = <$fh> ; split /^/ms, $buf ;
◯@arr = do{ local $/ ; $buf = <$fh> ; split /^/ms, $buf ; } ;
0171nobodyさん2011/09/30(金) 21:29:34.48ID:???
釣りにマジレス
>>159
open my $fh, '<', 'hoge.pl' ;
while ( <$fh> ){ }
print "$.\n" ;
while ( <$fh> ){ print }
close $fh ;
このコードを hoge.pl として保存して実行してみろ。

と言うことで、
>>167
165 の言う「2回ループ」は上のコード、好意的に判断しても
「ファイルハンドル開き直してのファイル読み込み2回」って意味だ。
あなたの突っ込みは通じない。
0172nobodyさん2011/09/30(金) 23:04:33.02ID:???
あれ？まだやってるの？

ほんとうの意味でファイルを一括で読むこっちが
一番速いって答えは出たと思うんだけど。
all => sub { open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')); close $fh ; return split("\n", $buf);},

0173nobodyさん2011/09/30(金) 23:07:07.88ID:???
foreach ( split/\n/, $buf ) {}
はい
0174nobodyさん2011/09/30(金) 23:11:26.42ID:???
もうその話しじゃなくなってんだが、まあ突っ込んでやる。
同等の条件にすると話しにならんくらいarrの方が早い。
cmpthese timethese ( undef, {
arr => sub { open my $fh, q{<}, q{test.txt} ; <$fh> },
all => sub { open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')) ; split(/^/ms, $buf);},
});
結果↓
Benchmark: running all, arr for at least 3 CPU seconds...
all: 3 wallclock secs ( 2.72 usr + 0.36 sys = 3.08 CPU) @ 1366.56/s (n=4209)
arr: 4 wallclock secs ( 1.51 usr + 1.66 sys = 3.17 CPU) @ 30816.72/s (n=97689)
Rate all arr
all 1367/s -- -96%
arr 30817/s 2155% --

0175nobodyさん2011/09/30(金) 23:13:06.26ID:???
174はまちがい
スカラーコンテキストで評価されるわw
0176nobodyさん2011/09/30(金) 23:21:35.32ID:???
まちがい。arrは遅かったｗ
0177nobodyさん2011/09/30(金) 23:22:41.29ID:???
@arr =<$fh>がファイル一括読み込みよりも
遅いのは当たり前の話で、内部的に一行づつ読み込んでいるから。
0178nobodyさん2011/09/30(金) 23:23:54.55ID:???
同等の条件
arr => sub { my @arr = sub{ open my $fh, q{<}, q{test.txt} ; <$fh> }->() },
all => sub { my @arr = sub{ open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')) ; split(/^/ms, $buf); }->() },
まあ、 all の方が早いわな。
0179nobodyさん2011/09/30(金) 23:56:34.45ID:???
　　　　　　　　　　　　　　　　　　　　亠ｧ厂|　　　　　　　　`':,;..:..:.';.　　　　 ;'..:..:.,:'
　　　　　　　　　　　　 　 　 　 　 　 ‐个 兀　　　　　　　　　　`:;:.::.':.,　　　,':.::.:,:'
｀.:`.:''''..:.‐ :.:-:.:...,,,,　__　　　､‐-、　　　　　　　 __ 　　,.‐z_,-､　　 '':;;:::':, ,...;'::..:,;'　　,,.:':
..:..:...:..:..:...:...:...:.:..:...:...:..:.｀＿,,ﾉ　└￢､'''.:.:‐:..,,ヾ､__)∠,ｨｸ ／,、　　　';:''..:.:..:..:.:..:.'':;'':.:.,;.
.:..:...:..:..:...:...:...:.:..:...:...:..:.ヾ､_　　　＜^'".:..:..:.:..: ＜`ヾ´~_　 _~´ 〉'''':.::.;':.::...:.:..:..:..:...:.:.';'　,,
..:..:...:..:..:...:...: ,,;,;,;,,;:..:..:.:.:..: /　/＼　`ヽ､..:..:.:..:..:_ブ∧ ‐　‐　/.:.:..:,;,::';..:..:..:.:..:..:..:...:.:.:''´:.:
:..:.:..:..,.:-～' , ､ｍ_）°.:.:.'ｰ-'..:..:..:`ｰ--',,;,;::.:.:ヽ､_i (_,/しﾍﾍ_） ´　　'::;.:.::.:..:..:..:..:.:..,;'｀ ''
,;,,;,;/　　＜て_;:､｡.:° ‐　''''　"　´　´　　　　　　　　　　　　　　　,;:''.:.:,:'' :;,._.:,;.,､:.'':.,,_
　 /　r'７ｧｯｰヘ､_) ﾟ　　　　　　　　　　　　　　　　　　　　　　,,:''.:.:,:'' , -～''ヽ‐-‐､.:.:.''
-く 　ﾚ'/〈　°　　　｡　　　　　,ﾍVﾌヽ、　　　　　　　　　 ,,:''.:.:.:,:'' 　(_,ヘ､　　　　　⌒
　　Ｖ巛〈 ヽ 　, ～''ヽ　　　　/ e　ヽノ＼ﾍ. 　　　　　,,:.''..::.:,:''　。 　 　　と_刀Tゥｰ
＿/　ヾ ヽ､ Ｙ ｧ个～'。ﾟ　 ,少ｰ- 代ヽ､ ヾゝ 　 ,,.: '':.:/ヽ､'　｡ ﾟ (⌒⌒ｰ-く ﾉﾉ,!j
　{.　　 ＼　Ｙ巛〈 　　 　 　） l㌶㍑レﾞく　　＼''.:.::.:.:.:/ /　入 ﾟ ｡ `～<ヾヾ､,｀⌒ ～
_, ヘ、　　ヾ{　ヾﾄ､　 　 　 'ヾゝｬ㍑ﾒ㌫㌔　　 ヾﾖ　/〃／ _,,＞　　　 〉〉ﾉ ｀厂丁｀
　　　＼　　＼　　ヽ、　　　　｀ゞへ㍊㌶㌍㍉　 ゞ㌧ｆ‐ '' ´　　　　　 ///／　　ﾉ
─～ ⌒ヽ､　 ＼　　 ヽ、　　　 ´｀'‐ニ世三r＜㌣´　　　　　　 ＿,,ノ,〆　　 ／
　　　 ＿_,, へ、　＼　　 ` ー- ､＿＿　　　　　　＿,, --‐‐ ''´　　　　　_ - ´　 ／
￣￣　　　　　 ＼　　` ｰ- ､ ＿　　　　￣￣￣　　　　　　　＿, -～＜ -一 ブ
　　　　　　　　　　ヽ､、　　　　　 ￣｀ ー─----── ´￣　　　　＿ -一 ´
0180nobodyさん2011/10/01(土) 01:21:20.72ID:???
>>179
話の流れを追う気はまったくないが
このAAはおめでたさ満点でよかった
0181nobodyさん2011/10/01(土) 20:11:38.10ID:???
画像を送信するときなんかはフォームと画像のデータが１つになった
変数で送られるからwileで１行ずつ回すというのは無理だな
こういう場合は画像が大きければ大きいほど、どうしてもメモリは食う
0182nobodyさん2011/10/04(火) 02:02:20.47ID:???
>>182
まあそうだろうなmalti-partの場合も
read(STDIN,$buff,$ENV{'CONTENT_LENGTH'});
で$buffに全部の送信データが格納されるから
画像が大きいほどメモリは食う
0183nobodyさん2011/10/04(火) 04:12:16.99ID:???
>>182
再帰アンカー/ひとり循環リスト乙
0184nobodyさん2011/10/06(木) 12:31:19.56ID:???
すいません
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
print $data;
だけのスクリプトを書いたんですが
Use of uninitialized value in read at ～と出ます
これなんでですかね？
0185nobodyさん2011/10/06(木) 12:50:34.41ID:???
>>184
http://perldoc.jp/docs/perl/5.10.0/perldiag.pod

本当にその2行だけなのなら、
-w オプションが効いている下で $ENV{'CONTENT_LENGTH'} を未定義のまま実行したからだろう。
0186nobodyさん2011/10/06(木) 13:13:47.41ID:???
>>185
ありがとうございます。他のところがおかしいんじゃなくてよかったです。
これは入力がなければ出るものなんですね。
0187nobodyさん2011/10/06(木) 14:16:31.01ID:???
>>186
> これは入力がなければ出るものなんですね。
違う。$ENV{'CONTENT_LENGTH'} が未定義 (undef) だから出ている。
STDIN からの入力が無くとも $ENV{'CONTENT_LENGTH'} に 0 が入っていれば出ない。

> Use of uninitialized value%s
> (W uninitialized) 未定義値を、あたかも既に定義されているかのように使用しました。
> これは、"" か 0 と解釈されますが、間違いの可能性があります。
> この警告を止めるには、変数に定義された値を代入してください。
0188nobodyさん2011/10/06(木) 15:00:33.35ID:???
>>184
この「だけのスクリプト」ってのは嘘だな。
CGIとしてだったらこの2行だけでは動かない。
0189nobodyさん2011/10/07(金) 00:00:35.18ID:???
SSI使わずにHTML上にCGI呼び出す方法って<script>タグ以外にありますか？
■ このスレッドは過去ログ倉庫に格納されています