string in blöcke aufteilen

[opi]

Hallo Frank,

entschuldige, aber mein substr Beispiel enthielt einige Fehler!
Dieses Beispiel hier habe ich gerade ausprobiert und es funktioniert
fabelhaft :-)

  
#!/usr/bin/perl  
  
use strict;  
use warnings;  
  
my $string  = "123456789012 ww "; # ww zum Testen der entfernten Leerzeichen  
my $bloecke = [];  
my $laenge  = length($string);  
  
for (my $i = 0 ; $laenge > $i ; $i += 4) {  
   my $val = substr($string,$i,4);  
   $val =~ s/^\s+//;  
   $val =~ s/\s+$//;  
   push @$bloecke, $val;  
}  
  
foreach (@$bloecke) {  
   print "<$_>\n";  
}  

Greez,
opi