Thread Unicode
(8 answers)
Opened by Togad at 2007-10-05 15:24
Ok in der zwischen Zeit habe ich es geschaft mit use Encode und binmode meine Datei so umzuwandeln, wie ich sie brauche. Jetzt habe ich ein weiteres Problem.
Wie kann ich das ganze machen ohne Encode zu verwenden? Das Programm soll auf perl 5.6.1 laufen. Wenn ich mir die Dateien im Hex modus angucke, dann muss ich einfach nur hinter jedes Zeichen ( zwei Hexa Ziffern zB. 43) zwei Hexadezimale nullen schreiben. aus 43 3A 5C 68 soll also 43 00 3A 00 5C 00 6B 00 werden. Ich habe gerade versuch das mit einem Reg ausdruck zu lösen, aber das funktioniert anscheinend nicht. Code (perl): (dl
)
1 2 3 4 5 binmode(OUT); while (my $line =<IN>) { $line =~ s/(x..)/$1x00/; print (OUT $line); Könnt ihr mir da Helfen?? |