くだすれPerl（超初心者用）

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 05/08 16:18 / Filesize : 307 KB / Number-of Response : 980
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

くだすれPerl（超初心者用）

1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]: このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
954 名前：nobodyさん mailto:sage [2008/02/27(水) 02:31:06 ID:???]: >>952
use CGI;
my $q = new CGI;
$q->uploadInfo($filename)->{'Content-Type'};

>>953
@LOG[@LOG-1]
955 名前：954 mailto:sage [2008/02/27(水) 02:37:08 ID:???]: >>954
use CGI;
my $q = new CGI;
my $filename = $q->param('uploaded_file');
$q->uploadInfo($filename)->{'Content-Type'};

1行書き忘れた。
956 名前：952,953 mailto:sage [2008/02/27(水) 03:43:32 ID:???]: 馬鹿は無理に回答しなくていいよ
957 名前：nobodyさん mailto:sage [2008/02/27(水) 07:27:20 ID:???]: 最新って・・・
一番最後の要素ってことなら
$LOG[$#LOG]
958 名前：nobodyさん mailto:sage [2008/02/27(水) 11:51:23 ID:???]: $LOG[-1]でよくね？
959 名前：nobodyさん mailto:sage [2008/02/27(水) 18:16:19 ID:???]: >>956
こういう質問するでも無く答えるでも無いゴミは何がしたいんだろうね？
960 名前：nobodyさん mailto:sage [2008/02/28(木) 04:40:38 ID:???]: 君みたいな馬鹿を釣って遊ぶ
961 名前：952 [2008/02/28(木) 08:35:02 ID:5gTQ/iME]: >>954-955
レスありがとう

それはロダとかでファイルをアップロードした時の判別方法だよね？
書き忘れたんだけど、LWP::Simpleで外部画像を取得した時に判別する方法を教えてほしいです。

お願いします。
962 名前：nobodyさん mailto:sage [2008/02/28(木) 11:37:27 ID:???]: >>961
LWP::Simple はシンプル故に、レスポンスヘッダと
コンテントボディを同時には取得できない。
search.cpan.org/dist/libwww-perl/lib/LWP/Simple.pm

普通に LWP でリクエストを送って得たレスポンスからなら
同時に取得できる。
search.cpan.org/dist/libwww-perl/lwpcook.pod
search.cpan.org/dist/libwww-per/lib/HTTP/Headers.pm

PHP の Fileinfo() 相当のモジュールはこれ。
search.cpan.org/dist/File-MMagic-1.27/
963 名前：nobodyさん [2008/02/28(木) 17:15:11 ID: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さん [2008/02/28(木) 17:16:30 ID:TKGGhpyN]: すいません
$role = int(rand 2);
です
965 名前：nobodyさん mailto:sage [2008/02/28(木) 17:52:02 ID:???]: >>963-964
print<<"EOM";
Content-type:text/html

$html
EOM
966 名前：nobodyさん [2008/02/28(木) 17:58:13 ID:TKGGhpyN]: >>965
改行が多いと認識されたため、空行は省いて書き込みしました
ですので
print<<"EOM";
Content-type:text/html

$html
EOM
で書いてもerror500となります
967 名前：nobodyさん mailto:@testと$role sage [2008/02/28(木) 18:11:34 ID:???]: >>966
#!/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
968 名前：nobodyさん mailto:sage [2008/02/28(木) 18:13:24 ID:???]: >>967 いい人だ
969 名前：nobodyさん mailto:sage [2008/02/28(木) 18:18:37 ID:???]: 「くだすれ」の由来を教えてください
970 名前：nobodyさん mailto:sage [2008/02/28(木) 18:21:36 ID:???]: CGI::newってつい最近知り合いも書いてたんだけど
どっかのサイトか本でそんな紹介されてるのかな？

CGI.pmは問題ないんだけど、new CGI;かCGI->new;て書く癖つけとかないと
他のモジュールでクラスが渡らなくて泣きそうでない？
971 名前：nobodyさん mailto:sage [2008/02/28(木) 18:31:10 ID:???]: うむ。
972 名前：nobodyさん [2008/02/28(木) 18:56:16 ID: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さん mailto:sage [2008/03/02(日) 03:52:46 ID:???]: >>992
ためしに$LOG[1]を表示してみ。
974 名前：nobodyさん [2008/03/02(日) 07:56:37 ID:UDBaDi65]: >>994
＞知識ってのはな、社会人に取って金と同じく貴重な財産なんだよ。
それを超初心者に教えてくれるのがこのスレッドの意義ですよね？
＞社会で必要とされる知識ってのはな、本になんか載ってない事ばかりなんだよ。全部人から人へ、直接のコミュニケーションを介して伝わって来たモンなんだ。
掲示板というコミュニケーションを介して聞いてますし、この内容は僕の持ってる2つのPerlに関する書籍にはありませんでした。
＞猿だったら今頃とっくに死んでんだよお前。
猿じゃないです。人間です。人間と猿のDNAはたかが2％の違いといわれてますが、それは大きな差です。猿＝人間という発想はおかしいかと。
＞いい加減いつまで学生気分じゃ。
当て水量でモノを言わないでください。あなたの投稿からは僕があたかも社会人であるかのように見えますけど、僕まだ中学3年生です。
まあ態度という点では気をつけなきゃならないのかなとは思いましたが、あなたには>>1に書かれているような優しさや、このスレッドの意義を良く理解してもらいたいものです。

>>995
ありがとうございます！できました！
ただDATA[1]だけでは、すべてのフォームの内容が取り出されて、うまく$FORM{'comment'}の部分だけを抽出できません。。
975 名前：942=995 mailto:sage [2008/03/02(日) 16:20:53 ID:???]: >>996
なあ、ガキならガキらしく、オッサンには敬意を払えよ。
あと、試行錯誤の形跡が見れないと誰も相手してくれないぞ。
悩めるだけ悩め。そしてどう悩んだか見せろ。話はそれからだ。

ヒントは、元ソースの94行目 for から99行目 }まで。
ここで、$dateには日付、$textには内容が入ってるって事。
そっから先は自分で少し考えてみろ。

分からなくなったら、自分でどう考えてどこが分からないかを書けよ。
自分じゃ何も試さないようじゃ、漏れも付き合いきれない。

いい加減甘やかしすぎだと思えてきた。
976 名前：nobodyさん mailto:sage [2008/03/02(日) 16:39:55 ID:???]: >>997
お前、甘すぎ。バカガキは放置が基本。
977 名前：nobodyさん [2008/03/02(日) 17:44:58 ID:eMvpxgfI]: >>999
お前糞すぎﾜﾛﾀｗｗｗ
>>998
神様すぎﾜﾛﾀｗｗｗ
978 名前：nobodyさん mailto:sage [2008/03/02(日) 17:48:04 ID:???]: 人類に平和が訪れますように
979 名前：１００１ [Over 1000 Thread]: このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef