2 svar · 182 visningar · startad av Batboy
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!
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
$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.