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

【Perl】初心者コーナー Part12

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/04/27 23:17ID:1NNXdNsp
　
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

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

CGIの質問は【CGIだけどなんか質問ある Pert 6 】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4 】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10を見よう。
　
0362ん〜さっぱわからん02/05/04 04:25ID:qVSStWkL
>>360
そんなに簡単にできちゃうの？もうずいぶんと長い間悩んでいるのだが
でも、それって結局ファイル全部読み込んでるのと同じじゃないのだろうか？
0363nobodyさん02/05/04 04:28ID:???
>>361
改行コードがDOS改行になってるっていうオチはないか。
とりあえず、telnet経由で単独で実行した結果の先頭5行くらいコピペ
してちょ。
036436502/05/04 04:29ID:???
>>362
んなこたーない。
1〜5行目までは読んで捨ててるのでメモリに残らないし、
11行目以降は、読んでさえいない。
0365なんとなくわかってきた02/05/04 04:38ID:qVSStWkL
>>364
んん、なんとなくわかってきますた。すいませぬ。

つまりは２ｃｈ掲示板の
最新50 1-100 100-200 200-300
っつーのをやりたいのですが、やはりこの方法でやっているのでしょうか？
036636102/05/04 04:39ID:Wv66U69I
>>363
秀丸を使って、EUCからS-JIS、JIS、UNICODEにUTF-8まで試してみました。
以下は単独実行の結果です。
dalrq000@sv29:~/public_html/acjik/abcd/cgilib>./jiktes.cgi
Content-type: text/html

<html>
<body bgcolor=silver text=navy>
<h1>CGI TEST</h1>
length:<p>
IP Addres:<p>
data:<p>
（以下略）
･･･どんなでしょうか？
0367nobodyさん02/05/04 04:44ID:???
>>366
っかしいなぁ。
出力はそれでOK。
ためしに、
#!/usr/local/bin/perl
print "Content-Type: text/html\n\nほげほげ";
だけ書いたスクリプトだとどうなるかな。これでだめなら、
webサーバの設定(httpd.confか.htaccess)がおかしいと思う。
0368nobodyさん02/05/04 04:46ID:???
>>365
read.cgiはperlじゃなくてCでしょ。
やってることは同じだと思うけど。
0369わかりましたぁ！02/05/04 04:50ID:qVSStWkL
>>368
ですよね。なんとか理解してきました。
早速試してみます。ありがとうございます。

・・・しかし、随分長い間Perl書いてるのになんで
教える側にまわれないんだろう？（ｼｮﾎﾞﾝ
037036102/05/04 04:58ID:Wv66U69I
>>367
.htaccessは以下の二行だけです。
AddType application/x-httpd-cgi .cgi
AddType application/x-httpd-cgi .cgi/

他の人が作成してちゃんと動いているCGIのディレクトリ内には、
.htaccessはありません。当然削除して試してみましたが駄目でした。
更に、その人のディレクトリに私のCGIを置いて試してもみました。

httpd.confの方は見る事も禁止されてるので、なんとも言えません。
0371nobodyさん02/05/04 05:05ID:???
>>370
で、その人のを自分とこ置いたらできたの？
>>367の2行だけのスクリプトはどう？
037236102/05/04 05:37ID:Wv66U69I
>>371
それが･･･それらのファイル、エラく大掛かりなんで、ドコを
どうイジったらいいか分析するのに凄く時間が掛りそうなんです。
とりあえず移動させずに、ブラウザからアクセスするとForbiddenと
言ってきます。これは、一応CGIの実行結果みたいです。
関連するらしいファイルをまとめて（怪しいですが）私のトコにコピーし、
ブラウザから呼び出してみると･･･500 Internal Server Errorになります。

あ、「ほげほげ」もやっぱり駄目みたいです。
0373nobodyさん02/05/04 05:39ID:???
>370
オマエには無理じゃないのか？
FreeBSDのＷｅｂサーバ上にＣＧＩスクリプトをアップしてるわけだろ。
秀丸で文字コード変換を試したっつーことはＷｉｎからアップしてるだろ。
アップはＦＴＰだと思うが、結局アップするときにバイナリモードでやったのか？
オマエのことだから自動変換かアスキーモードでやっていないか？
あとは、パーミッションは大丈夫だと言ってるが、上位ディレクトリのパーミッション
まで確認できてるのか？
それと、３７１ が書いてることも合わせて確認しろ。
0374nobodyさん02/05/04 05:40ID:fEiPwaMd
すんません誰か力かしてください。
LWPで取得したデータを$xに入れる。
その$xをwhileで処理させる超シンプルなソースお願いです。
0375nobodyさん02/05/04 05:45ID:???
foreachを使った制御構造とwhileを使った制御構造がありますが
foreachでも(1..5)とか指定すればwhileで5回繰り返しやったのと
結果以外の部分でも同じ位の負荷だとかになるんでしょうかね？

後、どっかのスレで書けるなら全部whileの方がいいと聞きましたが
全部読む必要があるときなんかもwhileで書いた方が良いんですかね？
037636102/05/04 05:56ID:Wv66U69I
>>373
ん？確かにＷｉｎからですが、CGIの類ってASCIIで
転送するんじゃなかったんですか？
パーミッションはpublic_html以下から、とりあえず777にしてみてます。
037736102/05/04 06:09ID:Wv66U69I
>>373
CGIの類っちゅうか、スクリプト言語の類ですね。
037837102/05/04 06:09ID:???
>>376
ASCIIでやったほうが、改行コード変換してくれるので楽だけど、
できればあらかじめUNIX改行(LF)にしておいて、バイナリモードで
転送したほうが確実。
(>>363で改行コードの指摘したのはそれなんだけど)

んで、Forbiddenってのは、CGIの実行結果じゃく、サーバが返してる
エラーだと思うんだけど、それはおいといて、

まずは>>367の2行スクリプト試してよ。
不安なので、public_html/ 直下に置いて、.htaccess アリの場合と
無しの場合と、telnet で直接実行した場合の３通りの結果よろしく。
037936102/05/04 06:42ID:Wv66U69I
>>378
EUCにしておいてバイナリモード転送。･･･同じですね。
でも、363の内容で問題が起こってたとしたら、
単独実行も出来なかったのでは？

その人は403.htmlってファイルを自分で用意してて、
それを表示させてるみたいです。

試しましたよ。「ほげほげ」って、その２行スクリプトの事です。
先程改めて、EUCにしておいてバイナリ転送して試しましたが、駄目みたいです。
public_html直下に置く件、.htaccessの件、直接実行の件、
試しましたがどれも駄目みたいです。
038037102/05/04 06:51ID:???
>>379
EUCは文字コードで、改行コードとはぜーんぜん関係ないんだけど、
それはまぁいいや。

とりあえず、例の2行スクリプトがだめなら、君のせいじゃなくて、
サーバの設定の問題しか考えられないので、管理してる人に
相談しよう。
0381nobodyさん02/05/04 06:57ID:???
AddHandler cgi-script .cgiは？
038236102/05/04 07:24ID:Wv66U69I
>>380
へー、今までそれらはセットになってるんだと思っでもてました。メモメモ。
でも、373の彼もその辺まで考えてたとは思えないなー？

もう５日前からサポートにメールしてるんですが、リアクションが無いんです。
ＧＷをフルに休んでるのか、誰もメールをチェックしてないのか･･･
太陽が眩しい。とりあえずもう寝ます。お付き合いありがとうございました。

>>381
ん？･･･それ、今.htaccessに追加してやってみました。駄目です。
0383nobodyさん02/05/04 07:35ID:???
う〜ん、つ〜かさ
結局今まで出ているエラーは

Premature end of script headers

これなんでしょ？だとしたら、cgi は動いているんだよ
で、俺が見て気になった部分なんだけど

#!/usr/local/bin/perl
print "Content-Type: text/html\n\nほげほげ";

↑これを

#!/usr/local/bin/perl
print "Content-Type: text/html\r\n\r\nほげほげ";

↑こうやっても駄目カナ？
以前、一度これではまった覚えあるから…
0384nobodyさん02/05/04 07:38ID:???
どうせperlのパス間違ってるとかScriptAliasが設定してあるとかだろ。
038538302/05/04 07:43ID:???
もし、↑で動くんだったら、conf/mime.types がオカシイという落ちになる
0386nobodyさん02/05/04 07:45ID:???
>>384
(ﾟДﾟ)ﾊｧ?

何言っているの君？

>>361
> エラーログを見ると、「Premature end of script headers」となっています。
> ･･･スクリプトヘッダーの時期尚早の終わり？とな？ん？
> 他の人が作っていたCGIを見てみても、とりあえず一行目の
> 「#!/usr/local/bin/perl」というのは一致しているし･･･

日本語読めますかぁ？
0387nobodyさん02/05/04 07:46ID:???
>>382
フリー鯖ならちょっと試してみたいのでどこなの教えてほしいんだけど、
telnet使えるってことはフリーじゃないか。
0388nobodyさん02/05/04 07:53ID:???
Premature end of script headers
ってスクリプトが実行できていないときにも出るよ。
0389nobodyさん02/05/04 07:55ID:???
>>383 例えば？
0390nobodyさん02/05/04 07:55ID:???
>>383
#!/usr/local/bin/perl
の行が間違ってても、Premature end of script headers になるよん。

なので、改行がDOS改行(CR+LF)になってると、
「/usr/local/bin/perl^M」ってファイルを実行しようとして、上記のエラーになる。

ただしその場合、コマンドラインから実行しようとすると、コマンドが
見つからないっていうエラーになるはずなので、今回はあてはまらないんだよね。
0391nobodyさん02/05/04 08:05ID:???
>>389
鬱。間違えた

>>388 が正しい。ｺﾞﾒｿ

>>398
> ただしその場合、コマンドラインから実行しようとすると、コマンドが
> 見つからないっていうエラーになるはずなので、今回はあてはまらないんだよね。

だから、cgi は動いていると判断するのが妥当だろ。なんで、.htaccess に
話をもって行くのが疑問…
0392nobodyさん02/05/04 08:06ID:???
設定がうまくいってなくても
Premature end of script headers でるよん。
0393nobodyさん02/05/04 08:13ID:???
Premature end of script headers でるでる言われても例示してくれないと説得力無いな。。。
0394nobodyさん02/05/04 08:26ID:???
Premature end of script headers は suExec失敗したり、
いろいろなケースが考えられるんじゃないかな？
質問者の利用している環境がよくわからないので、何とも言えませんが。
Perlスクリプトとしては実行できているのに、CGIでは動作していない
ようなので、あらゆる可能性を考えてみるのも悪くないと思うよ。
まぁ、こういう時は、単純なケアレスミスだったりするかもしれないけど。
0395nobodyさん02/05/04 13:02ID:KUHaKz9T
#! c:/perl/bin/perl

open(FILE,"./log.txt");
@data=<FILE>;
close(FILE);

$num=1;
$i=0;

print "Content-type: text/plain\n\n";
while(($data[$i] ne '') or $num<8){
($name,$message)=split(/\t/,$data[$i]);
print "名前$num:$name\n";
print "メッセージ$num:$massage\n";
$i++;
$num++;
}

logファイルを読み込んでそれをただブラウザに表示させるプログラムです。
logファイルから読み込んだデータが8行以上の場合は7行まで表示させて、7行に満たない場合は
そこで表示を終了させたいのですが､データが7行未満しかないときでもwhile文を抜け出してくれません。
配列にデータが入ってない場合はどのように条件にしたら良いのでしょう。
0396nobodyさん02/05/04 13:25ID:???
>>395
or ぢゃだめじゃん・・・
039739502/05/04 13:36ID:???
>>396
どうもです。andで成功しました。
恥ずかしいミスだぁ・・・

0398nobodyさん02/05/04 14:54ID:???
KENTさんの掲示板でトリップを使おうとして
17氏のbbs.cgiからトリップの部分だけコピペしましたが動作しませんでした･･･。
どうすればトリップが使えるようになりますか？
0399nobodyさん02/05/04 15:06ID:???
>398
名前欄に「#〜〜」と入れる。

というネタレスはさておき。
$name = $in{'name'};
$name =~ s/◆/◇/g;
if($name =~ s/#(.+)$//g){
$key = $1;
$salt = substr(substr($key, 1, 2) . "H.", 0, 2);
$salt =~ tr/:;<=>?\@[\\]^_`/ABCDEFGabcdef/;
$salt =~ s/[^\.\/0-9A-Za-z]/\./g;
$trip = substr(crypt($key, $salt), -8);
$name .= "◆$trip";
}

漏れはこうやって使ってる。
0400さらなる謎02/05/04 15:50ID:qVSStWkL
>>358なんだけど・・・

>>360さま

下のようなテストのスクリプトを書いて試してみたんだけど
#(ok)の方では正しい答えがえられるのに
コメントアウトしてある#(ng)では11行目以下のデータも
@LOGに読み込んでしまうのですます、はい。
なんでだろ？同じ筈なのに・・・・謎。

#!/usr/local/bin/perl
#==========================================
open(IN,"test.dat");

foreach(1..5) { <IN>; }
foreach(1..5) { push(@LOG,"".<IN>); } #(ok)
#foreach(1..5) { push(@LOG,<IN>); } #(ng)
close(IN);

#==========================================
print "Content-type: text/html\n\n";
print "<HTML>\n";

foreach $data(@LOG){
print "$data<BR>\n";
}

print "</HTML>\n";

exit;

サーバーはfreeBSDのアパッチ。
0401nobodyさん02/05/04 16:24ID:638lh9Jm
ユーザ管理用のプログラムを作っています。
そのデータ管理ファイル内にパスワードを
平文のままで保存しておくとセキュリティー上問題が
在ると思います。
しかし、ユーザIDとメールアドレスをユーザが入力すると
その２つと一致したデータのパスワードを
相手にメールで通知したいと思います。

そこで、そのようなプログラムはどのように組めばいいのでしょうか？
暗号・復号可能なパスワードのロジックなど存在するのでしょうか？
アドバイスをお願いします。
0402nobodyさん02/05/04 16:29ID:???
ごめん。そろそろ>>283教えてください。
0403ん〜02/05/04 16:30ID:qVSStWkL
>>401
ん〜、crypt。。。じゃダメなの？
0404nobodyさん02/05/04 16:33ID:???
>283=>402
あまりに基本過ぎてネタとしか思えないんだが。
第一引数の配列の末尾に第二引数を要素として加える。
第二引数はダブルクォーテーションとして囲まれてるから文字列として加えられる。

頼むから初歩の初歩的なことくらい自分で勉強してくれ。
0405nobodyさん02/05/04 16:39ID:638lh9Jm
>>403
cryptだと、ユーザが入れたパスワードが
在っているかどうかのチェックはできると思うのですが、
パスワードを忘れたユーザに対して登録しているメールアドレスに
通知するとき、もとのパスワードはわからないですよね？

かといって、平文で保存しておくと、セキュリティー上やばいでしょうから。
皆さんのお知恵をお借りしたいのです。
0406nobodyさん02/05/04 16:56ID:???
>>405
xorでも取れば？
8文字なら64bit通りの可能性がある暗号化となる。
0407nobodyさん02/05/04 17:00ID:???
>>404ありがとう。${name}　${value}こいつらがわからんかったんです。
$_みたいなものですか？
while (($name, $value) = each %cookie) {
$name =~ s/([$encode])/'%'.unpack("H2", $1)/eg;
$value =~ s/([$encode])/'%'.unpack("H2", $1)/eg;
$name =~ s/\s/\+/g;
$value =~ s/\s/\+/g;
push(@sqcookie, "${name}_${value}");
}
0408nobodyさん02/05/04 17:05ID:???
>407
$sqcookie[@sqcookie] = "${name}_${value}";

こういう書き方をすればわかるかな？
強引なやり方だが意味は同じ。

${name}は$nameと同じ。
何でそういう事をしているかというと、$name_$valueだと、
「$name_」と「$value」を足す事になって、「$name」と「_」と「$value」を足す
という意味にはならないから。
変数にどの文字が使えるか考えればわかる事。

${name}という表記の仕方は覚えておくといいよ。
変数名に変数を使いたい時とかに役立つ。
質問の意図を一部誤解していたみたいですまない。
0409nobodyさん02/05/04 17:34ID:???
>405
複合化できたら平文で保存するのとあまりセキュリティ上の危険さは変わらないと思うけど。
(自分で複雑なのを組むとか言うなら別だけど。)
それなら、確認のメール入れてそこからアクセスして変更ってのが一番楽かと。
041036002/05/04 17:39ID:???
>>400
ｽﾏｿ。そうなるね。
#(ok)のようにしてちょ。
もしくは、明示的に、
push(@data,scalar(<IN>));
と。
0411nobodyさん02/05/04 17:40ID:???
>>405
メールアドレスをキーとして、暗号化しよう。
そしたら、メールアドレスが分かる場合だけ元に戻せる。
0412nobodyさん02/05/04 17:47ID:???
クッキーの読み込みで、
a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*
こんな感じで保存されているクッキーがあって、
$COOKIE{a}と書くと
aaaaのみ表示されて、
aaaa
aaa
aa
と表示されません。
どうすればいいのでしょうか？
0413nobodyさん02/05/04 17:52ID:???
>>412
↓これ、どういう意味？
a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*
041441202/05/04 17:55ID:???
>>413
クッキーにそうやって保存されています。
041541302/05/04 17:58ID:???
>>414
改行されてるのは、９個の別々のクッキーが得られるってこと？
それとも、これ繋がってるの？
041641202/05/04 18:10ID:???
一つのファイルの中に
a1
a:aaaa
*
a2
a:aaa
*
a3
a:aa
*
このように書かれています。
*で区切られています。
a1
a:aaaa
*
これで一つです。

041741502/05/04 18:13ID:???
>>416
ファイル？？クッキーじゃないの？
まぁいいや。で、

a1
a:aaaa

の a1 ってなに？コメント？
a:aaaa の a と aaaa って何？ a が キーで、aaaa が値？
041841202/05/04 18:20ID:???
>>417
そうです。a が キーで、aaaa が値です。
041941502/05/04 18:31ID:???
>>418
こんなんでいんかな・・・

open(IN,"cookie.txt") || die;
while(<IN>) {
    chop($_ = <IN>);
    $COOKIE{$1} .= ($COOKIE{$1} ? "\n" : undef) . $2 if /(.+?):(.+)/;
    <IN>;
}
close(IN);
042041202/05/04 18:40ID:???
>>415
すみません。ファイルでは無くてクッキーでした。
説明が足りませんでした。
0421nobodyさん02/05/04 18:52ID:???
>>420
つーと、>>416 は、なんかの変数に入ってるの？
改行されてるのは何故？
つーか、>>416の文字列は、どっからコピペしたの？なんかの出力？
042241202/05/04 18:56ID:???
>>421
失礼ですがクッキーの事はご存知なんでしょうか？
042342102/05/04 19:01ID:???
>>422
うん。掲示板作る時に使ったよ。
で、オレが知ってるcookieは、$ENV{'HTTP_COOKIE'};に渡されるんだけど、
>>422のクッキーっていったいなんなの？
042441202/05/04 19:12ID:???
>>423
すみません。ウタガテマシター。
($dummy,$biscuit)=split(/=/,$ENV{'HTTP_COOKIE'});
@cookie=split(/,/,$biscuit);
foreach (@cookie){
($cookname,$cookvalue)=split(/:/,$_);
$cookname=~s/ //;
$COOKIE{$cookname}=$cookvalue;
}
取得の方法は↑です。
僕が利用したいクッキーはチェックを入れた項目のみをクッキーに保存しています。
バナナにチェックを入れるとバナナ:はい
となります。
で次にジュースにチェックを入れるとすると
バナナ:はい
ジュース:はい
とならずに
そのままクッキーに上書きされて
ジュースのみはいとなってしまいます。
これを
バナナ:はい
ジュース:はいとバナナの下に追加で書き込めるようにしたいです。
先程のやり方もありますが、メンドクサソウデスノデこの方法解りますか？
0425nobodyさん02/05/04 19:23ID:???
>>424
うっかりソースを晒したからCGIスレの黄金厨118だって事がバレちまったな(w

で、この問題については他のスレできちんとした答えをもらっているだろ？
キーが全てaだったらそりゃ上書きされる。キーを変えれ。ハッシュを学べ。
042641202/05/04 19:25ID:???
すみません。簡単に説明すると掲示板でメールをクッキーに保存して
読み込むとhoge@***となります。
そのhoge@***を消してまた情報を送信するとクッキーには
2度目に記入したメールアドレスがクッキーのメールの部分に上書きで保存されるとします。
そこを、
メール:hoge@***
メール:2度目に入力したもの
このようにクッキーに保存して、
1度目に記入したメール
hoge@***読み込んで
2度目に記入したメール
2度目に入力したもの
と読み込みたいです。

042741202/05/04 19:28ID:???
CGIスレに書き込んだのは一度きりで、
あれは偽者です。
信じるか信じないかはあなたの自由ですけど、、、。
0428nobodyさん02/05/04 19:36ID:???
>426
$cookie{'mail1'}にまず最初のクッキーを保存。
２度目では$cookie{'mail1'}を$cookie{'mail2}にコピーしてから、$cookie{'mail1'}を上書き。
同じキーでは無理だから、別のキーを考える。
0429nobodyさん02/05/04 19:39ID:???
>>427
#!/usr/local/bin/perl

print
"Set-Cookie: a=aaaa\r\n",
"Set-Cookie: a=aa\r\n",
"Set-Cookie: a=aaa\r\n",
"Set-Cookie: a=a\r\n",
"Content-type: text/html\r\n\r\n",
$ENV{'HTTP_COOKIE'};

適当な名前（cookie.cgiとか）を付けて保存して実行してみれ。
やろうとしている事が無謀だとわかるだろ。
あと、Cookie読む時はエスケープも解除してやれ。
043042302/05/04 20:24ID:???
>>424
print $ENV{'HTTP_COOKIE'};
すると、
dmy=バナナ:はい,ジュース:はい,メール:hoge@***,メール:foo@+++
って入ってるなら、
$COOKIE{$cookname} .= ($COOKIE{$cookname} ? "\n" : undef) . $cookvalue;
そうじゃないなら、
Set-Cookie: dmy=バナナ:はい,ジュース:はい,メール:hoge@***,メール:foo@+++
する。EXPIRESも付けたきゃ勝手に付けてくれ。
0431nobodyさん02/05/04 20:37ID:???
>>430
同じキーを持つｸｷｰはそもそも保存されないんだってさ
043243002/05/04 21:06ID:???
>>431
うん。>>430の例もキーはdmy一つだけ。
0433nobodyさん02/05/04 21:21ID:???
>>427
　　＿_＿＿＿＿＿＿＿＿＿＿＿
　（つかえねぇ奴らだな。氏ね！！）
　　￣￣￣Ｖ￣￣￣￣￣￣￣￣￣
　　　|￣￣￣￣￣|　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　|　∧＿∧　　|　　　　∧＿∧　　　／
　　　| （　´∀｀） 　|　 　　（´∀｀　）　＜オマエモ・・・オレモナー？？
　　　| （ ???:bI ）　.|　　　 （ Id:??? ）　　 ＼
　　　| ｜　|　　| 　.|　 　　｜ ｜　|　 　　　 ￣￣￣￣￣￣￣￣￣￣￣
　　　| （_＿）＿）　.| 　 　 （＿（＿_）
　　　.￣￣￣￣￣

※偽者防止のため、IDは必ず出しましょう。


ＰＣ初心者でもやってるぞ。
0434nobodyさん02/05/04 21:22ID:???
>>432
ｽﾏｿ。逝って来る。
0435nobodyさん02/05/04 21:24ID:GvcNIgW1
サブルーチンについての質問です。
sub function
{
######省略
}

を呼ぶとき
function(); と &function;
の２つのやり方あるみたいですけど、どっち使ってもいいの？
0436nobodyさん02/05/04 21:26ID:???
>435
後者の方がいい。
汎用性のあるものを組みたいなら特に。
043743502/05/04 21:29ID:GvcNIgW1
>>436
ありがとう。
自分が持ってる参考書にfunction()しか載ってなかったから使っちゃいけないのかと思ったよ。
0438　02/05/04 21:35ID:dGBL2sA8
画像スケールを縮小してサムネイルをつくってアルバムにするＣＧＩを作りたいんですが
どうしたらよいのでしょうか？
0439412 ◆ZJG8NJmQ 02/05/04 21:41ID:???
#!/usr/local/bin/perl

print "content-type:text/html\n\n";
ここからまずフォームを作ります。

それからログファイルを開いて読み込みます。
で表示します。

ログ書き込み処理
\nや<>とかを変換します。
そうしたらログを開いて書き込みます。
そして閉じます。
0440nobodyさん02/05/04 21:41ID:???
>435
Perl5以降ならfunction()でいいと思うけど。
普通のプログラミング言語ではfunction()と書くので、&を付けると嫌われる。
ただでさえスカラーの前に$とか付いて笑われているのに。
一生Perlしか使いそうにないなら&functionでもいいけど。
ただし、&functionとfunction()では若干動作が異なるとだけ覚えておいてください。
0441nobodyさん02/05/04 21:56ID:???
つか&functionだとプロトタイプが効かねぇのが嫌です。

尤も、「貧弱なプロトタイプなんぞいらん」とか
「関数なにそれ？メソッドのこと？」って人には関係ない事ですが。
0442nobodyさん02/05/04 22:24ID:???
index.htmlのないディレクトリにアクセスするとファイルリストが表示されるものがあります。
しかし私のサイトではそれが許可されていません。
perlプログラムであるディレクトリ以下を全部回って
それぞれにindex.htmlファイルを作っていってくれるプログラムを知りませんか。
0443nobodyさん02/05/04 22:26ID:3kOee6Z3
あげるの忘れた。
0444nobodyさん02/05/04 22:34ID:???
＞知りませんか。
作ればいいじゃん。
0445nobodyさん02/05/04 22:39ID:3kOee6Z3
>>444
あっさり言いますけど。間違えてサーバー内で無限ループって恐怖があって。
0446sage02/05/04 22:40ID:???
再帰の深さに制限付ければOK。
0447nobodyさん02/05/04 22:45ID:???
下げるの忘れた。深さは２つまででいいですが。
0448さゆ ◆ugYa5.J6 02/05/05 00:01ID:???
>>442
スレ違いな回答でわるいんだけど、
.htaccess に
Options +Indexes
って一行書いておくと、うまくいくかも。
（サーバの設定次第だけど）
0449nobodyさん02/05/05 00:49ID:???
うちのサーバーはそれもDirectoryIndexもできないのです。
0450&付きであろうと無かろうと02/05/05 01:27ID:???
自分にとって、可読性の高い方で書けばいいじゃん。
0451nobodyさん02/05/05 01:28ID:???
やたらサブルーチンで＆使うの嫌う人居るけど処理的に
どういう差があるんですかね？
rootin();と&rootin;どちらでもいい状況なら俺も後者使うんだが。
0452さゆ ◆ugYa5.J6 02/05/05 01:35ID:???
>>449
むぅ。
したら、仕方ないので、perldoc File::Find で GO!
0453thanks.html02/05/05 01:39ID:nX5kzORe
>>410
ｱﾘｶﾞｿ。
うむ、なんでかわ良くわからないんだけど(・・漏れってつくづく
基本がなってないﾔﾂだ・・・)
#(ok)のほうじゃないとﾀﾞﾒなんですね。覚えておきます。
0454nobodyさん02/05/05 01:50ID:nX5kzORe
１つのCGIを複数の要素で使う場合。index.cgiには以下のコードのみ

#!/usr/local/bin/perl
$task = $in{"task"};
require "$task.pl";

として、例えば掲示板とアクセスカウンターを以下のように使い分ける

[掲示板]　bbs.pl
http://hage.com/cgi-bin/index.cgi?task=bbs

[アクセスカウンター]　access.pl
http://hage.com/cgi-bin/index.cgi?task=access

とした場合。
なんか不都合な事ってあるだろうか？
質問が抽象的でｱﾚですが、index.cgiにかかる負荷というのは
普通にbbs.cgi、access.cgiとして実現した時となんら変わらない
のだろうか？
0455nobodyさん02/05/05 01:59ID:???
>>454
うん。requireしてもしなくても変わんない。
0456nobodyさん02/05/05 02:16ID:???
>>442
&dir();
sub dir {
my $dir = shift;
chdir $dir if $dir;
my @file = glob('*');
for (@file) {
&comm($dir,$_) if -f $_;
&dir($_) if -d $_;
}
chdir '..';
}

sub comm {
my ($dir,$file) = @_;
print "$dir/$file\n";
}
0457nobodyさん02/05/05 02:39ID:???
>>456
ケチ付けるようで悪いが、車輪の再発明はやめて、標準ライブラリの
File::Findを使えば？
perldoc File::Find 又は、ラクダ本のP506又は、
http://www.bekknet.ad.jp/~bero/docj/module_/10/File_Find.html
0458nobodyさん02/05/05 03:07ID:???
モジュールの『使い方』より具体的なコードの方が見てて楽しいけどね。
0459nobodyさん02/05/05 03:30ID:???
（ﾟдﾟ）ハァ？ >>456の sub dir{...} の部分をFile::Findに
置き換えるだけ、と言っていいじゃん。最近は、ドキュメント
も読まず、自分で知恵も出さず、安易にコードをパクろうと
する厨が多すぎ。
0460nobodyさん02/05/05 03:47ID:???
＆付ける奴ってKENT WEBとかで学習した厨房だろ。アホに限ってよく＆付けてるな。
0461nobodyさん02/05/05 04:30ID:???
＆を付ける奴は居ないだろ。
■ このスレッドは過去ログ倉庫に格納されています