string in array zu x zeichen zerlegen - #116946 (Allgemeines zu Perl)

Gast Gast

2008-12-07 20:05

In zwei Schritten habe ich es jetzt so gemacht:

Code (perl): (dl )

my @data;
my @test = unpack("a8" x (length($str) / 8) , $str);
foreach (@test) {
    my @s = unpack("C" x (length($_) ), $_);
    push (@data, $s[0]); # Erstes Zeichen in Array eintragen
}

Aber das geht doch sicher irgendwie in einem Rutsch.