펄 - 제 18강 예 2

앞서 작성한 스크립트에서는 CGI의 "이름/값"의 쌍을 포함하는 문자열을 배열로 저장했었다. 이제 나중에 쉽게 조작하기위해 이들을 처음부터 끝까지 반복, 연관배열에 저장하자.

	foreach $pair ( @cgiPairs ) { 
		($var,$val) = split("=",$pair); 
		#이하는 믿고 따라주기 바란다. 
		$val =~ s/\+/ /g; 
		$val =~ s/%(..)/pack("c",hex($1))/ge; 
		$cgiVals{"$var"} = "$val"; 
	} 
	$recipient = $cgiVals{"to"}; 

4행에서 사용한 기법은 URL에서 허용되지 않는 특수한 문자를 해석하는 방법이다. 지금은 단지 믿고 사용하자.