html에서 이름을 입력바다가지구여....
perl cgi로 Mysql에 자장하고 그 저장값을 출력하는 .. 파일들 입니다..
머가 틀린거 가타서여~~ db연동은 되는거 가튼데.. 입력,출력이 안되는 군여~~ 머가 틀린지 아시는분... 답변 부탁해염~~~
"** Mysql**"
uscreate table test(
no int default '0' not null auto_increment,
name char(10),
regdate date,
PRIMARY KEY(no)
);
"**perl cgi임다**"
#!/usr/bin/perl
%parse = &parse_input;
print "Content-type: text/html
";
print "입력되었습니다. <br>";
use Mysql;
$dbh=Mysql->connect("","test","root","");
$query_string = "insert into test values('','$parse{name}',curdate())";
$sth=$dbh->query($query_string);
$query_string = "select * from test";
$sth=$dbh->query($query_string);
while($row = $sth->fetchrow_arrayref){
print "$row->[0] $row->[1] $row->[2]<br>";
}
exit;
sub parse_input {
my ($buffer,@parse,%parse,$key,$value);
if($ENV{'REQUEST_METHOD'} eq "GET"){
@parse = split(/&/,$ENV{'QUERY_STRING'});
}
else {
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@parse = split(/&/,$buffer);
}
foreach (@parse) {
$_=~ tr/+/ /;
$_=~ s/%([\A-Fa-f][\A-Fa-f])/pack("C",hex($1))/eg;
($key,$value) = split(/=/,$_);
$parse{$key} = $value;
}
return %parse;
}
"**html 임다**"
<html>
<body>
<form name="form" method="get" action="/cgi-bin/write_db.cgi">
<p><input type="text" name="name" size="10"></p>
<p><input type="submit" name="ok" value="Send"></p>
</form>
</body>
</html>
빠른답변을 부탁함당.....
그럼 날씨추운데 수고하세염~~~~~
|