펄로 짠건데 여기다 질문해도 되는지 모르겠네요. 죄송합니다. 워낙 급해서....
어제 펄을 처음 접했습니다.
cgi를 이용해서 뭔가를 만들어야 될 일이 생겼는데 펄이 젤 만만해보이더라구요.
T.T
어제 밤새구, 오늘두.... 이틀쨉니다.
프로그램 언어에 젬병인 제가 이정도까지 하다니....
감격스럽기까지 하지만 결과물이 제대루 안나오니... 흑흑흑...
제가 짠 cgi의 전체입니다.
어떻게 동작을 하냐면....
내용이 많은 폼의 정보가 post 형식으로 이 cgi로 날라옵니다.
그러면 그걸 받아서 그중에 있는 oid란 이름을 가진 파일을 /tmp 디렉토리에 만들구요.
그 파일 안에 전체 폼의 내용을 써넣습니다.
글구 받았던 폼을 다시 다른 페이지루 넘겨주는거죠.
파일두 만들어지구, 내용두 써지구, 폼두 잘 날라가는데.....
문제는!!
이 폼의 내용이 이상하게 날아간다는 것이죠.
전부다 인코딩 돼서 날라가야되는데 "-"하구 "."은 그대루 갑니다.
뭔 말이냐면요.
전화번호의 "987-9876" 하구 url의 "www.yahoo.com"의 "-"와 "."은 -, . 같이 안바뀌구 그냥 날라가는거죠.
무슨 말인지 아시겠죠??
정말 급합니다.
저 이러다가 쓰러질지도 몰라요. T.T;
꼭좀 도와주세요.
#!/usr/bin/perl
print "Content-type: text/html
";
&read_parse; #아래꺼 읽어들임.
$OID = $FORM{
OID
}; #form에서 날아온 정보중에 oid를 찾아서 저장해놨구요.
$temp = "/home/cgi-bin/test/tmp/$OID"; #그 이름으로 파일을 만들었습니다. 나중에 불러서 쓸 일이 있어서....
open (ECOIN_TEMP, ">$temp"); #위하고 같구요...(?)
print ECOIN_TEMP "$buffer"; #폼으로 날라온 모든 정보(인코딩 되어있음)를 파일에 저장하구..
close (ECOIN_TEMP); #파일 닫구.
# 이 아래는 거의 정형문(?)
sub read_parse {
if ( $ENV{
REQUEST_METHOD
} eq "POST") {
read(STDIN, $buffer, $ENV{
CONTENT_LENGTH
});
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/ / /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}
#글구 받았던 정보를 특정 url의 asp 파일로 받은걸 그대루 날렸는데....
print <<__END_OF_HTML__;
<HTML>
<head>
<meta http-equiv=
refresh
content="0;URL=<a href="http://www.xxx.net/form.asp">http://www.xxx.net/form.asp</a>?$buffer">
</head>
<BODY>
</body>
</html>
__END_OF_HTML__
106
532
1999-12-11 02:16:06
닉네임
