Perl-Code eq. PHP - #133981 (Allgemeines zu Perl)

MartinR

2010-03-03 12:43

User since
2004-06-17
305 Artikel
BenutzerIn
[default_avatar]

Ich habe folgenden PHP-Code zu dem ich eine "Übersetzung" in Perl benötige. Vieleicht kann mir ja jemand unter die Arme greifen. Danke

Code: (dl )

function hex2bin($data) {
	$len = strlen($data);
	for($i=0; $i<$len; $i+=2) {
		$newdata .= pack("C",hexdec(substr($data,$i,2)));
	}
return $newdata;
}