Perl -> PHP översättning..

Hej,

Kan någon vänlig själ översätta detta till PHP.. ?

while ($_ = <$sock> ) {
		if (/^(\d+)/) { $result = $1; last; }
	}
	$sock->close;
	print $cgi->header."The server response was: $result\n";
}

Samt..

$message =~ s{([&\+%# =])}{hx($1)}ge;

sub hx
{
	my($char) = @_;

	return sprintf "%%%X", ord($char);
}

Tack på förhand!

------------------
/joakim
http://batboy.net/
http://nokiatricks.com/

[Redigerat av Batboy den 20 aug 2000]

Berätta vad koden gör så är det mycket lättare för oss som inte kan Perl att förstå vad du vill göra.

Tack

------------------
- Swey, Moderat
Jag gör vad jag själv vill...

$message =~ s{([&\+%# =])}{hx($1)}ge;
sub hx
{
	my($char) = @_;

	return sprintf "%%%X", ord($char);
}

Den här biten ska iallafall konvertera nämnda tecken (&+%# =) i $message till dess motsvarighet i ASCII.

Första kodsnutten är tänkt att den ska ta emot ett svar från en server. Ungefär som detta:

HTTP/1.1 200 OK
Date: Tue, 25 Jan 2000 19:08:21 GMT
Server: Apache/1.3.9 Ben-SSL/1.37 (Unix)
Connection: close
Content-Type: text/plain
96

Resultatet av perlkoden blir alltså i ovanstående fall "The server response was: 96".

Hmm.. inte speciellt bra förklarat men bättre kan jag inte just nu.

------------------
/joakim
batboy.net
nokiatricks.com

[Redigerat av Batboy den 20 aug 2000]