Anonymous

<?php	// Just some vars	$quote = 0;	$phpstr = "";	// We assume this string holds the perl data	$str = "";	for ($i=0; $i<strlen($str); $i++) {		if (($str[$i] == chr(39) || $str[$i] == chr(34)) && substr($str, $i-1, 1) != chr(92)) {			$quote = ($quote==1?0:1);			$phpstr .= $str[$i];		}		else {			if ($quote == 0) {				if ($str[$i] == '{' || $str[$i] == '[') {					$phpstr .= 'array(';				}				else if ($str[$i] == '}' || $str[$i] == ']') {					$phpstr .= ')';				}				else {					$phpstr .= $str[$i];				}			}			else {				$phpstr .= $str[$i];			}		}	}?>