【Perl 】初心者コーナーPart8

**名無しさん＠お腹いっぱい。** · 01/10/24 14:11

いらっしゃーい、perlのコーディングで困ってる人のスレです。

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50

過去ログ、その他の役立ち情報は>>2-10を見よう。

9 · 01/10/24 16:49

またまた CGI.pm絡みで質問です。
ファイルアップローダを作るとき 2.47以降の CGI.pmなら

$handle = $cgi->upload('file');
while( <$handle> )

とできますが、プロバイダの CGI.pm が古いため

while( <$cg->param('file')> )

という方法になってしまいます。
しかしこれだと「c:\hoehoe.txt」のようなハンドル名になって
受け付けてくれません。

なにか対処方法はないものでしょうか？

**名無しさん＠お腹いっぱい。** · 01/10/24 18:11

前スレ963(http://ebi.2ch.net/test/read.cgi/php/1000267444/963)さん
おっしゃる通りです！、例え話も良く解りました　(^ ^ )

；他に嵌るパターンて言うと、ループ、再帰、mod_perl環境、undumpした
最後の2つが勉強不足で分からないですが、この辺は他の言語と同じですね

；**もし**宣言の事言ってるんだったら、こっちはちゃんとしよう。
了解しました、strictプラグマを常用してます。
でも、宣言さえしなくても動いてしまうのは凄いですね。
少しのステップで色々出来ちゃうんで、戸惑ってたんです　(^ ^ )
何気にソケットを叩けたりと色々楽しそうです。
今からログを漁ろうと思います。

**名無しさん＠お腹いっぱい。** · 01/10/24 19:24

その代わりPerlで一行コード満載コーディングしてると
Cに帰った時酷く冗長に見えて鬱になるぞ　っと
# 頭の切り替えなんだよなあ

**野獣牛兵衛** ◆n.Nd.2Co · 01/10/24 22:45

こんにちは
オフ板に perlオフの企画スレ立てました
よろしければ来てください
http://natto.2ch.net/test/read.cgi?bbs=off&key=1003929930

**名無しさん＠ほっとぞぬ** · 01/10/24 23:48

自己レス

>@fff[0..1][2]
>のようなスライスをすることは出来ますか？
>（スライスとは言わないのかも）

一応下記のような方法を考えてみました

@kkk = map { @$_[2] } @fff[0..1];

**名無しさん＠お腹いっぱい。** · 01/10/25 01:50

perlcc.batが使えません。
一応、vc++6.0 sp5は入れてあるんですが、出来上がったexeが実行できません。
どこかにいいドキュメントは無いでしょうか？
#!D:\perl\bin\perl.exe
print "Hello perlcc\n";

たったのこれだけをコンパイルしたいんですが。。

**名無しさん＠お腹いっぱい。** · 01/10/25 02:36

my $name = 'tinko pinpin';
1)
if($name eq 'tinko pinpin') {
　cnt++;
}
--------と
2)
cnt++ if($name eq 'tinko pinpin');

をループさせて速度を測ったら
1)21 wallclock secs (20.95 usr + 0.01 sys = 20.96 CPU)
2)10 wallclock secs (10.23 usr + 0.00 sys = 10.23 CPU)
くらい違いますが、内部ではどのような処理の違いがあるんですか？
教えてください！！！！！！！！！！！！！！！１

**名無しさん＠お腹いっぱい。** · 01/10/25 02:39

>17
なぜにマルチしますか？
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=991994996&st=520&nofirst=true

**名無しさん＠お腹いっぱい。** · 01/10/25 02:49

答えられないなら初めからそう言ってください（ぷぷぷ

**名無しさん＠お腹いっぱい。** · 01/10/25 04:17

>>17
気になるならソース嫁。
http://www.perl.com/CPAN/src/stable.tar.gz

perl-5.6.1/perly.y の sideff と cond を見て、それぞれの構文のコストを見積もれ。
内部命令の実装は perl-5.6.1/op.c にある。

**_gunzip** · 01/10/25 04:37

後者が遅くなるのは、{}ブロック内のmy変数padlistを作成したり、
脱出時のlocal変数のsavestackからのrestoreなどを処理する
クリーンアップコードが必要になるからです。

...とは言え、気にする程のオーバーへッドではありません。

**_gunzip** · 01/10/25 04:39

後者->前者

**名無しさん＠お腹いっぱい。** · 01/10/25 06:43

ぱ、ぱ、ぱ、ぱーるの大爆笑
こりゃこりゃこりゃこりゃこりゃこりゃ

**前スレの911** · 01/10/25 09:25

passはそういう渡しかた。
urlもdiary.cgiのままです。

**名無しさん＠お腹いっぱい。** · 01/10/25 09:47

おまえさ、その聞き方じゃ前スレ読み返さなきゃ訳わかんねぇよ。

せめて前スレの該当記事のトコのURL書いとけよ。

エラー処理のトコで入力されたパスワードと正確なパスワードを表示するようにして
ちゃんと同じパスワードが渡ってるか確認しろ。

てゆーか
http://ebi.2ch.net/test/read.cgi/php/1000267444/937

で既に指摘されてるだろ？

結果はどうなったんだよ。

25 · 01/10/25 09:48

25は>>24宛て

**今日からPerlさん** · 01/10/25 10:50

超初心者のファイル移動に関する質問です

----------
$Old_Dir = './old';
$New_Dir = './new';
$File_Name = 'sample.html';

$Old_File = $Old_Dir + $File_Name;
$New_File = $New_Dir + $File_Name;

rename($Old_File,$New_File);
----------

これでは./old/sample.htmlが./new/sample.htmlに移動してくれません
どうしたらよいのでしょうか

**名無しさん＠お腹いっぱい。** · 01/10/25 11:07

> $Old_File = $Old_Dir + $File_Name;
まず、+ では文字列の連結は出来ないよ。
文字列の連結はピリオドなので、やるなら
$Old_File = $Old_Dir . $File_Name;
でも、これじゃ出来ない。
$Old_File がどういう値になるか考えてみて。

**名無しさん＠お腹いっぱい。** · 01/10/25 11:09

ヤダねったら、ヤダね。

**名無しさん＠お腹いっぱい。** · 01/10/25 11:17

rename($Old_File,$New_File) or die "$Old_File:$New_File:$!";

**名無しさん＠お腹いっぱい。** · 01/10/25 11:40

>27
あと、その場合 $Old_Dir と $New_Dir がそれぞれ
'./old/' './new/' でなくてはなりませんね。
そのままでは './oldsample.html' みたいになってしまいます。

28 · 01/10/25 11:49

>>31 萎え。
言わずにちょっとだけ考える余地を残しておいたのに・・・

31 · 01/10/25 12:22

>>32
そりゃ失礼。
っていうかそのスタイルいいですね。今後はそういう風にします。

**>>17 こちらのほうが…** · 01/10/25 13:02

http://piza2.2ch.net/test/read.cgi/tech/991994996/522
$name eq 'tinko pinpin' and ++$cnt

**煽ってるわけじゃないですが** · 01/10/25 14:26

コンパイラによる最適化とかって、無いんですか？

**名無しさん＠お腹いっぱい。** · 01/10/25 15:09

最適化のｵﾊﾞﾍｯﾄﾞのが無駄じゃんかよ
漢ならそんな事気にすんなよ　な！
コンパイラ如きで最適化されてるうちは素人って事よ
がはははは！！！！　　　　はぁ....

**名無しさん＠お腹いっぱい。** · 01/10/25 16:32

>>35
何を指して言っているのかわからん。

**名無しさん＠お腹いっぱい。** · 01/10/25 17:00

op.cのpeep()を見ろ、と昔誰かが書いてた。

**名無しさん＠お腹いっぱい。** · 01/10/25 17:35

（ ´∀｀）＜おまえもぬー

**名無しさん＠お腹いっぱい。** · 01/10/25 18:32

DBMの質問です。

DBMってレコードの数が多いと、オープンしたときにそれなりのメモリを消費するのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/10/25 18:56

DBMの場合はハッシュに全てデータを入れてるように見えるけど、
実際はデータが全てメモリに展開されることは無かったかと。

使い方によってはメモリ食うだろうし、データが多くなればなるほど
重くなるのはどんなシステムでも同じですが。

**今日からPerlさん** · 01/10/25 19:50

結局わかんないので正解ください

**名無しさん＠お腹いっぱい。** · 01/10/25 19:58

>>42
答え出てます。
>>28、>>31

**JAPU** ◆JAPUTeX. · 01/10/25 20:08

>>42
何が分からないの?
単に正解だけを求めるのは良くないよ。

----
ちなみに、http://www.japu.org/cgi/security/ は既に移転しています。
(ジャンプするようにしてあるけど。)

**名無しさん＠お腹いっぱい。** · 01/10/25 20:39

(^∀^) ｵﾏｴﾆﾊﾑｲﾃﾅｲｶﾗﾔﾒﾄｹ　　ﾏｳｽﾃﾞｺﾋﾟｰｼﾛ
ｱﾊﾊﾊh　ｱﾎｶ

**名無しさん＠お腹いっぱい。** · 01/10/25 21:06

45 = japu

**名無しさん＠お腹いっぱい。** · 01/10/25 21:18

45=46

**27の母** · 01/10/25 21:23

初心者を指導して気持ちよくなるのは自慰行為
本当に２７＝４２だか知らんが、オナニスト先生は正解も書いてちょんまげ～

40 · 01/10/25 21:36

>>41
ハッシュに入れてるのでメモリを食ってるのかと思ってました。
ありがとうございました。

27 · 01/10/26 00:07

>>48 当然。
ボランティアで質問に答えるのが自慰行為以外の何者であるか。

**名無しさん＠お腹いっぱい。** · 01/10/26 05:34

掲示板を作ろうとしています。
.htmlファイルにあるフォームに内容を書いて投稿すると.cgiファイルに渡して
処理をし、表示させるというものはどうにか作ることが出来ました。
しかし色々な方が作っている掲示板の中には投稿フォームの表示から書き込まれ
た内容の処理、それらの表示までを.cgiファイルだけでほとんど全ての処理を行
うものがあります。次はこういうスクリプトを作りたいのですが、どうしてもう
まく行きません。

既にログファイルに書き込まれている内容を投稿フォームの下に表示することと
投稿した内容をログファイルに書き込むことはできるのですが、書き込み→処理
→表示ができません。つまり、投稿した内容はリロードしないと読むことが出来
ないのです。

ただ上の動作をさせたいためだけに作ろうとしたスクリプトとはいえ、仕上って
みるとやたらに『</body></html>』の多いものになってしまいました。今までは
どんなに頑張ってもできなかったのに、ここに載せるために書いたものが偶然そ
ういうものになったという棚ボタスクリプトのため、効率も何もあったものでは
なく・・・。

ここに載せるにはあまりにも長いため、別サイトに置くことにしました。
http://www.geocities.co.jp/Outdoors-River/5665/sample.txt

よろしくお願いします。

01/10/26 07:00

http://www.kent-web.com/
ここにある簡単なBBSのスクリプトをダウンロードしてから処理の流れ見て
みましょう。
デバッグの方法がわからないなら、
sub debug_print {
print "Content-Type: text/plain\n\n";
foreach (@_) { print "$_," }
exit;
}
でも使って1行ずつわからない変数があれば目で見て調べましょう

**名無しさん＠お腹いっぱい。** · 01/10/26 07:36

>>51
そのソースのまま順番を変えたら表示出来たよ。
$ENV{"CONTENT_LENGTH"}空なら書き込み処理はいらないよね。

**名無しさん＠お腹いっぱい。** · 01/10/26 13:12

⊤ # 投稿フォームを表示して
&log_viewer; # ログ展開して記事表示
&get_time; # 日時取得して
&decord; # フォームデコードして
&data_write; # ログに書き込み。

>>52さんの言うように
他の配布スクリプトの処理の流れを見て、
BBSがどういう処理をすれば動くのか考えてみるといいかも。

&decord; # フォームデコードして
&get_time; # 日時取得して
&data_write; # ログに書き込み。
⊤ # 投稿フォームを表示して
&log_viewer; # ログ展開して記事表示

**名無しさん＠お腹いっぱい。** · 01/10/26 15:10

cronを制御するプログラムを書こうと思っています。
Schedule::Cronを使おうかと考えていますが、実行プログラムをエントリーすることは
できても削除することはできません。
(全部削除することはできる)

cronを自由自在に操るライブラリもしくはcron likeなプログラムってありませんか？

**名無しさん＠お腹いっぱい。** · 01/10/26 18:06

はじめまして。
PerlでCGIを書いてるプログラミング初心者です。
いきなりですが、
ローカルで動いたCGIがアップすると動かない場合、
どんなミスが考えられるでしょうか。
パスはあってます。
パーミッションもあってます。
これ意外でなにか思い当たることがあれば教えていただけませんか？
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/10/26 18:14

>>56
エラーになる原因はいくらでもあります・・
httpdのエラーログ見ましょう。

56 · 01/10/26 19:14

>>57
すみません、httpdって何ですか？

**名無しさん＠お腹いっぱい。** · 01/10/26 19:23

（＾∀＾）すみません、ｱﾅﾀﾊﾞｶﾃﾞｽｶ？

**名無しさん＠お腹いっぱい。** · 01/10/26 19:58

>>59
貴様が馬鹿だ。

56 · 01/10/26 20:22

>>59
馬鹿かどうかはともかく、知識がないことは認めます。

質問の仕方が悪かったようなのでまとめます。。

自分用に日記スクリプトを組んで、
ローカルでは正常に動きました。
環境はMacJPerlとWEB共有でした。
MacJPerlでの構文チェックはOKが出ました。

このあと、借りているサーバにアップして
パーミッション設定をして動かしてみました

そしたら、一部の機能は動いたんですが
サーバがエラーを返す時もありました

なぜかわからないので、
もしかしたら・・と思うところがあったら
教えていただけませんか？

**名無しさん＠お腹いっぱい。** · 01/10/26 20:26

詳しくないけどシステムに依存したコマンドがあるんじゃないの？

**名無しさん＠お腹いっぱい。** · 01/10/26 20:40

ふむ、初めからそう書けば良いのに、httpdは検索してくれ、サーバの事
で、残念だけど、自分で書いたコードならその「エラーを返す時」がどんな
コードなのかを書かないと答えられない
これを使ってエラーを捕捉してみてくれ
http://www.kawa.net/works/perl/catch/news.html

Unixlike<=>Mac<=>WIN、環境で結構引っ掛かるので俺が知ってるのは
ディレクトリ区切り子　\とか/とか:とか
ディレクトリ相対パスの問題　IIS3とか
スクリプト起動時のカレントディレクトリの問題
OSに依存したシステムコール
OSに依存した関数の使用

多分まだまだネタはあるはず

**名無しさん＠お腹いっぱい。** · 01/10/26 22:16

find関数（File::Find）ではファイルがアルファベット順に
出てくるようなのですが、これをタイムスタンプ順にすることは
可能でしょうか？

51 · 01/10/27 00:19

>>52
>>53
>>54
ありがとうございます。
確かに・・・。
流れを読んだ上で組み合わせれば何と言うことのないことでした。

>>52さんが紹介してくれたサイトのスクリプトをじっくり眺めてみることにします。

ありがとうございました。

**名無しさん＠お腹いっぱい。** · 01/10/27 01:54

>>64
ディレクトリ単位でソートするなら可能だよ。

find( {wanted => \&wanted, preprocess => \&preprocess }, $dir );

sub preprocess {
@_に入ってくるファイル名をタイムスタンプでソートした結果を返す
}

**名無しさん＠お腹いっぱい。** · 01/10/27 08:38

>>66 わぁ。ありがとうございます。
ディレクトリ単位で良いです。っていうかディレクトリ単位が良いです。
助かりました！

**名無しさん＠お腹いっぱい。** · 01/10/27 15:49

俺ってまだよく理解できてないからフローチャートとか書いて
から組んでるんだけど知り合いとかはさくさく組んじゃうんだよね。
フローチャート作ってる俺って厨房ですか？

**名無しさん＠お腹いっぱい。** · 01/10/27 16:12

なんでもそうだろけど使い方による。
グチャグチャと絡まった概念を解く事が出来るから漏れは良く書いてる
(覚え書き程度のもんだが・・・)
Keyboardばっかり叩いてると、紙に書いた事は結構クッキリと頭に残ったりとかね

*死ぬ程忙しい時は、するべき事を紙に書いてみよう、意外と大事な用は一つだったりして

**名無しさん＠お腹いっぱい。** · 01/10/27 18:37

ageageage

**名無しさん＠お腹いっぱい。** · 01/10/27 20:09

$var /= 32;
$var >>= 5;

ではどっちが速いですか？？

**Perl上級者** · 01/10/27 20:32

くだらん。そんなことを気にするぐらいならPerlで書くな。

**名無しさん＠お腹いっぱい。** · 01/10/27 20:33

>>71
自分でベンチマークとれ。

71 · 01/10/27 20:34

ベンチマークってどう取ればいいのですか？それがわからないのか(＾＾；；；＞俺

**名無しさん＠お腹いっぱい。** · 01/10/27 20:40

Perl上級者は真性、相手すると感嘆符使いまくってウザイので完全無視でお願いします　

**名無しさん＠お腹いっぱい。** · 01/10/27 20:42

>>74
perldoc -u Benchmark
これで大体分からないかな、要はかっこでくくるだけだよ

**名無しさん＠お腹いっぱい。** · 01/10/27 20:45

>>71
後者は小数点以下切り捨ててないかい？

**名無しさん** · 01/10/27 20:50

Perl上級者＝高卒　ﾌﾟ

**名無しさん＠お腹いっぱい。** · 01/10/27 20:53

Perl上級者＝jaﾌﾟ

**名無しさん＠お腹いっぱい。** · 01/10/27 21:13

>>78-79
煽り止めれ。Perl上級者と同レベル。

**Perl上級車** · 01/10/27 21:16

この板で一番レベルの高いスレッドはどこだ？
こんな程度の低いところは嫌だからな。

**名無しさん＠お腹いっぱい。** · 01/10/27 21:18

車だってさ(w

**名無しさん＠お腹いっぱい。** · 01/10/27 21:21

>>81　eq　ﾀｰﾐﾈｰﾀ

**名無しさん＠お腹いっぱい。** · 01/10/27 21:24

>車
過疎地うろついてないでマ板いきなよ
Perlスレもぽこぽこ建ってるし

**名無しさん＠お腹いっぱい。** · 01/10/27 22:52

ログ移転前に書いてみる。

**名無しさん＠お腹いっぱい。** · 01/10/27 22:56

移転上げ

**名無しさん＠お腹いっぱい。** · 01/10/28 21:53

age

**名無しさん＠お腹いっぱい。** · 01/10/29 03:25

(aa..zz,aA..zz,Aa..zz,AA..zz)
みたいなアルファベット大・小文字全部並べるスライスの，簡単な書き方ってありますか？

関数に文字数指定して，文字列として書かせたのを，evalして使ってるんですが
無駄なことしてるかもと思ったので。

**名無しさん＠お腹いっぱい。** · 01/10/29 03:30

もっと具体的に説明きぼん

88 · 01/10/29 03:50

>>89
普通に手で書くと，文字数増えるごとに書くのもどんどん増えていっちゃうので，
(aa..ZZ)とか(\w{3})みたいな書き方はできないかなぁと。

88の関数はこんなのです。
@arry = eval getArry(1);
sub getArry {
　my $nest = shift;
　my $word = shift || '';
　my $i = 0;
　my $ret = '';
　foreach (a,A) {
　　my $word = $word.$_;
　　if ($nest>0) {
　　　$ret .= getArry($nest-1, $word);
　　} else {
　　　$i++;
　　　$ret .= "$word..";
　　　$ret .= 'z'x length $word;
　　　$ret .= ',';
　　}
　}
　return $ret;
}

**名無しさん＠お腹いっぱい。** · 01/10/29 07:15

それ異常の書き方は無いと思うなあ。
つーかむしろ(a..z)だけにして、文字列長投げるような関数に
した方が良いんじゃないの?
呼び出しのコストを嫌ってるのか･・・・
漏れはデカイ配列の方が嫌いだけどなあ

**名無しさん＠お腹いっぱい。** · 01/10/29 07:19

あ、すまん、そうしてるんだね。
再帰しなくても良さそうだな、、
帰ったら書くわ

**名無しさん＠お腹いっぱい。** · 01/10/29 17:18

>>91
>漏れはデカイ配列の方が嫌いだけどなあ
俺もおなじくです。2文字(aa～ZZ)ぐらいならいいんですが、
4文字(aaaa～ZZZZ)なんかはちょっと配列に入れるのがつらい。

用途にもよるけど、呼び出すごとに「次の文字列」を返す関数を
作って、STLのnext_permutationみたいな使い方をするのが
いいと思う。

**名無しさん＠お腹いっぱい。** · 01/10/29 20:26

あるファイルの行数を調べたいのですが、
一番メモリを使わずに調べる方法は何ですか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:04

my宣言した変数は出来るだけ早くundefした方が良いのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:14

>>94
nバイトずつreadして"\n"の個数を数える。

**名無しさん＠お腹いっぱい。** · 01/10/29 21:15

>>94
my ($lineNum,$fileName,$buf);
open (FH,"fileName");
while (1){
read(FH,$buf,1);
last if $buf eq '';
$lineNum++ if $buf eq "\n";
}
print "行数は$lineNumです\n";

**名無しさん＠お腹いっぱい。** · 01/10/29 21:45

>>94
open(FH, $file) or die "Can't open $file";
my $count;
$count = $. while (<FH>);
close(FH);

**名無しさん＠お腹いっぱい。** · 01/10/29 21:54

>>95
大量のデータを長期間無駄に保持するのは避けたいけど、
ほとんどの場合、あえて明示的にundefするまでもないと思う。
まあ具体的なコードを見ないと判断つかないっすね。

**始めて数日なんですが** · 01/10/29 22:08

検索したり本を見ても、書いてなかったり、さっぱり意味不明だったりと自分ではなかなか判断がつかないとき、「内では～となっているので～とした方がいい」って明解に断言してくれる人がいると役に立つんだけど、みなさんはどうしてるんですか？

**Perl上級車** · 01/10/29 22:11

>>100
首吊って氏ね。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:14

>>100
> 始めて数日なんですが
日本語を？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
perldocの該当個所を4～5回読み直し、それでも理解できなければ
いまは知る必要がないのだとあきらめて後回しにした。
すくなくとも他人の言葉には頼らなかった。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
とにかく、首をくくるのがいいと思われ

**マジレス** · 01/10/29 22:23

>>100
始めて数日の人がそんな壁にぶつかる訳がありません。
Googleで検索したりリンク辿ったりすれば、参考になるものが
見つかるはずです。
少なくとも初心者の内は検索などで十分です。
（分不相応な事をしなければ）

そして初心者を抜ければ殆ど自分で判断できるようになる筈です。

**Perl上級者** · 01/10/29 22:27

とにかく邪魔だから二度と出てこなくていいよ。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:28

>>106
お前も一々煽るな。邪魔臭い。

**Perl上級者** · 01/10/29 22:29

ﾊｧ？ココは気持ち悪い馴れ合いスレですか(わら

**名無しさん＠お腹いっぱい。** · 01/10/29 22:32

>>108
馴れ合いの逆は煽りかよ。馬鹿丸出し。
いいからとっとと失せろ。

01/10/29 22:34

Perl上級者は無視の方向で。