해피CGI :: [답변] 주소창의 변수

아이디 비밀번호 | 회원가입 | 비밀번호분실

　새로운소식

　FAQ

　웹프로그램

　웹DB

　웹서버

　웹프로그램수정

　해피칼럼

　골드팁

제작의뢰

웹프로그램 판매몰

현재위치: 메인

해피포럼

웹프로그램 : 게시물 읽기

2008-01-09 (01:21:43) from 222.104.51.22

작성인 : HappyCGI

제목 : [답변] 주소창의 변수

[parkhyunt님 원본글]

php에서는 주소창에 a.php?a=10&b=20
이렇게 주면 변수값을 줄 수 있는데

perl에서 쓰일 변수값도
주소창을 통해서 줄 수 있을까요???

가능하다면 조언 부탁드립니다 ^^

안녕하세요. 해피CGI 입니다.

물론 가능하지요 ^^ . php가 엄마 언어가 perl 이랍니다. php의 할매언어는 c가 되겠군요. ^^;;;

아래는 예제코드입니다.

[프로그램코드]
#!/usr/bin/perl
unless ($ENV{'CONTENT_LENGTH'} eq "") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
   ($jname, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $$jname = $value;
}

$work = $ENV{"QUERY_STRING"};
@pairs_end = split(/&/, $work);
foreach $pair (@pairs_end) {
   ($kname, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $END{$kname} = $value;
}

print "content-type:text/html\n\n";
print "$test 는 post값 <br> $END{'test'} 는 get값";