CGIだけど、なんか質問ある？ Part 10

**nobodyさん** · 03/03/26 22:47

CGIの運用に関する質問スレッドです。

※CGIは特定の言語に依存するものではありません。

※Perlのコーディングに関する質問は専用スレがありますのでそちらでお願いします。
　 ↓
【Perl】初心者コーナー Part21
http://pc2.2ch.net/test/read.cgi/php/1047980851/l50

過去ログ・関連スレッドは >>2-5 あたりに

**nobodyさん** · 03/04/29 20:46

>>407
一応言っておくがここは作る人の板であって使う人の板ではない。

**nobodyさん** · 03/04/29 21:13

その例えば*.lockってロック用ファイルが、
何を役割を持ってるかってのはわかってるの？

**nobodyさん** · 03/04/29 21:19

死ねｸｽﾞドモ

**nobodyさん** · 03/04/29 22:17

と、401のｸｽﾞが申しております

**nobodyさん** · 03/04/29 22:32

このｸｽﾞの誘導先はソフトウェア板？

**282** · 03/04/30 02:32

屑に行き場なんてありません

**nobodyさん** · 03/04/30 02:33

まだ名前の残ってた俺も屑です

**nobodyさん** · 03/04/30 03:05

>>414
まぁまぁ。早まるな。

**nobodyさん** · 03/04/30 09:40

やはりクズだな
クズ皿仕上げ

**nobodyさん** · 03/05/02 13:27

画像が化けちゃいます。なぜでしょう？

int main(int argc, char* argv[])
{

FILE *fp;
int ch;

fp = fopen("4.gif", "rb");
if (fp == NULL) return -1;
printf("Content-type: image/gif\n\n");
while(1){
ch = fgetc(fp);
if (ch == EOF) break;
putchar(ch);
}
fclose(fp);

return 0;
}

**nobodyさん** · 03/05/02 14:29

大き目のjpegにしたら表示すらされません。なんで？

int main(int argc, char* argv[])
{

FILE *fp;
int ch;

fp = fopen("4.jpg", "rb");
if (fp == NULL) return -1;
printf("Content-Type: image/jpeg\n\n");
while(1){
ch = fgetc(fp);
if (ch == EOF) break;
putchar(ch);
}
fclose(fp);

return 0;
}

**nobodyさん** · 03/05/02 16:33

>>417
int

**nobodyさん** · 03/05/02 16:52

宿題ぐらい自分でやれ
それからこのぐらいの書き方覚えれ

if (( fp = fopen("4.jpg", "rb") == NULL ) { return -1; }
printf("Content-Type: image/jpeg\n\n");
while(( ch = fgetc(fp)) != EOF ) { putchar(ch); }

**nobodyさん** · 03/05/02 16:55

>>420
汚いソースだな。

**nobodyさん** · 03/05/02 17:02

>>421
君みたいなレベルの人は何行にも分けて書けば？

**nobodyさん** · 03/05/02 17:07

>>422
可読性ってご存じですか？

**nobodyさん** · 03/05/02 17:13

>>420
なぁ、うまくいかないコードをそのままぎゅっと潰して書いたのには何か意味があるのか？

**nobodyさん** · 03/05/02 17:18

>>418
int main(int argc, char* argv[])
{

FILE *fp;
unsigned char ch;

fp = fopen("4.jpg", "rb");
if (fp == NULL) return -1;
printf("Content-Type: image/jpeg\n\n");
while(1){
ch = fread(&ch,1,1,fp);
if (ch == EOF) break;
fwrite(&ch,1,1,STDOUT);
}
fclose(fp);

return 0;
}

**418です。** · 03/05/02 17:29

質問したまま忘れてました。たくさんレスどうも。
んで、>>425さんのをそのまま貼り付けてコンパイルしてみましたが
結果は同じでした。
Webサーバーの設定が悪いのでしょうか？
OSはWin2kPro Web鯖はAN HTTPDです。Apacheでも同様でした。
設定はほぼﾃﾞﾌｫﾙﾄです。

**nobodyさん** · 03/05/02 17:29

>>423
1行で完結しているコードも読めない人はメガネでもかけたら？

**418** · 03/05/02 17:33

>>419
fgetc()もputchar()も引数はint型なのですが、intではだめですか？

**418** · 03/05/02 17:34

>>420
すみません。C言語初めて2日なので。

**418** · 03/05/02 17:41

ちなみに小さなgifだと問題ありませんでした。

**418** · 03/05/02 17:55

どうも220バイト以上だと化けたり表示できなかったりするみたいです。

**418** · 03/05/02 18:26

だめでした。(´･ω･`)ｼｮﾎﾞｰﾝ…

int main(int argc, char* argv[])
{

FILE *fp;
char ch;

fp = fopen("4.gif", "rb");
if (fp == NULL) return -1;
printf("Content-Type: image/gif\n\n");
while(1){
if (fread(&ch,1,1,fp) < 1) break;
fwrite(&ch,1,1,stdout);
}
fclose(fp);

return 0;

}

**418** · 03/05/02 18:43

バイナリモードとかいうやつにしてみました。
だめでした。(´･ω･`)ｼｮﾎﾞｰﾝ…
int main(int argc, char* argv[])
{

FILE *fp;
char ch;

fp = fopen("4.gif", "rb");
if (fp == NULL) return -1;
printf("Content-Type: image/gif\n\n");
_setmode(_fileno( stdin ), _O_BINARY);
while(1){
if (fread(&ch, sizeof(char), 1, fp) < 1) break;
fwrite(&ch, sizeof(char), 1, stdout);
}
fclose(fp);

return 0;

}

**418** · 03/05/02 18:44

_setmode(_fileno( stdin ), _O_BINARY);

stdoutでした。
できました。

**418** · 03/05/02 18:58

完成しました。すばらしい。

int main(int argc, char* argv[])
{

FILE *fp;
int ch;

_setmode(_fileno( stdout ), _O_BINARY);

fp = fopen("4.gif", "rb");
if (fp == NULL) return -1;
printf("Content-Type: image/gif\n\n");
while(1){
ch = fgetc(fp);
if (ch == EOF) break;
putchar(ch);
}
fclose(fp);

return 0;

}

: · 03/05/02 19:03

☆^～^★　50音順で探せて楽して得する
http://sagatoku.fc2web.com/
　　　あなたの探し物きっとみつかるよ☆^～^★

**nobodyさん** · 03/05/02 19:11

>>420の書き方ってCでは有名でありふれた書き方じゃないのか?(^_^;)

**nobodyさん** · 03/05/02 19:44

>>437
一般的にはああ書くだろうな。
そうしなければいけないわけじゃないけど、可読性云々を持ち出すのは
ちょっと応用が利かないというか、読解力が足りないというか・・・

**nobodyさん** · 03/05/02 19:50

コーディングスタイルなんてどうでもいい
そんなことを議論スレじゃない
おまえら、あほか

**nobodyさん** · 03/05/02 19:52

二行目がおかしい
おまえはあほか

つられてみました

**nobodyさん** · 03/05/02 19:54

そんなことを議論するスレじゃない

**nobodyさん** · 03/05/02 19:59

つーか、>>418の質問にスパッっと答えられないこのスレのレベルって

**nobodyさん** · 03/05/02 20:03

stdoutの改行モードのせいだとは分かったけど、それに関するwindowsでの関数なんか知らないから。

**nobodyさん** · 03/05/02 20:28

>>443
いいわけすんなよ
int
とかfwriteにしただけとか
的はずれもいいとこじゃん。
しまいには、コードを詰めただけときたもんだ。

**nobodyさん** · 03/05/02 20:46

>>443
俺が初めて見たときはもう終わっていたし。
あ、>>437=>>443=俺だから。

**445** · 03/05/02 20:46

レス先間違えた。>>444に。

**nobodyさん** · 03/05/02 20:51

>>445
例えあんた一人わかっていたとしてもレベルが低いことに変わりはない。

**nobodyさん** · 03/05/02 20:56

置換演算子について質問です。
$dateっていうのが日時の変数で

2003年4月だったら → 20034
2003年12月だったら → 200312

のように月が１ケタだろうが２ケタだろうが "年+月" で作られるものだとします。
それを再び****年*月というふうに戻すのはどうしたらいいんでしょうか？

$date =~ /^(....)(.)/;
print "$1年 $2月";

↑もちろんだめでした。
２ケタの月なると1月とか2月になります。
どうかご教授お願いします。

**nobodyさん** · 03/05/02 21:00

>>448
年の部分が4桁固定なら・・・・わかるでしょ？

// PerlスレでCGIの質問をする人が多いけど、逆もいるんだなぁ。

**449** · 03/05/02 21:02

そういう問題じゃないのか。
.+でなにか一文字以上にマッチ

**449** · 03/05/02 21:04

$y=substr($date,0,4);
$m=substr($date,4);

**$date =~ /^(\d{4})(\d{1,2})/;** · 03/05/02 22:27

**nobodyさん** · 03/05/03 01:03

ファイルを読み込み、０と１行目以外をランダムで出力したと考えているのですが…

初めの使用は０行目以外をランダム出力でしたので、
下の様にしていました。

@logs = <FILE>;
$rand = int(rand($#logs));
$rand = $rand + 1;
print "$logs[$rand]";

０と１行目以外をランダムするにはどうしたらよいのかお力をお貸し下さい。

**動画直リン** · 03/05/03 01:10

http://homepage.mac.com/hitomi18/

**369** · 03/05/03 01:25

>>453
@logs = <FILE>;
@logs = @logs[2 .. $#logs];
$rand = int(rand($#logs));
print "$logs[$rand]";

**nobodyさん** · 03/05/03 01:29

>>453
@logs = <FILE>;
splice(@logs,0,2);
print "$logs[int(rand($#logs))]";
ではまずい？

**nobodyさん** · 03/05/03 01:56

&error if @a <= 2;
$index = int rand (@a -2);
$index += 2;

**nobodyさん** · 03/05/03 02:01

1： nobodyさん 03/03/26 22:47 44KxXtaW
CGIの運用に関する質問スレッドです。

※CGIは特定の言語に依存するものではありません。

※Perlのコーディングに関する質問は専用スレがありますのでそちらでお願いします。

**453** · 03/05/03 14:35

>>455 >>456
ご返答ありがとうございました。

ところが、この後の処理で、
0行目と1行目とランダムで出力した行にカウント値を書き込むので、
@logsの0行目と1行目は削ることができません。

なにか良い方法はないでしょうか？
お力をお貸し下さい。

わか · 03/05/03 14:52

自己満足のためではありません。
このサイトは皆さんのお店を宣伝し
クーポンを発行し、お店にお客様を増やしたい
経営者様に立ち上げました。
http://www.c-gmf.com/index3.htm
http://www.c-gmf.com/index2.htm

**nobodyさん** · 03/05/03 14:55

特定のポートが空いてるか調べるにはどうすればよいのでつか
CGIでできまふか

**nobodyさん** · 03/05/03 15:12

>>461
なぜCGIで、ﾎﾟｰﾄｽｷｬﾝをしようとするんだ？？？
そういうｿﾌﾄ探してきて、自分のﾊﾟｿｺﾝですればいい。
CGIでした所で、ｻｰﾊﾞに負荷を与えるだけ。

**nobodyさん** · 03/05/03 15:41

>>462
で？

**nobodyさん** · 03/05/03 16:15

シンプルで無料なアクセスカウンタありませんか？

**nobodyさん** · 03/05/03 16:24

>>464
http://www.google.co.jp/search?q=%E3%82%B7%E3%83%B3%E3%83%97%E3%83%AB+%E7%84%A1%E6%96%99+%E3%82%A2%E3%82%AF%E3%82%BB%E3%82%B9%E3%82%AB%E3%82%A6%E3%83%B3%E3%82%BF
4000件近くヒットしたので好きなの選んでください

**464** · 03/05/03 16:43

>>465
わーいわーい。

**nobodyさん** · 03/05/03 17:37

http://www1.neweb.ne.jp/wb/prof/
平成15年度自作板PC環境調査最新結果（一部抜粋）
★4月分の結果が出ました。現在は5月分に移行しています。★

平均年齢　　　　　　　 25.4歳

ネット(2ch含)　　　　　　78.7%
ゲーム　　　　　　　　　 59.0%

Windows XP Family　　　　46.9%
Windows 2000 Family　　　34.4%

Athlon　　　　 45.3%
Pentium 4　　　　 29.7%

平均RAM搭載容量 780MB

平均HDD搭載容量 166GB

nVIDIA 49.2%
ATI 28.9%

DVD-R/RW/ﾏﾙﾁ 20.4%
CD-R/RW 75.9%

光ファイバー 8.3%
ADSL/xDSL 64.5%

CRT 74.6%
LCD 25.4%

**nobodyさん** · 03/05/03 18:00

>>1
質問なんかねーよ!!
糞スレ立てるな!!!

**nobodyさん** · 03/05/03 18:02

>>468
ﾜﾗﾀ

**nobodyさん** · 03/05/03 18:30

これが噂の自作自演か・・・

**nobodyさん** · 03/05/04 00:49

だれか、まじでおしえてください。

ビンボサーバーでドメイン取ったんですが、CGIを
どこにおくかがわかりません・・・。

どこにおけばいいですか？

**nobodyさん** · 03/05/04 00:53

>>471
貧乏の説明をよく読みましょう。
読んでもわからないならあきらめましょう。

これはマジレス

**369** · 03/05/04 05:28

>>459
@logs = <FILE>;
@count = @logs[0 ..1];
@logs = @logs[2 .. $#logs];
$rand = int(rand($#logs));
print "$logs[$rand]";

@count のしょりとか

ushift(@logs,@count);

とかでどない？

**nobodyさん** · 03/05/04 11:31

# 一行目、二行目の取得
$first = <FILE>;
$second = <FILE>;
# ログの取得
@log = <FILE>;

# 表示する行の決定
$line = int(radn()*scalar @log);

# 行の表示
print $log[$line];

# countの処理
$first ...;
$second ...;

# ログの保存
print FILE $first;
print FILE $second;
print FILE @log;

>>473よりちょっとだけメモリ効率がよくなった。
ま、たいしてかわらんとおもうが。

**nobodyさん** · 03/05/04 13:06

>>463
うん？で？とは？

**nobodyさん** · 03/05/04 15:44

@log = <FILE>;

# 表示する行の決定
$line = int(radn()*scalar @log);

# ログの保存
print FILE $log[0];
print FILE $log[1];
print FILE @log;

**453** · 03/05/04 16:25

>>473 >>474 >>476
ありがとうございます。
なんとか下のように導き出していました。

0行目（カウント値A）と1行目（カウント値B）
2行目以降→ランダムで出力

chop(@logs = <FILE>);

$adn = int(rand($#logs + 1 - 2));
$adn = $adn + 2;

($a,$b) = split(/<>/, $logs[$adn]);
※$bはこの行のカウント値

print "$a";

$b = ++$b;
$logs[$adn] = "$a<>$b<>";

$x = "$logs[0]";
$logs[0] = ++$x;
　：

教えて頂いた方法でも色々と試してみたいと思います。

**動画直リン** · 03/05/04 17:10

http://homepage.mac.com/hitomi18/

**nobodyさん** · 03/05/04 20:30

perlの話かもしれませんが、一応こちらで質問させていただきます｡
ヤフーオークションで出品物が落札され、落札者に金額等のメールを送る際に、
LWP::Simpleで落札されたページを読み込み、落札者のメアドやID金額を得てテンプレに組み込めば、メールの作成がかなり楽になるのでやってみたのですが、
http://page*.auctions.yahoo.co.jp/jp/auction/*********
とURLを入れてみても、ログインのページが読み込まれてしまいます｡

しょうがないので現状はヤフオクの終了したページをローカルに保存しておいて、
<INPUT TYPE="file">にて保存したページを読み込んでやってます。
でも直に終了のページを読み込めれば楽なので、そうしたいのですが、
どなたか方法をご伝授してください｡

**nobodyさん** · 03/05/04 20:35

>>479
セッションについてお勉強。

**nobodyさん** · 03/05/04 20:38

>>479
久喜についてもお勉強。

**nobodyさん** · 03/05/04 20:49

>>480
はぁ・・・・
>>481
ﾊｧ?

**nobodyさん** · 03/05/04 20:57

>>482
煽るならお帰りください。

**nobodyさん** · 03/05/04 21:04

>>482は>>479じゃないだろ。質問者の態度とは思えん。

**479** · 03/05/04 21:08

479は必死こいてぐぐってます｡
482は別人です｡

ヒントお願いします｡
クッキーってヤフオクが発行したクッキーと違うんですよね｡
ブラウザに直にhttp://page*.auctions.yahoo.co.jp/jp/auction/*********って入れると、
ログイン画面じゃなく終了したページが表示されます｡

**nobodyさん** · 03/05/04 21:10

>>485
嘘つき。

**nobodyさん** · 03/05/04 21:41

>>485
色んな意味で必死だなｗ

**nobodyさん** · 03/05/04 23:16

>>485
一応マジレスしとく。
たとえ、URLを直打ちしても、クッキーは鯖に送られる。だから終了画面が出る。
従って、Perlのスクリプトでアクセスする時も同内容のクッキーを送る必要がある。

CGIのことではないんでそもそもがスレ違いなんだけれども、
ヤフオク出品者としては、終了分のページをコピペしてエクセルに貼り付けるのが一番早かった。
エクセルのピボットテーブル使って、誰がいくら落札したのかとかも簡単に出るしな。
そのデータをCSVかなんかにしてPerlで読み込んでメールの形に整形するのであれば、楽かも。

**479** · 03/05/05 05:24

>>488
マジレスｔｈｘ

ブラウザURLを直打ちの場合｡
　　ブラウザ「http://page*.auctions.yahoo.co.jp/jp/auction/*********の情報ｸﾚ！｣
　　ヤフオク「クッキー送れ！」
　　ブラウザ｢はいよ～」
　　ヤフオク「http://page*.auctions.yahoo.co.jp/jp/auction/*********だよ～｣

漏れのヘタレスクリプト
　　ヘタレ　「http://page*.auctions.yahoo.co.jp/jp/auction/*********の情報ｸﾚ！｣
　　ヤフオク「クッキー送れ！」
　　ヘタレ　・・・・・
　　ヤフオク「ﾃﾒｰ！ログインしやがれ！｣

っていうことですよね｡
でもヤフオクの「クッキー送れ！」をどう判断すればいいのかな？
もうちょっと勉強汁か

**nobodyさん** · 03/05/05 06:57

スレ違いだと言うに…

×ブラウザ「http://page*.auctions.yahoo.co.jp/jp/auction/*********の情報ｸﾚ！｣
　ヤフオク「クッキー送れ！」

○ブラウザ「http://page*.auctions.yahoo.co.jp/jp/auction/*********の情報ｸﾚ！
　　　　　　　ついでにクッキーも送っとく！」

**nobodyさん** · 03/05/05 09:06

>でもヤフオクの「クッキー送れ！」をどう判断すればいいのかな？

サーバからクライアントに能動的に働きかけることはできない。
って言うかRFC要参照。

**nobodyさん** · 03/05/05 19:23

>>490,>>491
クッキーはクライアント側が送る件了解しました｡

> スレ違いだと言うに…
今回はスレに合う話だといいんですが…

use LWP::Simple;

my $url = 'http://www.yahoo.co.jp/';
my $html = get($url);
これでどうやってクッキー送るの？ってのが今朝の段階｡

今日仕事中ちょっと調べてみました｡
LWP::UserAgentでなにやら参考になりそうなスクリプトが。

以下続く…

**479** · 03/05/05 19:23

use LWP::UserAgent;

my ($req,$res,$html,$ua,$buffer,$request,$referer);

while(1) {

$ua = new LWP::UserAgent;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)');
$ua->timeout(120);

$buffer = 'cid=9&mid=mSendVote&poll_id=344&cginh=1&cgint=1&vote=1&submit=Vot
ez';
$request = "http://team.sports.com/cgi-poll/vote/vote.cgi";
$referer = "http://www.sports.com/fr/judo/";

$req = new HTTP::Request POST => $request;
$req->content_type('application/x-www-form-urlencoded');
$req->content($buffer);
$req->referer($referer);
$res = $ua->request($req);

$req = new HTTP::Request GET => $referer;
$req->content_type('');
$req->content('');
$req->referer($request);
$res = $ua->request($req);
$html = $res->content;

if ($html =~ /Nombre de votes: (\d+)/) { print $1."\n"; }
sleep 1;
}

**479** · 03/05/05 19:26

この$buffer がクッキーにあたると思うのですが、違いますか？

それに、無限ループのせいか$buffer、 $request、$refererを変更してみても動かない…

**nobodyさん** · 03/05/06 00:44

>>494
http://member.nifty.ne.jp/hippo2000/perltips/LWP.html
http://member.nifty.ne.jp/hippo2000/perltips/LWP/UserAgent.html
上記二つを読んで勉強汁！

**nobodyさん** · 03/05/06 15:52

>>493
cookieの中身がわからんと送れないが
$req->header(Cookie => "name=value");

**479** · 03/05/06 19:55

>>495、>>496
Thx！

でも、クッキーじゃ無理かも。
ローカルに保存されているクッキーをそのまま送ってもダメみたいですね｡
クッキー見ても、漏れはname=valueなふうに出来ないから…
それに、クッキー晒すわけに逝かないから…
手詰まり。

**479** · 03/05/06 20:25

皆様のおかげをもちまして、漏れのヘタレスクリプトからログインすることが出来ました｡

クッキーを送ることばかり考えていて、ﾄﾞﾂﾎﾞにはまっていました｡
クッキーを受け入れることを考えいればよかったんです｡

ありがとうございました｡

**nobodyさん** · 03/05/06 20:56

$countの値を１０になった時０に戻したいんですが、
$countの値がずっと増えつづけます
これではだめなんでしょうか？
if ($count == 10) {$count == 0;}

よろしくお願いします.

**nobodyさん** · 03/05/06 21:35

ネタでしょうか。
$count = 0;

**nobodyさん** · 03/05/06 21:46

すいません。ネタじゃないです・・・
ありがとうございました。
こんなネタ出してもしょうがないでしょ？
出すならもっといろいろ考えてくるよ～

**nobodyさん** · 03/05/06 22:10

>>499
$count %= 10;
にしると条件文が減るでつ。

**nobodyさん** · 03/05/07 15:26

Hi-HO のサーバで perl で書いてます。
たとえば CGI_Lite.pm の入ってないサーバでそれを使いたいとき、
他所のサーバでは、
unshift(@INC,"CGI_Liteを入れたパス");
use CGI_Lite;
などとやれば出来たのですが、Hi-HO ではどうしても
できないです。
誰かできた人いらっしゃいませんか？
＃出来るところの方が少数派なのですかね。

**nobodyさん** · 03/05/07 15:31

require

**nobodyさん** · 03/05/07 22:19

Hi-HO と言えば…
ttp://home.hi-ho.ne.jp/support/qa/q_web.html#a20
まだ使ってる鯖あるのか。(´Д｀; ＞ Perl4

**503** · 03/05/08 14:16

>504
これは私への解答でしょうか？
require("...../CGI_Lite.pm");
これでいいの？
動作は同じ？

>505
これらのサーバにも、非公式に perl5 入っているので、
みんなそっちを使っていると思う。

**505** · 03/05/08 16:32

散々既出だけど use Module @list; は
BEGIN { require Module; import Module @list } と同じだよ。
ttp://www.kt.rim.or.jp/%7ekbk/perl5.005/perlmod.html#Perl_Modules

「use がどうしてもできない」なんて言うからもしや Perl4
使ってんじゃと思ったんだけど。CGI_Lite (これも97年か…)
は 5.002 以上だね。
ttp://search.cpan.org/src/SHGUN/CGI_Lite-1.8/

あと CGI に関係ない Perl の話はこっち。
http://pc2.2ch.net/test/read.cgi/php/1050369328/