안녕하세요 Perl로 게시판을 짜고 있는데 궁금한것이 있습니다.
꼭 좀 도와주세요
다름이 아니오라,
만약 get방식으로 id가 넘어온다면
/view.cgi?msg_id=$msg_id
이런식으로요.. 그럼 $msg_id를 쓰려면 어떻게 설정 해줘야 하나요?
CGI.pm모듈을 쓰지 않고.. 쓰는 방법을 찾고 있습니다.
아래처럼 설정했더니.. 안되는거 같은데요. 고수님들 도움을 좀 부탁드립니다.
my $msg_id =$in{'msg_id'};
이렇게하면 url에 넘어오는 변수를 받을수 있는거 아닌가요> -_-;;;;;;
my $input;
my $method = $ENV{'REQUEST_METHOD'};
if ($method eq 'POST')
{
binmode(STDIN);
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
}
else
{
$input = $ENV{'QUERY_STRING'};
}
my $pair;
my($key, $val, %in);
foreach $pair (split /&/, $input) {
$pair =~s/\+/ /g;
($key, $val) = split(/=/, $pair, 2);
$key =~ s/%(..)/pack("H2",$1)/ge;
$val =~ s/%(..)/pack("H2",$1)/ge;
$in{$key} =$val;
}
my $msg_id =$in{'msg_id'};
아래처럼 리스트중 클릭후 내용을 보려 들어가면.. 하나도 데이터들이 하나도 안나와요 -_-;
my ( $title, $name, $email, $message, $uptime, $rcount) = getMessage($dbh, $msg_id);
$rcount ++;
my $sql = "update bbs set count=count+1 where msg_id='$msg_id'";
my $sth = $dbh->prepare($sql) or die print "DBI::errstr\n";
$sth->execute if $sth;
$dbh->disconnect;
my $tbl;
$tbl .=qq!<tr><td>$FF<h3>$title</h3>$FA</td></tr><tr bgcolor="#ffffef"><td>$FF$message$FA</td></tr><tr><td border="right">!;
$tbl .=qq!<table border="0"><tr><td>$FF올린이$FA</td><td>$FF$name<a href="mailto:$email">$email</a>$FA</td></tr><tr><td>$FF올린시각$FA</td><td>$FF:$uptime 조회수;<font color="green">$rcount</font>$FA</td></tr></table>!;
sub getMessage {
my $sth = $dbh->prepare("select msg_id, title, name, email, message, uptime, count from bbs where msg_id = '$msg_id'");
$sth->execute;
my ($msg_id,$title,$name,$email,$message,$uptime,$rcount) = $sth->fetchrow_array;
$sth -> finish;
my $r;
foreach $r (\$name, \$title, \$message ) {
$$r =~ s/&/&/g;
$$r =~ s/>/>/g;
$$r =~ s/</</g;
$$r =~ s/\"/"/g;
}
($title, $name, $email, $message, $uptime, $rcount);
}
106
4,007
2003-12-08 15:58:13
닉네임
