1 :
名無しさん@お腹いっぱい。:
本当に初心者的な質問ですが、フォームで入力されたデータを
CSVでサーバー上に残しておくCGIが欲しいのですが・・・
どこにあるか知っている方いらっしゃいませんでしょうか?
2 :
名無しさん@お腹いっぱい。:2001/07/27(金) 03:36 ID:.FuBw9rI
基本的だと思うなら自分で書いたら?
10行以内でかけるから自分で書いてみろよ
5 :
名無しさん@お腹いっぱい。:2001/07/27(金) 23:56 ID:9rKR5JSs
2行でも書ける。
ダメ具合を指摘してください。 m(_ _)m
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
($s,$mm,$h,$d,$m,$y) = localtime(time);
$m++;
$y += 1900;
$day = sprintf( "%04d/%02d/%02d %02d:%02d:%02d",$y,$m,$d,$h,$mm,$s);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{"$name"} = $value;
$comment = $FORM{'comment'};
$seibetsu = $FORM{'seibetsu'};
$onamae = $FORM{'onamae'};
}
if(!-e './hozon.txt'){
open(FILE,'./hozon.txt');
chmod(0666,'./hozon.txt');
close(FILE);
}
$foo = "<>$day<>$onamae<>$seibetsu<>$comment\n";
open(FH,">>./hozon.txt");
print FH $foo;
close(FH);
#!/usr/bin/perl
use CGI;
$comment = $query->param('comment');
だまされたと思って使ってみ
変数とパラメーターかえるだけで面倒なforeachから開放されるぞ
敢えてダメなとこ指摘すると、CSVじゃないことくらい(わら
>7
スマソ
use strict;
が無い時点で見る気が失せた(w
>>8 use CGI;
$query = new CGI;
$comment = $query->param('comment');
だろ。
CSVじゃねえけど。
13 :
名無しさん@お腹いっぱい。:2001/07/29(日) 01:23 ID:8KfTFdvA
>>12 漏れも遙か昔はKENTをみてすげーとか逝ってた厨房な時もあったが
今となっては糞スクリプトだな。
今は自分で書いた方が数倍マシだ。
二週間もみっちりと真面目にやればそう思えるぞ。
がんばれ。
どうでもいいが、この板バグってるぞ。
名前欄とメール欄がない。工事中か?
15 :
名無しさん@お腹いっぱい。:2001/07/29(日) 07:00 ID:gvabAGaw
>>10 use strict; の使い方、教えれ。
書くだけ……。
素晴らしい! (^^;
18 :
13:2001/07/30(月) 00:22 ID:???
>>14 漏れのブラウザのセテーイがおかしかったらしい。
いじったら直った。
ココは87軒目 だわ なァ
test
test2
書き込みテストスマソ
(・∀・∀・)テストハケーン!!
24 :
山崎渉:03/01/15 13:54 ID:???
(^^)
25 :
山崎渉:
(^^)