nicht angemeldet
Halihallo K@rl
@erg = grep { !/^$/ } split(/(..)/, $string);
*das* ist wirklich originell .. Danke!
.. jedes zweite Elem. ist leer .. und das dann rausgrepen ..
Danke ;)
Der ersten Anregung folgend habe ich es so gemacht:
my $hex = unpack('H*', $str);
$hex =~ s/(..)/$split$1/gc;
(wobei $split den "Abstandhalter" enthält)
Das macht jedoch nicht wirklich dasselbe. Es gibt dir für jedes
Zeichen des Strings die hexadezimale Repräsentation (ASCII-Code)
aus. Willst du das?
Oder war $x, das du am Anfang nanntest genau das $hex von hier?
Hm. Das Backtracking ($1) ist langsam, aber der nachträgliche Aufruf
von grep eben auch... Ja, kannst du mal testen. Ich tendiere zu
deiner Lösung.
Viele Grüsse
Philipp