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

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

■ このスレッドは過去ログ倉庫に格納されています
00019882005/12/08(木) 22:48:27ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

過去ログやお勧めサイトは >>2-10
0696nobodyさん2006/01/14(土) 11:50:37ID:???
エラーになると言っておいてエラー内容を書かないのはなんで？

多分、ダブルクオートで囲って @ や % が変数に展開されてるに一票。
0697nobodyさん2006/01/14(土) 12:07:44ID:???
データ自体が16から32kbytes程度なら、
別にforeachでも問題なかろう。
それで問題が起きるなら、それこそ鯖が貧弱。
0698nobodyさん2006/01/14(土) 12:14:40ID:???
愚直にファイル読み込んでタイムアウトになるならファイルの構造を
見直すしかないでしょ

データの量（行数だけでは分からないだろ）も処理の内容も
分からねーのに、何か教えてほしいなんて無理
0699nobodyさん2006/01/14(土) 12:36:49ID:???
>>697

馬鹿のプロセス切るのは「鯖が貧弱」
だからじゃなくて管理がしっかりしてるからでしょ。
「問題」じゃまったくないし。

まぁ実際 32kb で切ってたら別の問題だけどね。

お前は書かないほうがいいよ。
0700nobodyさん2006/01/14(土) 12:53:21ID:???
　　おチンチンびろーん
　　 ∩＿＿＿∩
　　 | ノ　　　　　 ヽ/⌒)
　 /⌒) (ﾟ)　　　(ﾟ)　|　.|
　/　/　 　( _●_)　 ミ/
.（　　ヽ　　|∪|　　／
　＼　　　 ヽノ　/
　 /　　　　　　/
　|　　　_つ　 /
　|　 /UJ＼　＼
　|　/ 　　　 )　 )
　∪　 　　 （　 ＼
　　　　 　　 ＼＿)
0701nobodyさん2006/01/14(土) 12:56:32ID:???
>>696

使っているサーバがエラー番号などが出ない仕様なんです。
「サーバエラーが発生しました…」という文章しか出ないので。

確かにダブルクォートで囲って有ります。$vout に代入されているようなんですが…。

その場合はどうすればいいでしょうか ?
0702nobodyさん2006/01/14(土) 13:23:01ID:???
サーバで実験しない
よいこの約束
0703nobodyさん2006/01/14(土) 15:29:20ID:???
>>699
ログが十分に小さければ､foreachとwhileの違いだけで、変わる状況なんて無いね。
仮に、それで問題が起きるなら、プロセス辺りのメモリ割り当てが
かなり小さいぐらいしか考えられない(鯖が貧弱)。
ってことなんだが(苦笑)。

4年書き続けてきたけど、もうだめぽか、ここも。
0704nobodyさん2006/01/14(土) 15:36:47ID:???
10万行ループなどMTの再構築に比べればたいしたことない
0705nobodyさん2006/01/14(土) 15:53:30ID:???
>>701
たのむからローカルでやってくれ
0706nobodyさん2006/01/14(土) 16:33:57ID:???
>>701
他人の管理下にあるサーバで実験しない。自分が動かしているサーバで
実験すれば、そのログを見てデバッグできる。
>>1に書いてある通り、エラーの内容も貼れないんじゃ質問以前の問題だ。

>>703
４年もいるんだったらスルーすることぐらい覚えろよ。
0707nobodyさん2006/01/14(土) 18:00:04ID:???
>foreach( <> )
とか書いてある時点でダメに決まってるじゃん。

それとも4年前からこんな感じだったの？
07087032006/01/14(土) 18:36:01ID:???
>>707
私の書き方は>>336を参照してください。
短いファイルなら、ロックする時間をできるだけ短くするように書いてます。
0709nobodyさん2006/01/14(土) 19:59:22ID:???
> while( <$FH> )
普通こうする。読み込みなら文句なしに最強。

> foreach( @FILE )
いわずと知れたKEMT仕様。そして何故か入門者ご用達。
でも頻繁に書き込み（書き込みロック）が必要な場合好んで使う人も。

> foreach( <$FH> )
謎仕様。ファイル開きっぱなしで配列展開。KEMTもびっくり。
0710nobodyさん2006/01/14(土) 20:31:18ID:???
>>709
while は最強っていうか、単に昔から Perl の参考書に多い処理ってだけじゃ？
0711nobodyさん2006/01/14(土) 21:02:12ID:???
<$FH> は他のメソッドなり何なりにかわるかもしれんが、
それでも逐次読み出しか一気にメモリに読み出してしまうかに大別できるでしょ
多分。
0712nobodyさん2006/01/14(土) 21:10:27ID:???
自分のスクリプトでforeachからwhileに置き換えられるところは置き換えたんですが、その際に１つ疑問が出ました。

リファラのログを取ってて最大件数５００件で、５０１件目が来たら古いリファラは削除して新しいリファラを追加するって処理の時に
現在が何件のログが貯まってるかを調べる時にはwhileだと一旦最後までループさしてカウンタをカウントアップさせて総数を得て、
その次にまたwhileで処理って感じになると思うんですが、

foreachでメモリに負担　なのと　whileでDISK I/Oに負担とじゃ他のユーザーも同時に使ってるサーバー上ではどの処理がやさしいんでしょか？

今までforeachしか使ってなくてそれを否定された感があってちょっと自信難儀に陥ってまして助言とか意見があれば参考にしたいと思います。
0713nobodyさん2006/01/14(土) 21:41:50ID:???
>>712
おれならメモリに突っ込んでやるけど
テスト環境を用意できるならベンチとってみれば？

0714nobodyさん2006/01/14(土) 21:56:12ID:???
大抵のシステム(OS)はファイルにアクセスするときに先読みやキャッシングをしてくれるので
Perlで二度アクセスするときのIOは気にする必要は小さなファイルであればいりません。

逆に、プログラムの中でキャッシング的な目的でメモリに読み込もうとすると
OS等の低レベルキャッシングとアプリケーションレベルのキャッシングが
物理メモリに配置されることになって、特別な事情がない限り非効率的です。


ちなみにそういうファイルを後から読み込みたいときは専用のモジュールがあります。
Text::Backwords (名前うろ覚え)
今回のケースではメモリ、IOともにもっとも効率がよくなるかと。
0715nobodyさん2006/01/14(土) 21:59:37ID:???
途中で書き足したら意味が解らん。ヤバス。
まぁ要は専用のモジュール使えって事で
0716nobodyさん2006/01/14(土) 22:04:45ID:???
>>714
File::ReadBackwards ？
0717nobodyさん2006/01/14(土) 22:10:51ID:???
メモリ使用量が数百KBレベルの差しかないんだったら、処理が高速な方を選択するよ。
さっさと処理を終らせてメモリを開放させてあげるほうが共用サーバでは重要だし。
0718nobodyさん2006/01/14(土) 22:19:54ID:???
普通はメモリに読み込まないほうがメモリ使わなくて高速だからね。
どうもそこらへんわかってないやつが多すぎる。
0719nobodyさん2006/01/14(土) 22:24:28ID:???
メモリ数百k無駄遣いしてまで共有サーバーで自分のプロセス優先するのね。
「共有サーバーではそっちが重要」とか思い込み激し杉
0720nobodyさん2006/01/14(土) 22:38:45ID:???
>>719
細かい読み込み(しーく)も、鯖に負担かけるんじゃないの？
携帯も初期はそれで問題になったわけだし
良し悪しは良くわからんけど。
0721nobodyさん2006/01/14(土) 22:44:26ID:???
>718
お前は全部分かってないな
0722nobodyさん2006/01/14(土) 22:54:26ID:???
初心者スレで無理に玄人ぶるのはみっともないね
0723nobodyさん2006/01/14(土) 23:01:51ID:???
>>720

システムのキャッシュが破棄されるほどの間隔をおいてアクセスする場合、
そんな長い時間アプリケーションレベルでメモリを確保しとくのは他のプロセスの邪魔。
そしてそのメモリの消費がさらにシステムのキャッシングを圧迫するという悪循環。

普通はアプリケーションレベルでは間欠・逐次的な読み込みでも。
OSがHDなどと協力してアクセスのあったファイルを物理メモリに先読みしてるので
間欠シークは発生しない。

「特定の状況下」で「ハードからソフトまでを知り尽くした」上でのキャッシングは
当然否定しないし、むしろ俺の理解の及ぶ範囲ではないが。

# 窓達だとデフォルトでディスクキャッシュ用メモリの確保量が少ないから効果あるかもね。
0724nobodyさん2006/01/14(土) 23:03:58ID:???
>>723
前提がおかしくない？つーか自分に都合良い前提にしてない？
0725nobodyさん2006/01/14(土) 23:16:26ID:???
そんなつもりはないんだけれど。
どこが違和感あるのか言ってもらえんと説明のしょうが……
0726nobodyさん2006/01/14(土) 23:27:26ID:???
一般にプロセスは太ると死ぬまで痩せない。
理解が充分でない自覚がある場合はメモリを節約するアプローチで概ね間違わない気がするよ。
0727nobodyさん2006/01/14(土) 23:30:48ID:???
>>723 の言ってるのは
レン鯖で他のユーザの使用率とかも分からないのに
変に考えて小手先の技使ったって無駄ってことでは。

いまどきI/Oのアクセスをユーザが気にしなきゃならんOSなんて
レン鯖で使ってないよ。
しかも言語がPerlなんだよね。

頻繁に叩かれるスクリプトで、ガバッとメモリ喰うと
そっちの方でディスクにアクセスがかかるかも知れないってのを
心配してるんじゃないのかな。
0728nobodyさん2006/01/14(土) 23:36:57ID:???
ともかく変な思い込みでperlのメモリに乗せまくるなと
while( <$fh> )も結局は物理メモリのキャッシュから読み込んでる訳で、
遅くないから心配するなと。
0729nobodyさん2006/01/14(土) 23:39:43ID:???
遅い遅くないの前に、逐次処理しかできないのって不便じゃない？
それで済むならいいけどさ
0730nobodyさん2006/01/14(土) 23:40:09ID:???
鯖用途のHDだとHD内部のキャッシュメモリサイズも民生品とは桁違いだったり
0731nobodyさん2006/01/14(土) 23:49:08ID:???
>729
便利・不便じゃなくてシーケンシャルアクセスをどうやるかでしょ。

foreach( @ ) も foreach( <> ) もやりたい事は（多くの場合）シーケンシャルアクセス。
0732nobodyさん2006/01/14(土) 23:50:31ID:???
スクリプトで一番怖いのが、ファイルロックで
プロセスがプロセスキューに溜まる事だと考えてる。
ファイルリードより、スワップの方がコスト高そうだし。
だから、なるべく早くロックを開放することを考えてるよ。

でも、実際そこまで厳しい状態はほとんど知らないし、
そこまで考える必要があるかどうかは分からんけど。
0733nobodyさん2006/01/15(日) 00:01:11ID:???
Perl【の】コーディング【を】初心者【に】質問【する】スレ
0734nobodyさん2006/01/15(日) 00:04:02ID:???
先に読み込んでおいてからロック解除して後で書き込みロックするってことは
書き込み頻度低いってことでしょ？
（そうじゃなきゃ編集衝突するよね？）

メモリに展開する必要ないじゃん。
0735nobodyさん2006/01/15(日) 00:04:24ID:???
ロックは怖いね。
NASとか使ってると、鯖の構成とか製品によっては
フロントの鯖から、ロックファイルが見えるまでにタイムラグがあったりする。
0736nobodyさん2006/01/15(日) 00:04:59ID:???
みなさん色々ないけんありがとうございます。
読んでいった感じ、「メモリには優しく」 というのを感じました。

ただまた１つ疑問がｗ
DB 使ってるとして、巨大なテーブルが戻ってきちゃう場合はどうするんでしょ？
さすがにこれはしょがないんでしょうか・・・
0737nobodyさん2006/01/15(日) 00:07:52ID:???
SQLでLIMITとか使う
0738nobodyさん2006/01/15(日) 00:08:55ID:???
>>736
1. DB に処理できることは DB にやらせる
2. 表示なら巨大なものは最初から表示できないから無駄なものは取得しない

いずれでもない場合ってこと？
0739nobodyさん2006/01/15(日) 00:15:22ID:???
>736

普段どうやってDBアクセスしてるの？
まさか一度二次元配列にぶちこむとかやってないよね？
0740nobodyさん2006/01/15(日) 00:21:05ID:???
>739
いやDBは使ったこと無いです(興味あるっちゃありますが・・・)

>737,738
たとえば得られたテーブルが (巨大とはいえないけどとりあえず) 5項目程度で1000行だとして、
SQL文で500行目〜700行目だけ欲しいっていうことって出きるんですか？
出来るならそれで解決なんですが ＾＾；
0741nobodyさん2006/01/15(日) 00:23:02ID:???
>>740
> SQL文で500行目〜700行目だけ欲しいっていうことって出きるんですか？
できる
0742nobodyさん2006/01/15(日) 00:29:05ID:???
SQLの応答が巨大だからってそれが直にメモリに展開されるわけじゃないから
0743nobodyさん2006/01/15(日) 00:32:01ID:???
Perl側に持ってきちゃったら展開されると思うけど
0744nobodyさん2006/01/15(日) 00:39:40ID:???
>741
なるほろ。 解決しました
thx
0745nobodyさん2006/01/15(日) 00:40:24ID:xHRm9xcd
>>740
sql limit offsetあたりをキーワードに検索をかけると幸せになれるぞ。
つか、スレ違いっぽいな。
0746nobodyさん2006/01/15(日) 01:00:08ID:???
ああスレ違いだageんなバカ
0747nobodyさん2006/01/15(日) 01:05:57ID:a4Y6+QOP
>>746
そんなつまらん事なら書き込むな、このボケ。つか志ねよ。
0748nobodyさん2006/01/15(日) 01:06:45ID:???
>>747
はいはいわろすわろす
0749nobodyさん2006/01/15(日) 13:13:53ID:???
Perlについて学び始めの者ですが、SSIをHTML内に埋め込んだ様な使い方ができると知ってふと思ったのですが…

-sample.html-
<html>
<head>
<!--#exec cmd="sample.pl"-->
こんにちは
</body>
</html>

-sample.pl-
print"<title>sample</title>\n";
print"</head>\n";
print"<body>\n";

…これって良いのでしょうか？
Perlのパスも記述せず、文法的にも…
一応ちゃんと動作してるんですが、何か物凄く間違ってる気がしてなりません…。
0750nobodyさん2006/01/15(日) 13:27:44ID:???
>>610の話題はhttp://pc8.2ch.net/test/read.cgi/tech/1134327348/523-648のことだよね。
利点が分からないなら無理して使う必要はないし、お好みでどうぞ。
ちなみにCGI.pmは標準でインストールされていて、もし入っていなくてもCPANから落として@INC内に入れれば使えます。


# モジュールが重いとか言っていたら、DBIもJcodeもutf8も使っていられませんよ。CGI.pmが重いなら、MovableTypeを使うなんて論外ですね。
0751nobodyさん2006/01/15(日) 13:41:01ID:???
うわぶり返し（； ＾ω＾）
0752nobodyさん2006/01/15(日) 14:35:28ID:???
まだやりたらないみたいですね＾＾＾
0753nobodyさん2006/01/15(日) 14:59:53ID:???
自演乙
0754nobodyさん2006/01/15(日) 16:34:25ID:???
>750

またおまえ「ら」かよ。いい加減なんちゃってモジュール使いたいがために
さるみたいにCGIモジュール直接読み込むのやめろ。な？

しかもそれで知ったかで質問にレスするし。
最悪。
0755nobodyさん2006/01/15(日) 16:41:10ID:???
まぁ通常の CGI では重たいモジュールの利用を避けるべき、という
のは分からなくもない（やりたきゃ自分でサーバ用意して mod_perl や
fastcgi でやれってこと）が、それならそれで適切な表現てもんが
あると思うがな。
0756nobodyさん2006/01/15(日) 16:43:02ID:???
「使いたくないやつは使わない」
それでいいじゃん
〜終了〜
0757nobodyさん2006/01/15(日) 16:44:34ID:???
>>754が必死な理由が全然ﾜｶﾝﾈ
0758nobodyさん2006/01/15(日) 16:47:29ID:???
わざわざ車輪の再発明する理由はないけどね。
まぁCGIモジュールしか知らないなら使わないのは正解かもね。
0759nobodyさん2006/01/15(日) 16:50:52ID:???
>757

共有サーバーでみんなが右も左も解らず無駄にCGIモジュールをロードしたらどうなると思う？
0760nobodyさん2006/01/15(日) 16:54:23ID:???
まだやってたのかよ・・
0761nobodyさんNGNG
レン鯖でCGI動かすような環境でPerl勉強してたら敬遠するようになるだろうなー
0762nobodyさんNGNG
これだから「WebProg板は・・・」って言われるんだよな
0763nobodyさん2006/01/15(日) 17:25:16ID:???
先程から拝見していましたが、
結局クエリ読み取るときにはどうすればいいんでしょうか。
教えてください。
0764nobodyさん2006/01/15(日) 17:34:06ID:???
>>763
ラクダ本読め
以上
0765nobodyさん2006/01/15(日) 17:37:39ID:???
ラクダ本て
えらい遠回りな
0766nobodyさん2006/01/15(日) 18:21:55ID:???
>>763

use CGI::最小限;
0767nobodyさん2006/01/15(日) 18:30:31ID:???
>>763
迷うならCGI.pm使う。
パフォーマンスを追及したかったら思ったらCGI::minimalをインスコして使う。

根拠はperlfaq9
http://www.kt.rim.or.jp/%7Ekbk/perl-5.8/perlfaq9.html#how_do_i_decode_a_cgi_form
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq9.html#How_do_I_decode_a_CGI_form_
0768nobodyさん2006/01/15(日) 19:24:47ID:???
微笑ましいレスだな。
0769nobodyさん2006/01/15(日) 19:54:25ID:???
GETしか使わないからURL::Queryに突っ込んでる。
0770nobodyさん2006/01/15(日) 20:39:21ID:???
自分の意見を押し通さないと満足しない厨房たち（笑）
0771nobodyさん2006/01/15(日) 20:41:22ID:???
いろんな方法が表に出てくるのはいいことだ
0772nobodyさん2006/01/15(日) 20:45:26ID:???
sub decode {
　　binmode(STDIN);
　　if($ENV{'REQUEST_METHOD'} eq "POST"){
　　　　read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
　　}else{
　　　　$buffer = $ENV{'QUERY_STRING'};
　　}

　　@pairs = split(/&/, $buffer);
　　foreach $pair (@pairs) {
　　　　($name,$value) = split(/=/,$pair);
　　　　$value =~ tr/+/ /;
　　　　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

　　　　$in{$name} = $value;
　　}
}
スクリプト書くたびにコレを書いてる
マルチプル、マルチパートなんて使わないのでこれで十分事足りてる
0773nobodyさん2006/01/15(日) 20:57:56ID:???
>>772

590 549 sage 2006/01/13(金) 12:44:01
>>568
説明すると長くなるから
ttp://perldoc.jp/docs/perl/5.6.1/perlfaq9.podの
How do I decode a CGI form?の項を1000回読め。
とほほのコードがどうしてまずいのかがよ〜く解るだろう。

ついでにCGI.pmはpure perlだから読んでみるとよかろう。
もし君が解読しきれなくても本当に正しくフォームデコード
するというのはどんなに大変なことなのかぐらいは解るだろう。

CGI/util.pmのunescapeメソッドを読むだけでも君は
ここで「とほほのコードはWebProg板では普通のコード」
と言い切ってしまったことをとても恥ずかしく思うようになるはずだ。

cgi.pmのマニュアルがよく解らないというのはオブジェクト指向や
参照渡しがよく解ってないからじゃないのかな。
cgi.pmにはcgi-lib.plもどきの関数インターフェースもあるので
Webを漁って探してみてくれ。日本語訳もあるよ。

まあ頑張れ。
0774nobodyさん2006/01/15(日) 21:20:06ID:???
>>773
まずレス先をきちんと明示できるように「掲示板の書き方」勉強してみるべき
日本語も不自由でかわいそう・・・
0775nobodyさん2006/01/15(日) 21:22:56ID:???
readのエラーチェックとかアホみたいだな
エラーチェックしなかったら、どうなるんだってのｗ
0776nobodyさん2006/01/15(日) 21:30:59ID:???
俺仕様で不備が指摘されても開き直る人
0777nobodyさん2006/01/15(日) 21:34:52ID:???
反論されて耳が真っ赤でイライラして、必死に言い返す言葉を模索中の>773
0778nobodyさん2006/01/15(日) 21:35:18ID:???
いいかげんパラメータ区切り;に改善しろよ。
0779nobodyさん2006/01/15(日) 21:37:12ID:???
そして平然を装って書き込む>778=773
0780nobodyさん2006/01/15(日) 21:38:02ID:???
そんなくだらない言い争いしてないで
ttp://pc8.2ch.net/test/read.cgi/php/1127916965/
このスレの依頼でもやってクリ

俺の依頼もスルーされてるけど、とりあえず他の人の依頼でもいいからさ
0781nobodyさん2006/01/15(日) 21:42:33ID:???
>>779
お前は自分の不備を指摘する人間はみんな同一人物だと思ってるのか？
……お疲れさまです。
0782nobodyさん2006/01/15(日) 21:51:27ID:???
>778=773=781
落ち着けよｗｗｗｗｗｗｗｗｗ
0783nobodyさん2006/01/15(日) 21:55:05ID:???
具体的にreadのエラーチェックしなかったらどうなるの？
悔しかったら反論してみろよｗ
0784nobodyさん2006/01/15(日) 21:58:42ID:???
wwwww
07857732006/01/15(日) 21:59:42ID:???
俺様にはそんな技量無いので説明できません
07867732006/01/15(日) 22:07:51ID:???
>783
「エラーチェックしなかったらどうなるのか無知な僕に教えてください」だろ。
いくら初心者質問スレだからって人に教えを請う態度ぐらい身につけて下さい。
0787nobodyさん2006/01/15(日) 22:10:49ID:???
無知？お前じゃんｗ
0788nobodyさん2006/01/15(日) 22:12:37ID:???
今ここで煽りあってるのは、偉そうにいえるほど効果的なのを組める人ばかりなの？
0789nobodyさん2006/01/15(日) 22:14:36ID:???
うん、そうだよ
0790nobodyさん2006/01/15(日) 22:21:26ID:???
脳内ﾌﾟﾛﾌｪｯｼｮﾅﾙな子供が罵りあうスレと聞いて飛んできました
0791nobodyさん2006/01/15(日) 22:22:30ID:???
お手本プリーズ
0792nobodyさん2006/01/15(日) 22:39:08ID:???
居ないみたいだし>>772がこのスレの限界ということだな。丸く収まったじゃないか。
0793nobodyさん2006/01/15(日) 22:41:17ID:???
めっちゃグローバル変数
0794nobodyさん2006/01/15(日) 22:48:33ID:???
ちょっと組むぐらいならグローバル変数でも十分なんじゃ？
0795nobodyさん2006/01/15(日) 22:59:10ID:???
基本は>>772でいいんじゃないの？
突っ込みどころが数箇所あるけど
0796nobodyさん2006/01/15(日) 23:01:47ID:???
初心者の俺から見ると普通に>>772でいいように見える。
ダメだと言ってる人、折角だから完璧なモノに改造してくれないか？
参考にするから。
■ このスレッドは過去ログ倉庫に格納されています