서버:쌈바
환경은 로컬에서 하고 있구요......
예를 들어서.....
이렇게 하고 웹에서 실행시키고 값을 입력하면
그냥 cgi소스가 텍스트 형식으로
그냥 출력 됩니다.
#!c:\Perl\bin\perl.exe
$length=$ENV{'CONTENT_LENGTH'};
if($length) {
read(STDIN,$vals,$length);
} else {
$vals=$ENV{'QUERY_STRING'};
}
@namevalue=split(/&/,$vals)
foreach $tmp (@namevalue) {
($name,$value)=split(/=/,$tmp,2);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("c",hex($1))/ge;
$values{$name}=$value;
}
print "$values{'irum'}
";
print "$values{'pass'}";
아시는 분은 이유를 알려주세요......
.
99
1,509
2002-10-06 23:43:11
닉네임
