CGIだけど、なんか質問ある？ Part 9
■ このスレッドは過去ログ倉庫に格納されています
0001ななし ◆E6qQ.htN7o
03/01/03 02:56ID:H5ub4PWW※CGIは特定の言語に依存するものではありません。
※Perlのコーディングに関する質問は専用スレがありますのでそちらでお願いします。
↓
【Perl】初心者コーナー Part18
http://pc.2ch.net/test/read.cgi/php/1037797479/l50
過去ログ・関連スレッドは >>2-5 あたりに
0352nobodyさん
03/02/13 15:26ID:???その方向で合ってるよ。
ちなみに SMTP のポート番号は通常 25。
詳しくは RFC 2821 な。
ttp://www.puni.net/~mimori/rfc/menu.html
0354nobodyさん
03/02/13 17:41ID:???0358nobodyさん
03/02/13 21:32ID:???0361nobodyさん
03/02/14 03:37ID:???0362344=346
03/02/15 04:08ID:???さらなる情報ありがとうです。後日調べたいと思います。
>専鯖ならともかく、共有鯖だったらやんないでね。
明記の通り専用サーバですのでガンガンメール送ってみたいと思います。
ってほど会員増えないと思いますけど。
ちなみに戦闘力調べたら、1分で250通前後でした。
しかしながら4種類のメールに対して複数送っているので、
実際はそれ以下か・・・・・(´・ω・`)ｼｮﾎﾞｰﾝ
0364nobodyさん
03/02/15 09:31ID:???0366nobodyさん
03/02/15 13:04ID:WKdky/xD0367nobodyさん
03/02/15 14:20ID:PUb1GMYC書き込みをユーザーが削除できる機能を作っていますが上手く行きません。
sub delete{
local($no,$name,$email,$dai,$comment,$date,$ip,$host,$pw);
if($in{'no'} eq '' || $in{'pwd'} eq ''){&error("パスワードまたは削除Noが記入漏れです");}
open(IN,"$logfile")||&error("ファイルを開けませんでした");
flock(IN,2);
@data = <IN>;
close(IN);
$flag=0;
@new=();
foreach(@data){
($no,$name,$email,$dai,$comment,$date,$ip,$host,$pwd) = split(/<>/);
if($in{'no'} == $no){$flag=1; $PWD=$pwd;}
else{push(@new,$_);}
}
if($flag == 0){&error("該当する記事がありません");}
if($PWD eq ''){&error("その記事にはパスワードが設定されていません");}
$match = ("$in{'pwd'} = $PWD");
if($match ne 'yes'){&error("パスワードが違います");}
open(OUT,">$logfile")||&error("削除に失敗しました");
flock(OUT,2);
print OUT @new;
close(OUT);
}
何処が悪いかご指摘をお願いします…
0368nobodyさん
03/02/15 14:24ID:???正直、読めというのか。そのインデントも減った暮れもないコードを。
どこがうまく行ってないかくらい自分でもわかるだろ。その辺を分析してエッセンスだけを提示してくれよ。
0369nobodyさん
03/02/15 15:47ID:???if($match ne 'yes'){&error("パスワードが違います");}
if ( $in{'pwd'} ne $PWD ) { &error( "パスワードが違います" ); }
0370nobodyさん
03/02/15 21:49ID:???しょうがないよ。
でも「上手くいきません」は勘弁な。どう上手くいかないのかを必ず書くこと。
こういう動作を期待していたが、いざ実行してみるとこんな動作をしてしまった、みたいに
書ければとてもいい。
0372nobodyさん
03/02/15 22:23ID:???0373nobodyさん
03/02/15 22:46ID:bgMyjtswActivePerlをｲﾝｽﾄｰﾙしてHttpdを入れた。Httpdはﾄﾞｷｭﾒﾝﾄﾙｰﾄと実行ﾌﾟﾛｸﾞﾗﾑの位置とかなら設定したけど、他のごちゃごちゃしたところとかはいじってない。
ﾌﾟﾛﾊﾟｲﾀﾞはYahoo!BBを使ってる
heloo World!っていうのを表示する簡単なcgiで、ソースは、
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "<H2>Hello! WORLD</H2>\n";
print "</BODY></HTML>\n";
なんだが。これをﾌﾞﾗｳｻﾞでﾛｰｶﾙﾃｽﾄするとHTTP 500 - 内部サーバー エラー になるんですが(´ー｀)？ 一体原因はどこよ？
0374nobodyさん
03/02/15 22:49ID:/6YfHvht"Content-Type"とか
0375nobodyさん
03/02/15 23:07ID:???0376nobodyさん
03/02/15 23:09ID:???じゃあウェブサーバーの問題ではなさそうだな。
多分>>374のどれか。たとえばActivePerlは標準では\usr\local\binにはインストールされない。
0378373
03/02/15 23:41ID:bgMyjtswperlの位置はC:\Perl\bin\perl.exe から C:\usr\local\bin\perl.exe に直した。
それと同時にHttpdの設定も変更したけど意味無し
>>375
AN HTTPD Daemon Version 1.42
>>377
>>373以外にやることありますかね(´ー｀)？
0379nobodyさん
03/02/15 23:55ID:???拡張子CGIファイルでPerlを実行するように設定しておけば
一行目に関係なく動く（かもしれない。）
そうしていないなら一行目の
#!/usr/local/bin/perl
を#!C:\usr\local\bin\perl
にすればうごく（かもしれない）
0380飛石3連休 ◆8772606082
03/02/16 00:00ID:???スクリプト内部の #!/usr/local/bin/perl
をチェックしない設定がないかい？
CGIファイルの拡張子は？
0381飛石3連休 ◆8772606082
03/02/16 00:02ID:???CGIをチェックする
という設定を使えばエラーがどこで出てるかわかると記憶があるが。
0382nobodyさん
03/02/16 00:10ID:???0383373
03/02/16 00:49ID:51g/G1ig動かん
>>380
設定の位置はなんとなく分かった・・でも動かん。
拡張子は.cgi
.plにしても動かんよ？
>>381
検査結果：
Error 500
CGI エラー - CGIを実行できません : だそうだ
>>382
してあるよ？
自分としては、いろいろやってみてできなかったし、YahooBB関係じゃないかと思うのだが・・
それともやっぱりソースとか設定とかが原因ですか(´ー｀)？
0384nobodyさん
03/02/16 00:54ID:???最後のアルファベットも含めて。
0385nobodyさん
03/02/16 00:56ID:???0386nobodyさん
03/02/16 00:56ID:???ローカルで動かそうとしてんじゃないの？なんでYahooBBが。
AN HTTPD と ActivePerl の組み合わせなら kent のとこでも参考に
ttp://www.kent-web.com/www/index.html
0387nobodyさん
03/02/16 01:00ID:???0388nobodyさん
03/02/16 01:13ID:51g/G1ig1.42g
>>386
知り合いが何かそう言ってたんだよ！知るか。
とりあえず今から386のサイトに飛んできます
0389nobodyさん
03/02/16 01:29ID:51g/G1ig細かいとことかでもいいんで何かあれば言ってください。お願いします
0390nobodyさん
03/02/16 01:35ID:???http://homepage1.nifty.com/monden/cpu/386.html
ちなみに、ActivePerl+httpdを設定無しで
例のhelioWorldを動作させたがきちんと表示されたよ。
両方とも再インストールでどう？
0391nobodyさん
03/02/16 01:47ID:51g/G1ig0392モモコ
03/02/16 03:35ID:???レンタルCGIでお願いします。
どなたかご存知ですか？
0394nobodyさん
03/02/16 10:01ID:0jPHodHRたぶん$size / 1024を使うとは思うんですが書き方がわかりません
0396nobodyさん
03/02/16 10:30ID:0jPHodHR0398373
03/02/16 15:30ID:51g/G1ig0399nobodyさん
03/02/16 15:45ID:???まだ出来ないのか。がんがれよ
AN HTTPD でどうしてもできないなら Apache のほう使うのもいいかもね
設定のしかたが難しい印象があるかもしれんが、解説ページを1つ紹介しとく
ttp://www2j.biglobe.ne.jp/~apollo/server/server.html
0400nobodyさん
03/02/16 15:49ID:PVMDa3kD0401nobodyさん
03/02/16 15:54ID:HkwUW3eX0402373
03/02/16 17:16ID:51g/G1ig0403373
03/02/16 17:44ID:51g/G1igｲﾝｽﾄｰﾙする位置はどこがいい？
標準ではc:\perl\になってるわけだが、これでもいいのか（´ー｀）？
0405nobodyさん
03/02/16 17:54ID:???貴様漏れの紹介したページ読んでないですか？
たしかに>>404の言うとおりどこでもいいんだけど、ローカルでテストしたあとは
サーバーにアップロードするんでしょ？そのときいちいちスクリプトの一行目の
Perlのパスを書き換えないでいいように、サーバーの設定とそろえておくほうがいい。
そのへんのフォローも書いてるから>>399のサイトを読みながらインストールしてみ
0406373
03/02/16 18:08ID:51g/G1ig再ｲﾝｽﾄｰﾙして良かったよ。疲れたけど
>>405
どもどもすみませぬ。399のとこにはお世話になりますた。
非常に感謝しておりますです。はい。
これからたくさんやりたいことがあるので、
いろいろと勉強してがんばりたいです。それじゃ。
0407nobodyさん
03/02/16 19:12ID:y0NHKpEd0410nobodyさん
03/02/18 00:15ID:FF7juywa0411nobodyさん
03/02/19 03:48ID:???httpd.conf の中にありまふ
.cgi で検索してると出てくるよ
AddHandler cgi-script .cgi
て具合に
0412nobodyさん
03/02/19 04:11ID:vr421/dJPGPなんかで暗号化してメールを受信出来るようなCGIとか
ありませんかねぇ。。
SSLからそのまま平文メールだと意味無いんで・・・・・
フリー＆シェアウェア＆市販、どれでもいいんですが、
自鯖で使えるやつを探してます。
0413nobodyさん
03/02/19 04:32ID:oWKZ/weY他のスレと勘違いしてねぇか？
こんなCGI探してますスレッド Ver8
http://pc2.2ch.net/test/read.cgi/php/1041564353/
0414nobodyさん
03/02/19 04:42ID:???↓暗号
SMTP
↓非暗号＝ﾏｽﾞｰ
POP3
ここで聞く
http://www.kikakuya.com/service/eEgg79/option_pgp.html
0417 ◆nBdXIOeCFk
03/02/19 15:55ID:iFOkWU9Wそのファイルを開くと、
「ファイルを開くアプリケーションを選んでください」
になってしまいます、どのアプリケーションで開けば良いのでしょうか？
0421nobodyさん
03/02/19 19:45ID:???formの部分を他のwebページに貼って
そこから投稿しようとしたんですけどできませんでした。
おそらく外部からの投稿を禁止してるんだと思います。
どの辺を弄ればよいのかご教授いただけないでしょうか？
0422nobodyさん
03/02/19 19:46ID:dIKdV7ST0424nobodyさん
03/02/19 19:56ID:???ありがとうございます。
$ENV{'HTTP_REFERER'}
↑これを探してなかったんで質問させていただいたんですが、
今、もう一度検索しなおしてみたところ似たような部分がありましたので
解決できそうです。
ありがとうございました。
0425４１７ ◆nBdXIOeCFk
03/02/19 22:05ID:qxP6cynEこのＨＰ見ましたが英語でわかりません、
住民の方詳しくお願いします。
ＷＩＮ９８です
0427nobodyさん
03/02/19 22:12ID:???中学校に入ると、英語を習うので、そうしたら読んでみるといいでしょう。
今すぐ読みたいなら、お母さんに英語教室に通わせてもらうと良いでしょう。
0428常時sage ◆s/jp/vus/g
03/02/19 22:20ID:???0429nobodyさん
03/02/19 22:39ID:???0432まちがえました429
03/02/19 23:04ID:???0433nobodyさん
03/02/20 00:02ID:???おい、>>429は、
鯖から接続してきたクライアントのハードディスクの中身を抜こうとしてるんじゃないのか？
それができる前提で質問をしてないか？
0434nobodyさん
03/02/20 00:17ID:???そうなの？サーバのHDDもしくはファイルアップロードで画像をアップロードさせる前提だと思ったよ。
まぁ、いずれにしても俺のアドバイスがクラッキングに役立つとも思えんけど。
0435４１７ ◆nBdXIOeCFk
03/02/20 00:58ID:ESnUqnD00437nobodyさん
03/02/20 01:15ID:???これ買って勉強してください。
http://www.amazon.co.jp/exec/obidos/ASIN/4839904308/ref%3Dbr%5Flf%5Fb%5F7/250-8992305-8523460
0438nobodyさん
03/02/21 02:57ID:+apCT8OAprint "$comment\n\n" if($comment ne (" " || " "));
と書いたんですが、
どうやら、ここが原因で動かないようになってしまいました。
真夜中ですがどなたかいらっしゃいましたら、ご教授して頂けないでしょうか？
0439nobodyさん
03/02/21 02:59ID:???○ $comment
ですた。
0440nobodyさん
03/02/21 03:06ID:???(' ' || ' ') が先に評価されて、それと$commentが比較されるからじゃないかな。
$commentと' '、$commentと' 'のそれぞれを比較して || しましょう。
0441nobodyさん
03/02/21 03:07ID:p5R52YmNこれだと、if文で最初に評価されるのは、(" " || " ") この部分になるのでは？
if ($comment ne " " && $comment ne " ")
これでどうよ？
・・・間違ってるかもしれんけど。
0443438
03/02/21 03:19ID:???寝る前にこんな単純すぎるミスの質問で申し訳ないです。
おやすみなさい。
0444nobodyさん
03/02/21 17:39ID:???CGIから他のサーバにあるhtmlをゲットしようとしているんですけど、
例えば ttp://pc.watch.impress.co.jp/docs/2003/0221/kaigai01.htm ならば
pc.watch.impress.co.jpにソケット繋いで GET /docs/2003/0221/kaigai01.htm HTTP/1.0 で
取得できるんですが、同じようにしても取得できないサーバがあるんです。
その取得できないサーバはDDNSを使っているのですけど、これが原因でしょうか？
0445nobodyさん
03/02/21 20:18ID:???例えば2ちゃんねるってHost:ヘッダ要素がないと取得出来なかったりするけど。
HTTP1.1で必須なんだっけか？忘れたけど。
0446444
03/02/21 20:41ID:???おかげさまで取得できるようになりました。
404が返ってきていたので原因は別にあると思っていたんですけど、
試しにHTTP/1.1にしてみたらできました。
0447nobodyさん
03/02/23 22:39ID:BpzQ/pnE0448nobodyさん
03/02/23 22:53ID:???全角のアルファベットを全て半角に置き換える場合、どのようにしたら
よいのでしょうか。
$zenkaku =~ s/Ａ/A/g;
とやれば一文字だけはできますが、これを複数に適用する記述が
判らないのです。素人質問だとは思いますが、どなたかご回答を
お願いします。
0449nobodyさん
03/02/23 22:55ID:???http://www.google.com/search?q=Windows+%E3%83%AD%E3%83%BC%E3%82%AB%E3%83%AB+%E3%83%A1%E3%83%BC%E3%83%AB+%E9%80%81%E4%BF%A1+&hl=ja&lr=lang_ja
0450nobodyさん
03/02/23 22:59ID:???Perlでの話なら
http://www.din.or.jp/~ohzaki/perl.htm#JP_Z2H
■ このスレッドは過去ログ倉庫に格納されています