トップページ⇒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を見よう。
　
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:???
＆を付ける奴は居ないだろ。
0462nobodyさん02/05/05 04:49ID:???
>>449
$dir = $ENV{'PATH_INFO'};
$uri = $ENV{'REQUEST_URI'};
$base = $uri;
$base =~ s#/([^/]+?)$dir$#/#;
$cgi = $uri;
$cgi =~ s#$dir$##;
$dir =~ s#^/##;
chdir $dir;

print "Content-Type: text/html\n\n<H1>Index of $base$dir</H1><BR>\n<table>";
while(<*>) {
    if ( -d $_ ) {
        $ref = "$cgi/$dir$_/";
        $fname = "$_/";
        $size = '[DIR]';
    } else {
        $ref = "$base$dir$_";
        $fname = "$_";
        $size = (stat $_)[7];
    }
    print "<tr><td><a href='$ref'>$fname</a></td><td align='right'>$size</td></tr>\n";
}
print "</table>\n";
0463nobodyさん02/05/05 04:58ID:???
最近やっとPerlの便利さがわかってきたよ。
0464nobodyさん02/05/05 08:51ID:???
foo()と&fooはまるで意味が違うのにさえ気をつければどっちでもいいだろ。
0465nobodyさん02/05/05 16:34ID:???

カウンタを作っていてあと一歩のところまで来ているのですがうまくいきません。

症状

１０・１１・１２・１３・１４・・とカウントアップしていき
１８まではいいのですが次にリロードすると１９のはずがなぜか２９と表示されてしまいます。

そのあとはまた２０に戻るのですが、再び２１・２２・２３・・とカウントアップし
２８まではいいのですが２９のはずが３９と表示されてしまいます。

ソース

http://ruffnex.oc.to/ipusiron/upload/417.txt

どなたか原因わかりますでしょうか？
0466nobodyさん02/05/05 16:35ID:???

表示させるときは

<img src="./counter.cgi?4">
<img src="./counter.cgi?3">
<img src="./counter.cgi?2">
<img src="./counter.cgi?1">

という感じにして呼び出しています
0467nobodyさん02/05/05 16:44ID:???
>>465
19 の画像が 28 というオチじゃないよね？
0468nobodyさん02/05/05 16:44ID:???
>>465
一文字切り出し時の処理が変なんじゃないの？
0469nobodyさん02/05/05 16:44ID:???
>>467
アフォか…（ｗ

○29
×28
0470nobodyさん02/05/05 16:49ID:???
>>460
＞KENT WEBとかで学習した厨房だろ。アホに限ってよく＆付けてるな。

真性のPCｦﾀとかは知らんけど普通の人が別に趣味で覚える分には
最初は大体そんなもんです。実際＆〜；でも〜（）；でもどっちでもいい。
0471nobodyさん02/05/05 16:56ID:???
>>467

いや、画像は０〜９までで一桁ずつ切り出して処理してます
0472nobodyさん02/05/05 17:17ID:???
>>465
俺の環境ではその様な現象起きなかったよ…
つか、画像一体型じゃ駄目なの？その方が鯖にかける負担も少なく済むし
0473nobodyさん02/05/05 17:39ID:???
>>472

画像一体型というとgif連結ですか？
まだ始めたばかりなのでまずは簡単なのからやってるので。。

当方win98se + アパッチ　+ アクティブperlです
0474nobodyさん02/05/05 17:58ID:???
>>473
なら、fly 使ってできるよ。俺はそれ使ってる
0475nobodyさん02/05/05 19:30ID:eXghpSwQ
>465
原因は、画像がブラウザのキャッシュに残ってるからだとおもいます。

0476nobodyさん02/05/05 21:05ID:gfSt2Khc
flockについて

open(IN,"$filepath");
@data=<IN>;
close(IN);
#処理#
open(OUT,">$filepath");
flock(OUT, 2);
print OUT @data;
close(OUT);

この場合flockはOUTの1回だけですけど、INのときもflockしたほうがいいですか？
0477nobodyさん02/05/05 21:08ID:???
>>408
亀レスですが、ありがとうございます。よくわかりました。
0478nobodyさん02/05/05 22:21ID:???
>>476
すべきでしょう。途中で内容書き変わったら困るでしょう。
0479nobodyさん02/05/05 22:31ID:???
>>476
読み込み時は共有ロック、書き込み時は排他ロック
0480nobodyさん02/05/05 22:33ID:???
>>476
むしろ二度開けてるのをなんとかした方がいいんでない？
0481nobodyさん02/05/05 22:52ID:???
>>479
信頼性落ちない？カウンタにそんなもん求めても仕方ないけど。
■ このスレッドは過去ログ倉庫に格納されています