08/02/27 18:16:19
>>956
こういう質問するでも無く答えるでも無いゴミは何がしたいんだろうね？
960:nobodyさん
08/02/28 04:40:38
君みたいな馬鹿を釣って遊ぶ
961:952
08/02/28 08:35:02 5gTQ/iME
>>954-955
レスありがとう
それはロダとかでファイルをアップロードした時の判別方法だよね？
書き忘れたんだけど、LWP::Simpleで外部画像を取得した時に判別する方法を教えてほしいです。
お願いします。
962:nobodyさん
08/02/28 11:37:27
>>961
LWP::Simple はシンプル故に、レスポンスヘッダと
コンテントボディを同時には取得できない。
URLﾘﾝｸ(search.cpan.org)
普通に LWP でリクエストを送って得たレスポンスからなら
同時に取得できる。
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(search.cpan.org)
PHP の Fileinfo() 相当のモジュールはこれ。
URLﾘﾝｸ(search.cpan.org)
963:nobodyさん
08/02/28 17:15:11 TKGGhpyN
formが
<FORM ACTION="test.cgi" METHOD="POST"><INPUT TYPE="TEXT" NAME="f" cols="10"><INPUT TYPE="TEXT" NAME="id" cols="10"><INPUT TYPE="SUBMIT" VALUE="GO">
でtest.cgiが
#!/usr/local/bin/perl
use strict;
use CGI;
require"jcode.pl";
my $cgi=CGI::new();
my $f=$cgi->param('f');
my $id=$cgi->param('id');
@test = ($f,$id);
$role = int(rand 6);
my $html=<<"EOM";
<HTML>
<HEAD>
<TITLE>test</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift-JIS">
</HEAD>
<BODY>
$test[$role]
EOM
print<<"EOM";
Content-type:text/html
$html
EOM
exit;
1;
という様に、formで受けた$fと$idをランダムで表示させたいのですがerror500
となってしまいます。ﾊﾟｰﾐｯｼｮﾝは合ってると思います。なぜなのでしょうか？
964:nobodyさん
08/02/28 17:16:30 TKGGhpyN
すいません
$role = int(rand 2);
です
965:nobodyさん
08/02/28 17:52:02
>>963-964
print<<"EOM";
Content-type:text/html
$html
EOM
966:nobodyさん
08/02/28 17:58:13 TKGGhpyN
>>965
改行が多いと認識されたため、空行は省いて書き込みしました
ですので
print<<"EOM";
Content-type:text/html
$html
EOM
で書いてもerror500となります
967:nobodyさん
08/02/28 18:11:34
>>966
#!/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
968:nobodyさん
08/02/28 18:13:24
>>967 いい人だ
969:nobodyさん
08/02/28 18:18:37
「くだすれ」の由来を教えてください
970:nobodyさん
08/02/28 18:21:36
CGI::newってつい最近知り合いも書いてたんだけど
どっかのサイトか本でそんな紹介されてるのかな？
CGI.pmは問題ないんだけど、new CGI;かCGI->new;て書く癖つけとかないと
他のモジュールでクラスが渡らなくて泣きそうでない？
971:nobodyさん
08/02/28 18:31:10
うむ。
972:nobodyさん
08/02/28 18:56:16 TKGGhpyN
>>967でやって、KENTの文法チェッカー使ったら
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$cgi" requires explicit package name at new.cgi line 6.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$cgi" requires explicit package name at new.cgi line 7.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "@test" requires explicit package name at new.cgi line 8.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$role" requires explicit package name at new.cgi line 9.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "@test" requires explicit package name at new.cgi line 10.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$role" requires explicit package name at new.cgi line 10.
[Thu Feb 28 18:54:48 2008] new ｩらは。
猿だって仲間から餌を分けてもらう時は申し訳無さそうな顔するんだよ。ヘラヘラ笑いながら近づいてったら殴り殺されんぞ。
猿だったら今頃とっくに死んでんだよお前。そんな態度で今まで。研修で散々言われたよな。謝る時は申し訳無さそうな顔をしろって。
そういう学校じゃ受けられない教育を受けておきながら、社会人を経験しなきゃ得られない知識を貰っておきながら、
何にも生かせてないんだよ今のお前は。学生のサークルごっこじゃないんだから。もっと四六時中危機感を持って生きてなきゃ駄目だよ。いい加減いつまで学生気分じゃ。
973:nobodyさん
08/03/02 03:52:46
>>992
ためしに$LOG[1]を表示してみ。
974:nobodyさん
08/03/02 07:56:37 UDBaDi65
>>994
＞知識ってのはな、社会人に取って金と同じく貴重な財産なんだよ。
それを超初心者に教えてくれるのがこのスレッドの意義ですよね？
＞社会で必要とされる知識ってのはな、本になんか載ってない事ばかりなんだよ。全部人から人へ、直接のコミュニケーションを介して伝わって来たモンなんだ。
掲示板というコミュニケーションを介して聞いてますし、この内容は僕の持ってる2つのPerlに関する書籍にはありませんでした。
＞猿だったら今頃とっくに死んでんだよお前。
猿じゃないです。人間です。人間と猿のDNAはたかが2％の違いといわれてますが、それは大きな差です。猿＝人間という発想はおかしいかと。
＞いい加減いつまで学生気分じゃ。
当て水量でモノを言わないでください。あなたの投稿からは僕があたかも社会人であるかのように見えますけど、僕まだ中学3年生です。
まあ態度という点では気をつけなきゃならないのかなとは思いましたが、あなたには>>1に書かれているような優しさや、このスレッドの意義を良く理解してもらいたいものです。
>>995
ありがとうございます！できました！
ただDATA[1]だけでは、すべてのフォームの内容が取り出されて、うまく$FORM{'comment'}の部分だけを抽出できません。。
975:942=995
08/03/02 16:20:53
>>996
なあ、ガキならガキらしく、オッサンには敬意を払えよ。
あと、試行錯誤の形跡が見れないと誰も相手してくれないぞ。
悩めるだけ悩め。そしてどう悩んだか見せろ。話はそれからだ。
ヒントは、元ソースの94行目 for から99行目 }まで。
ここで、$dateには日付、$textには内容が入ってるって事。
そっから先は自分で少し考えてみろ。
分からなくなったら、自分でどう考えてどこが分からないかを書けよ。
自分じゃ何も試さないようじゃ、漏れも付き合いきれない。
いい加減甘やかしすぎだと思えてきた。
976:nobodyさん
08/03/02 16:39:55
>>997
お前、甘すぎ。バカガキは放置が基本。
977:nobodyさん
08/03/02 17:44:58 eMvpxgfI
>>999
お前糞すぎﾜﾛﾀｗｗｗ
>>998
神様すぎﾜﾛﾀｗｗｗ
978:nobodyさん
08/03/02 17:48:04
人類に平和が訪れますように
979:１００１
Over 1000 Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。