---
title: "Perl -> PHP översättning.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/php/14733-perl-php-översättning"
topic: "PHP"
topic_url: "https://www.webforum.nu/amne/php"
author: "Batboy"
published: "2000-08-19T19:06:00.000Z"
updated: "2000-08-20T14:36:00.000Z"
replies: 2
views: 182
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/php/14733-perl-php-översättning"
---

# Perl -> PHP översättning..

## #1 — Batboy, 2000-08-19T19:06Z

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!

Permalänk: https://www.webforum.nu/p/14733

## #2 — Swey, 2000-08-20T14:19Z

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

Permalänk: https://www.webforum.nu/p/311838

## #3 — Batboy, 2000-08-20T14:36Z

```
$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.

Permalänk: https://www.webforum.nu/p/311839

---

Tråden på webben: https://www.webforum.nu/amne/php/14733-perl-php-översättning