Hallo Frank,
habe es schon mit
@bloecke=split /(.{4})/,$string;
probiert, aber das liefert auch leere elemente zurueck.
nun weil Leerzeichen auch Zeichen.
Wie wäre es hiermit:
# deinem split Beispiel
foreach ( split /(.{4})/, $string ) {
next if /^\s+$/;
s/^\s+//;
s/\s+$//;
push @bloecke;
}
# oder mit substr
my $len = length($string)/4;
for (my $i = 0 ; $len < $i ; $i += 4) {
push @bloecke, substr($string,$i,4);
}
Die substr Variante habe ich nicht getestet, aber der Ansatz sollte
stimmen.
Greez,
opi
--
Selfcode: ie:( fl:( br:^ va:) ls:] fo:) rl:( n4:? ss:| de:] ch:? mo:|
Selfcode: ie:( fl:( br:^ va:) ls:] fo:) rl:( n4:? ss:| de:] ch:? mo:|