Re: Dividing a string into multiple substrings of different length

[BrowserUk]

This:

my $BoardTotal = $B10->to_base(substr($DC,0,4));
my $AvgSample = $B10->to_base(substr($DC,4,2));
my $Level = $B10->to_base(substr($DC,6,2));
my $Exp = $B10->to_base(substr($SC,8,5));
my $Fails = $B10->to_base(substr($DC,13,2));

Can also be done like this:

my( $BoardTotal, $AvgSample, $Level, $Exp, $Fails ) = map $B10->to_bas
+e( $_ ), unpack 'A4 A2 A2 A5 A2', $DC;