Opened by mr-sansibar at 2007-08-02 13:42
mr-sansibar+2007-08-02 17:39:47--was ich ergänzend dazu sagen wollte.
bei den obigen Lösungen wo sie mit unpack1 und unpack2 gelöst worden sind, muss man vorab wissen wie lang ein string sein kann höchsten.
Es soll mir ja egal sein, welche Lösung du nun verwendest, denn das ist
ja hier kein Wettrennen, aber ich bin schon ein wenig enttäuscht, denn
du hast meine Lösung nicht verstanden geschweige es sauber getestet!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my $line = 'x' x 22;
my $len = length($line);
my $size = 4;
my $pos = 0;
while ( my $s = unpack("x$pos A$size", $line) ) {
print "<$s\t>\n";
$pos += $size;
last if $pos >= $len;
}
viele grüße opi