asanosikiのプロフィール
- ベストアンサー数
- 7
- ベストアンサー率
- 77%
- お礼率
- 40%
- 登録日2006/03/13
- アクセス制限
以下スクリプトは$denyに拒否したいリストを記述するのですが、$denyに記述したリストのみをアクセス許可にしたいと思っています。試しに2行目の$flag=0;を$flag=1;にし、4行目$flag=1;を$flag=0;にしましたところ、$denyに記述したリストのみアクセス許可することができたようですが、これで問題ないでしょうか？よろしくお願いいたします。 if ($deny) { $flag=0; foreach (split(/\s+/, $deny)) { if ($host =~ /$_/i) { $flag=1; last; } } if ($flag) { &error("コメント") } }
- ヒアドキュメントが表示されない
perl初心者です・・ perlを本で学習してる最中なのですが、print文だとブラウザに表示されるのに、ヒアドキュメントで記述するとブラウザに表示されません。 （AN HTTPDサーバーを使用して、起動させています。） 例えば、 #!/usr/bin/perl print "content-type: text/html\n\n"; print "<html><body>"; print "ああ"; print "<br>"; print ("いい","うう","ええ","です"); print "<br>"; print "</body></html>"; ↑この記述だとブラウザに表示されますが、 #!/usr/bin/perl print <<HTML_DOCUMENT; content-type: text/html <html> <body> ああいいううええです </body> </html> HTML_DOCUMENT ↑このようにヒアドキュメントに書き換えてブラウザで表示させると、 サーバーが見つかりませんと表示されます。 ちなみに、本に添付してあるCD-ROMの回答ソースをコピペして表示させてみましたが、同様にサーバーが見つかりませんと表示されます。 ですので、文法には間違いはないと思うので、ANHTTPDサーバーに原因があるのではないかと思われるのですが、何か、ANHTTPDサーバーに設定をする必要があるのでしょうか？ 教えてください。 ちなみに、環境windowsXPです。
- ファイルをダウンロードさせるCGI
よくダウンロード販売などのサイトに置かれているCGI、 『お客さんがクリックすると「ファイルをダウンロードしますか？」と出て希望の方にファイルをダウンロードしてもらえる』CGIを探しています。 携帯専用のダウンロードCGIなら見つけたんですが…（涙） CGIは現在猛勉強中で基礎的なものしか知らないのですが、良かったら教えて頂ければ嬉しいです。
- webform.cgiによる複数メール送信
以下のwebformで、受信先メールアドレスを２つ設定したいのですが、 一つ目のメールアドレスの後に、「,」で区切っても、 「スペース」あけても、一つ目のメールアドレスだけに送られてくるだけで、２つ目のメールアドレスには送られてきません・・・このformでどのように設定したらいいのでしょうか？ まったくの初心者です・・お願いします。。 #!/usr/bin/perl ########## #自動返信、ヘッダー・フッター、クロネコ（line:358） ########## #■日本語コード変換ライブラリ require 'jcode.pl'; require 'html.pl'; #■SENDMAILの設定 $sendmail = '/usr/lib/sendmail'; #■受信先メールアドレス $mailto = '**********@******.**.**'; ←ここにもう一つ追加したいんです。 #■自動返信 $auto_res = "on";#↓$mailcheck = 0;必須 #■名称 $title = 'ご送信フォーム'; ________________________________________________________________