Perl cgi를 php로 포팅중입니다. 이 함수좀 도와주세요..

펄에서 직접 작성한 부분이 거의 몽땅 php에서 제공되는군요.
웹용 스크립트니 당연한거겠죠.

이것 하나 추가로 넣으시고,

function apply_all(&$arrtext, $callback, $function)
{
	if(is_array($arrtext)) {
		array_walk($arrtext, 'apply_all', $function);
	} else {
		$arrtext = $function($arrtext);
	}

	return true;
}

function DECODE()
{
	array_walk($_POST, 'apply_all', 'urldecode');
	array_walk($_POST, 'apply_all', 'htmlspecialchars');
	array_walk($_POST, 'apply_all', 'nl2br');

$name 으로 받아와서 $in{'name'} 으로 처리 하도록 되어 있는데,
php 는 $_POST['name'] 으로 받아오니 $_POST 변수를 그냥 쓰는것을 추천합니다.
수퍼글로벌이라 펄에서 처럼 리턴 없이 그냥 사용하면 됩니다.
변수 할당 부분까지 그대로 한다면 처음에 global 선언을 해 줘야 하는 등의 불편함이 있습니다.
저 함수 내용으로는 post 되는 전체 변수도 모르는데, 알아봐야 하는 귀찮음 까지 있겠네요.

------------------

${'in' + 'url'}
${'in' + $name}

이런 표현이 가능합니다.

$_REQUEST로 하시면... variables_order지시자(기본값 EGPCS)에 따라 쿠키나 세션 변수가 적용될 위험이 있습니다

변수표현은... 긴가민가했는데 php에서 그렇게 해도 되는군요 감사 :)

$_POST['name'] = 'value' 가 이미 할당 되어 있습니다.
parse_str() 은 오류가 날겁니다.

array_walk() 는 배열 전체에 한번에 적용되는것입니다.
루프 안에서 사용할 것이 아닙니다.

return 값을 넘겨야 하므로,
수퍼글로벌인 $_POST 를 그냥 사용할 것을 권해드렸습니다.
저대로는 $mode, $cookie_pass, $cookie_id 가 return 이 안됩니다.

$pairs = &${'_'.$_SERVER['REQUEST_METHOD']}; (포인터 비슷)

이렇게 하고 내부의 $_POST 를 $pairs 로 교체하면 나름 깔끔 하겠습니다.

foreach($pairs as $key => $value) {}

$pairs = &${'_'.$_SERVER['REQUEST_METHOD']};
이것을 맨위 if 문 대신 사용하세요.

DECODE 가 함수잖아요.
$mode = $pairs['mode'];
이렇게 놓고 끝내면 $mode 값은 없어집니다.
$pairs['mode'] == $_POST['mode'] 이고,
$_POST 는 함수 밖에서도 사용할 수 있는 전역변수라서
그것을 그냥 이용하시라는 것입니다.

함수 밖에서도 $pairs = &${'_'.$_SERVER['REQUEST_METHOD']};

하면 $pairs['mode'] 로 이용할 수 있습니다.

일괄삭제에서 $name 은 $key 죠.

$DEL[] = $value;
하면 됩니다.

$DEL 은 return 되어야 겠습니다.
없어지니까요.