CGIだけどなんか質問ある Pert 5.01
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/03/03 12:49ID:673UxTI50784nobodyさん
02/04/09 17:56ID:???このスレの1がCGI.pm使ったアプロダを作っていた気がする
http://pc.2ch.net/test/read.cgi/php/1001950501/l50
0785nobodyさん
02/04/09 18:59ID:XYR/ZMS70786nobodyさん
02/04/09 20:24ID:/BtheE/Cソース読んでみるとFile::Copy::copy()で保存してるみたいなので、
use File::Copy;
:
copy($file, "save") || die("error: $!");
としても、<UPLOAD>file</UPLOAD> No Such File or Directory
というエラーで終了してしました。
CGI.pmを関数として使ってるんですが、それが悪いのかなあ、と。
0787nobodyさん
02/04/10 04:17ID:???0788nobodyさん
02/04/10 04:18ID:c6LIImpcネットの読み物を探してみても、どうしても分からないです。
下のテストソースを実行させても出力が無いのはなぜですか？
#!/usr/bin/perl -w
use CGI qw(upload);
print <<"END";
Content-type: text/html
<html>
<body>
<form method="POST" action="$0" enctype="multipart/form-data">
<input type="file" name="upfile" value="" />
<button type="submit">send</button>
</form>
END
if ($ENV{"REQUEST_METHOD"} eq "POST") {
$file = upload("upfile");
print <$file>; # print <STDIN>; では出力がありました。
}
print '</body></html>'
__END__
0790nobodyさん
02/04/10 08:07ID:???あまりに古いと一部の機能が使えない。
0791nobodyさん
02/04/10 14:49ID:U5pgjWQyhttp://yokohama.cool.ne.jp/icefall/
にリロードボタンをつけるにはどうしたらいいんでしょうか。
投稿欄全て空白で書きこみボタンを押すと
「名前を入れて下さい」「内容を…」
と出る仕組みになってるのでリロードボタンを別に設置したいと思っています
ブラウザのリロードボタンを押しても更新されないようで (;´Д｀)
0792初心者ですいません
02/04/10 14:54ID:pqz8X1Tu{$tanka = $gearn / $gvtnum;}
などと割算をしているのですが、割り切れないと処理が止まってしまいます。
（割り切れると大丈夫みたいなのです）
こういう場合はどうしたら良いのでしょうか？
どなたか宜しくお願いいたします。
0793nobodyさん
02/04/10 15:25ID:???$tanka = $gvtnum ? $gearn / $gvtnum : undef;
0794初心者ですいません
02/04/10 16:10ID:pqz8X1Tuどうも有り難う御座います。
こうするものなのですね・・・
0795nobodyさん
02/04/10 21:44ID:NYy94cTHたとえばたとえば発言をする前にセレクトフォームで「大きい」を選ぶと
発言が大きくなるとか。つまりはここのような機能です。
http://c.cgiboy.com/test/
0796nobodyさん
02/04/10 21:50ID:???http://pc.2ch.net/test/read.cgi/php/1012839651/l50
0797nobodyさん
02/04/10 21:51ID:???セレクトフォームの内容によって出力内容を変えるだけ。
if($FORM{'select'} == 1){
$message = qq(<FONT SIZE=+2>$message</FONT>);
}
表示行数変えるのと一緒だろ。
頭使えよ。
0798nobodyさん
02/04/10 21:57ID:ZuHoR8rNスクリプトを改造してエラー処理を無くす。（おそらく&error("hoge")になってるだろう）
その代わりにコメント等が無い場合はスルーしてそのままリロードさせるようにする。
（書き込み処理をifで囲む）
それとブラウザの更新ボタンを試してみたけどちゃんと更新されるよ？
>>795
チェックボックスのvalueをifで受けてチャットのコメントの始めと終りに
<font size=4>hoge</font>というふうに付くよう、
if($DATA{'checkbox'} eq "middle") {$hoge=~s/(.+)/<font size=4>$1<\/font>/; }
みたいな感じで改造する。
以上パールで書かれていると仮定してのお話でした。
というかソース見てないけど多分パールだよね？ｗ
0799nobodyさん
02/04/10 22:10ID:???上の者だけど、普通にリンクを貼ればいい話でした。すんまそん。
更新できないってのはおそらくformのvalueが残ったままで更新しようと
してるからエラー処理にひっかかってると思われ。
２チャンのリロードのリンクと同じようにそのＣＧＩのＵＲＬを貼ればいいだけ。
0800nobodyさん
02/04/10 22:41ID:???0802nobodyさん
02/04/11 22:02ID:xrC+7yeQNetscape6.2で繋げた画像の先頭だけがおかしくなります。
これは、仕様なのでしょうか？
某有名CGI頒布サイトのサンプルでも同じようになります。
言語は、Parlです。
0803nobodyさん
02/04/11 23:39ID:???Parlなんて言語は知りません。
0804nobodyさん
02/04/11 23:50ID:xrC+7yeQすみません。また間違えてしまいました。
Perlです。
0805nobodyさん
02/04/12 00:02ID:???ttp://tohoho.wakusei.ne.jp/soft/gcat.txt
それじゃあ配布元を調べるという基本中の基本は？
0806nobodyさん
02/04/12 00:24ID:DCCb4BjX同じ資料ではありませんが、似通った内容は見たことがあります。
> 一番最初の画像の大きさが全体と異なる場合に表示がおか
>しくなるという、ブラウザ側のバグが原因だと推測しています。
とありましたが、画像のサイズは、全て統一しています。
0808113
02/04/12 03:55ID:xkmU3hC6うちんとこは全桁化けてるけど、もう知らん。ネスケ無視だ。がはははは。
てか、俺も解決策知りたし。
0809nobodyさん
02/04/12 07:20ID:???一番最初の画像＝一番左の桁の画像
全体の画像＝一番左から一番右まで全部含めた画像
0810nobodyさん
02/04/12 16:06ID:KhU9N1Jwすみません。
小学校から国語をやり直してきます。
0811nobodyさん
02/04/12 16:07ID:KhU9N1Jw仕様だったんですね。
ありがとうございました。
0812nobodyさん
02/04/13 19:59ID:ZRf5XmIQErrorDocument 404 /aaa.html
と書けば指定したサイトに、飛ばせるようなのですが
---
AuthUserFile /hoge/
AuthGroupFile /dev/null
AuthName ByPassword
AuthType Basic
<Limit GET>
require valid-user
</Limit>
---
のどこに書けばいいのでしょうか？
お願いします。
0813nobodyさん
02/04/13 20:31ID:???http://pc.2ch.net/test/read.cgi/php/1003772635/l50
上記のスレのどちらかのほうがいいかも
0815nobodyさん
02/04/13 23:50ID:???PCからは絶対に見ることが出来ないように
出来るのであれば、やり方を教えてほしいです。お願いします。
0816nobodyさん
02/04/14 00:18ID:gxlmJk+G絶対は無理だろ。
ユーザエージェントで判断すればある程度はじけるが、
エージェント変更できる奴とかもあるしな。
0818nobodyさん
02/04/14 00:29ID:gxlmJk+G環境変数のUSER_AGENT調べて判断しる。
例えばdocomoならDocomo〜とかなってる。
0819nobodyさん
02/04/14 00:29ID:???REMOTE_HOSTで弾けたのが一年前 今はどうなんだろ
>>817
携帯のHTTP_USER_AGENT調べれ
0820nobodyさん
02/04/14 00:36ID:oStrNP4H0822817
02/04/14 01:51ID:???if($user_agent =@@@@@@@@) { $mobile = 1; }
DoCoMoとUP.BrowserとPDXGWとASTELとJ-PHONEのうちどれか一個あれば
引っかかるようにしたいのですが
@@@@@@@@@の部分をどういう風に書けばいいのですか？
お願いします。
0823nobodyさん
02/04/14 02:03ID:gxlmJk+G正規表現使えば？
$_ = $ENV{'HTTP_USER_AGENT'};
if(m/(DoCoMo|UP.Browser|...|...|...)/){
$mobile = 1;
}
0824nobodyさん
02/04/15 06:09ID:???ＣＧＩに入る人数制限をする方法を教えてください。
0825nobodyさん
02/04/15 06:19ID:???死ぬまでに１度は入りたいね。
0827nobodyさん
02/04/15 09:44ID:???負荷は上がります？
0828nobodyさん
02/04/15 10:09ID:???まず、なぜそんな回りくどい事をする必要があるか、200文字以内で説明せよ。
0829nobodyさん
02/04/15 13:12ID:???0830nobodyさん
02/04/15 13:17ID:???アナタノニホンゴムズカシイ。
何がどこにアクセスするのか？
何の負荷を気にしているのか？
0831nobodyさん
02/04/15 17:36ID:???このように記載すると時間と分と秒数が表示されるのですが、
これに30分足した時間を求めるにはどうすれば宜しいですか？
0832nobodyさん
02/04/15 17:58ID:???それを算出する為にlocaltime()使ってるだろ？
そこの数字に30*60をたしておく。
0833nobodyさん
02/04/15 20:45ID:7iLwapD7<a href="$image"><img src="$image" border=0></a>
の部分がありまして、
$imageの拡張子が .gif .jpg .png
の拡張子以外は別の代変え画像を表示したいのですが、
どうすればいいのですか？
0834nobodyさん
02/04/15 21:03ID:???$image = $image2; # $imageの中身を$image2に変更
}
print qq(<a href="$image"><img src="$image" border=0></a>\n);
0835nobodyさん
02/04/15 21:03ID:???タイプミス…
自分で修正して。
0836nobodyさん
02/04/15 21:18ID:???$image = $altimg if $image =~ /\.(png|jpe?g|gif)$/i;
print qq(<a href="$ancurl"><img src="$image" border=0></a>\n);
0838WebBeginer
02/04/16 01:35ID:DFygP1Bi例：
bcom.datの内容↓
<STYLE TYPE="text/css">
A { text-decoration: none; }
</STYLE>
cgiで読み込む文章↓
$bcomfile = "./bcom.dat";
open (IN,"$bcomfile");
flock (IN,1);
$bcom = <IN>;
close (IN);
これで$bcomをhtmlの中に書いても、最初の１行<STYLE TYPE="text/css">
しか格納されてないんですよね。
$FORM{'bcom'}=~ s/\r\n|\r|\n/<br>/g;
とすると、改行が<br>に置き換えられてしまうので、結果としてタグが機能しなくなってしまうんですよね。
何とかなりませんか？
0839nobodyさん
02/04/16 01:44ID:???リストに入れたいのならば普通に
@LIST = <IN>;
で改行で区切ってリストに格納される。
もしスカラーにまとめて格納したいのならば
$list = join("",@LIST);
でおながいします。
なぜ私がおながいしているのか謎である。
0840nobodyさん
02/04/16 01:45ID:???$bcom .= $_;
}
0841二重送信だったらスマソ
02/04/16 01:46ID:???while(<IN>){
$bcom .= $_;
}
0843WebBeginer
02/04/16 01:55ID:DFygP1Bicolor.datの中身↓
black<>silver<>blue<>silver
で、
$colorfile = "./color.dat";
open (IN,"$colorfile");
@COLOR = <IN>;
close (IN);
($bg_c,$tx_c,$li_c,$h_c) = split(/<>/,$COLOR[1]);
と書いても各変数に値が代入されないのはなぜですか？
0845nobodyさん
02/04/16 01:58ID:???0846やさしいお兄さん
02/04/16 02:01ID:???undef $/;
$bcom= <IN>;
$/= "\n";
これでおながいします。なぜおながいするのかは、わたしにも謎です。
0847nobodyさん
02/04/16 02:08ID:3Tlg2ssNどのあたりまで改造して原型をとどめないようにしたら自分のって言っていいんですか？
あー、このスクリプトおもしれーことやってるなーなんて思って
ガチャガチャいじってるうちに原型がなくなるときあるじゃないですか。
そういうのってだめなの？
0848WebBeginer
02/04/16 02:11ID:DFygP1Bi$body='<body bgcolor="$bg_c" text="$tx_c" link="$li_c">';
として、
<html>
$body
・
・
・
とすると、変数がむきだしに（ソースを見ると<body bgcolor="bg_c"・・・）となってしまい、うまくいかないのですが何故でしょう。
0849nobodyさん
02/04/16 02:13ID:???一から書いてAそっくりなものが出来た → OK
0850nobodyさん
02/04/16 02:14ID:???自分で調べると言うことも身に付けような。
0851WebBeginer
02/04/16 02:33ID:DFygP1Bi0853nobodyさん
02/04/16 03:56ID:???ｸｵｰﾄ風演算子の風ってのがなんか好き
これって一般的な言い方なんでしょうか？
qq()
0855nobodyさん
02/04/16 04:15ID:???0857やさしいお兄さん
02/04/16 06:40ID:???$[ == 0 を前提とすると、
;# 値の取得
($sec, $min, $hur)= (localtime(time+30*60))[0..2];
;# ゼロサプレスなし
$now= sprintf('%02d:%02d:%02d', (localtime(time+30*60))[2,1,0]);
0858nobodyさん
02/04/16 09:56ID:TbadFbzPどっかのＨＰの情報を取ってきて
ファイルに書きこんでいくプログラムはできますか。
（言語Ｐｅｒｌ）
0859nobodyさん
02/04/16 10:05ID:WW7dwT5r0861858
02/04/16 10:19ID:eNjQI1pb例えばAHOO Financeで日経平均が出ているページを毎日PM6:00に読みこんで、
そこから日経平均を文字列で取り出して、ファイルに保存しておく。
二行目はできると思うけど
ユーザーアクションがないときにタイマーで
勝手に作業してくれるようなことはできるのですか？
0862858
02/04/16 10:52ID:R2KCu+6Yじゃぁ、自垢のときに
AHOO Financeで日経平均が出ているページを読みこむ
プログラムは可能ですか？
0863nobodyさん
02/04/16 11:00ID:???Finance::YahooQuoteモジュールでも見て勉強しなさい。
0865nobodyさん
02/04/17 01:26ID:BXgzx7GKが解析できるソフトで、できるだけ安価（orフリー）なものはないですか？
Apacheの生ログを解析するタイプでも、あるいは前ページにSSIかPHPかIMGタグかなにかで埋め込むタイプでも、
手段は問いません。
0866Dream 黒星
02/04/17 02:06ID:???ソフトが欲しいならスレ違いだ！ うせろ！
しかし、作ったほうが早いな！ 簡単だからな！ っつーか、作れ！
0867858
02/04/17 11:08ID:42l5cwQk自分とこのプロバイダー
SOCKET通信は、localhostのsmtp/tcpのみということです。（TT)
他にやり方ないですかね？
0868nobodyさん
02/04/18 00:11ID:1URG3Ku/ないでーす死になさい
0869アフォ
02/04/18 14:43ID:ZcdM4/xr気づいたのですがコンパクトぽりしー？P3P？を書いとけばいいとどこかのサイトでみつ
けたのですが、はてどうしたらよいんでしょうか。
ヘッダーに
P3P: CP='ONLi COM CUR OUR'
が吐き出されるようにまじないしておくと、嘘つきできると書いてあったんすが。
とりあえず対応するにはこれでいいんでしょうか。
cgiは同じドメインのレンタル鯖から呼び出してます。
（まだ試してません）
それとも、まじめ導入すべきなんでしょうか。
perl初心者です。
0870nobodyさん
02/04/18 14:51ID:Htj+h4zJ0871nobodyさん
02/04/18 17:46ID:fATaEmaK書き込み不可で閲覧可能な状態にしておくことできますか？
属性をいじってみたけれど、書き込み不可にするとサーバーエラーになって
うまくできなかったので
エキスパ−トの方、ワザを伝授してください。
0872nobodyさん
02/04/18 17:50ID:???1名様ご案内〜
スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/
1をよく読んでから改造依頼すること
0874nobodyさん
02/04/18 18:28ID:???昼間は人が少ないからせめて２４時間待ってみろ。
レスを急かすとレスする人間減るぞ。
0875nobodyさん
02/04/18 19:00ID:Xv+8+6gtCGIだけで、Formのフォーカス制御は可能でしょうか？
JavaScriptも使わずにです。
どうも>476 さん辺りのﾚｽを見る限りでは無理そうですが、、、（＾＾；
0876nobodyさん
02/04/18 19:11ID:???具体的になにをしたいか言ってみればできる事もあるかもしれない。
>477みたいに<form>タグでなら制御できるし。
もっとも、これはＣＧＩの挙動とはいえないが。
0877nobodyさん
02/04/18 19:19ID:Xv+8+6gtﾚｽありがとうございます。
ちょっとｽﾚ違いなのかもしれませんが、チャットの改造をしていまして
JavaScriptを使わないモードだとsubmitの方にフォーカスが移ったままになってしまうので
これをなんとかクリアーできないものかと。
そういえば>477さんのターゲット指定を忘れていたような気がするので、今一度
試しに逝って来ます。
0880ひこ
02/04/18 22:47ID:27B4F9dj今作っているCGIで「param」というメソッドが出てきます。
意味がわかりません。
そういったメソッド等の意味を調べたりするのに便利な書籍や、
WEBサイトをご存じの方がおられたらアドバイス下さい。
よろしくお願いします。
0882nobodyさん
02/04/18 22:55ID:???my $hoge = $q->param('hoge');
で
<input name="hoge" value="hogevalue">
の値を取れます
CGI.pm 邦訳
http://member.nifty.ne.jp/hippo2000/perltips/Cgi.htm
■ このスレッドは過去ログ倉庫に格納されています