基本的なＣＧＩですが。。。

**名無しさん＠お腹いっぱい。** · 2001/07/26(木) 22:43

本当に初心者的な質問ですが、フォームで入力されたデータを
ＣＳＶでサーバー上に残しておくＣＧＩが欲しいのですが・・・
どこにあるか知っている方いらっしゃいませんでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 03:36

基本的だと思うなら自分で書いたら？

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 03:57

こんなCGI探してますスレッド Ver3
http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987

スレ乱立夏厨は死ね

--------------------------終了--------------------------

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 10:41

１０行以内でかけるから自分で書いてみろよ

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 23:56

2行でも書ける。

**名無しさん＠お腹いっぱい。** · 2001/07/28(土) 14:47

>>5 うん、そうだね。見にくいけどね。

**ﾀﾞﾒﾀﾞﾒさん** · 2001/07/28(土) 14:52

ダメ具合を指摘してください。 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);

**名無しさん＠お腹いっぱい。** · 2001/07/28(土) 15:45

#!/usr/bin/perl

use CGI;

$comment = $query->param('comment');

だまされたと思って使ってみ
変数とパラメーターかえるだけで面倒なforeachから開放されるぞ

**名無しさん＠お腹いっぱい。** · 2001/07/28(土) 17:42

敢えてダメなとこ指摘すると、CSVじゃないことくらい（わら

**名無しさん＠お腹いっぱい。** · 2001/07/28(土) 23:55

>7
ｽﾏｿ
use strict;
が無い時点で見る気が失せた（ｗ

**名無しさん＠足立区。** · 2001/07/29(日) 00:16

>>8
use CGI;
$query = new CGI;
$comment = $query->param('comment');
だろ。
CSVじゃねえけど。

**ﾀﾞﾒﾀﾞﾒさん** · 2001/07/29(日) 01:04

みなさんアドバイスありがとうです。
CGI.pmですか、なるほどー勉強になるっす。
http://www.harukaze.net/~mishima/perl/cgi_sam1.html#decode5
こんな感じになるのかな、、試してみるです。
>>9　たはは、KENTさんのばっかり見てるんでつい　(^^;
>>10　Perl の安全でない構文を制限するプラグマ???　(汗
消えるッスー

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 01:23

>>12
漏れも遙か昔はKENTをみてすげーとか逝ってた厨房な時もあったが
今となっては糞スクリプトだな。
今は自分で書いた方が数倍マシだ。
二週間もみっちりと真面目にやればそう思えるぞ。
がんばれ。

どうでもいいが、この板バグってるぞ。
名前欄とメール欄がない。工事中か？

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 03:05

>>13
あるぞ?

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 07:00

>>10
use strict; の使い方、教えれ。

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 07:45

書くだけ……。

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 08:33

素晴らしい！　(^^；

13 · 2001/07/30(月) 00:22

>>14
漏れのブラウザのセテーイがおかしかったらしい。
いじったら直った。

**旅する宿無し** · 02/04/25 03:50

ココは８７軒目　だわ　なァ

**nobodyさん** · 02/04/28 11:14

test

**nobodyさん** · 02/04/28 11:15

test2

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

書き込みテストスマソ

**名無しだよもん** · 02/05/08 17:32

(･∀･∀･)ﾃｽﾄﾊｹｰﾝ!!

**山崎渉** · 03/01/15 13:54

（＾＾）

**山崎渉** · 03/01/29 14:04

（＾＾）