Hallo,Du mußt einfach die vorliegende Hex-Folge in einen String umwandeln:
Du hast:
my $szHexFolge='80 80 AA 04 02 01 01 00';
ersetze :
$szHexFolge =~ s/\G([0-9A-F]{2})\s*/'\x'.$1/ieg;
print $szHexFolge;
-> '\x80\x80\xAA\x04\x02\x01\x01\x00'
jetzt noch die HexFolge in einen String umwandeln:
my $szSendeString;
eval ( "\$szSendeString=\"$szHexFolge\"" );
Datum: 24.10.2006-06:45
