string in blöcke aufteilen

[opi]

Hallo Benne,

ich weiß zwar nich, was du da für komische Handstände und Flickflacks machst

dafür habe ich meinen Grund.

aber effizienter geht es z.B. so:

Falsch. Wenn du schon von Effizient sprichst ...

  
Benchmark::cmpthese(-1, {  
        'substr'  =>  sub { for (my $i = 0 ; $laenge > $i ; $i += 4) {  
                               my $val = substr($string,$i,4);  
                               next if $val =~ /^(\s+|)$/;  
                               push @$bloecke, $val;  
                            }  
                      },  
        'split'   =>  sub { @$bloecke = grep { /^\S+$/ } split /(\S{1,4})/, $string; }  
});  

Rate  split substr
split   9135/s     --   -55%
substr 20210/s   121%     --

substr ist doppelt so schnell.

Greez,
opi