[ mmsns @ 23.10.2008. 19:26 ] @
Pozdrav,

treba mi funkcija u perlu koji bi mi uradila hex2ascii
a zatim dobijeni string convertovala iz UCS2 u UTF-8
kodni raspored... :)

Imam napisano u PHP-u i evo kako zvuci:

function hex2ascii($hex) {
$p = '';
for ($i=0; $i < strlen($hex); $i=$i+2)
{
$p .= chr(hexdec(substr($hex, $i, 2)));
}
return $p;
}

pokrenem funkciju:
$msg2 = hex2ascii($msg);

a zatim konvertujem u utf8:
$msg2 = mb_convert_encoding($msg, "UTF-8", "UCS2");

to sve lepo radi u php-u ali treba mi verzija u perlu...

bio bih vam vrlo zahvalan duznik...
[ ventura @ 23.10.2008. 21:28 ] @
Nisam baš upoznat sa UTF-8 konverzijama i sl., ali ovo bi trebalo da ti da barem neku ideju ako ništa drugo:

Code:

#!/usr/bin/perl

use Encode;

$msg = "456C6974655365637572697479";

sub hex2ascii {
    my $string = shift(@_);

    $duzina = length($string);

    for $num (0..$duzina){
    next if $num % 2;
    $rez = substr($string, $num, 2);
    $karakter = chr(hex($rez));
    $asciiniz = join('', $asciiniz, $karakter);
    }    

    return $asciiniz;
}

$msg2 = hex2ascii($msg);

$msg2 = Encode::decode('iso-8859-1', $msg2);

print $msg2;