Re: split function

[aaron_baugher]

in reply to split function

One thing I've learned here at PerlMonks is that unpack can be very fast at this kind of thing:

abaugher@bannor> perl 992848.pl
          Rate       regexit unpackit
regexit  133333/s       --     -43%
unpackit 234432/s      76%       --

abaugher@bannor> cat 992848.pl
#!/usr/bin/env perl
use Modern::Perl;
use Benchmark qw(:all);

my $p = 'HKTTLDSSRTTTTAABNNRFGHGHGYYH';

cmpthese( 1_000_000, {
        'regexit'  => \&regexit,
        'unpackit' => \&unpackit,
});

sub regexit {
        my @p = $p =~ /.{1,3}/g;
}

sub unpackit {
        my @p = unpack '(A3)*', $p;
}