Re: how to split the string into two or three numbers based on certain value.

[thundergnat]

in reply to how to split the string into two or three numbers based on certain value.

It's not really clear what you want if you run out of digits and the last number is less than 32. Maybe something like this will work?

use warnings;
use strict;

my $string = '79899920179';

my @nums;

while (length $string){
    no warnings qw/uninitialized/;    
    my $num;
    $num .= substr($string, 0, 1, '') while (length $string and $num <
+ 32);
    push @nums, $num;
}

print join ', ', @nums;

79, 89, 99, 201, 79

[7stud]

You'll get the same results if you replace 'length $string' with '$string'.

[choroba]

Except for cases where you will not. Try 9049589370.

[7stud]

Ah yes. The string '0' is considered false in perl despite having a length of 1. So if $str = '0', then $str will be considered false in a boolean context where length($str) will be 1 and evaluate to true.

I wonder what the op wants to output for the string '0'? Also, I wonder what the output should be for the string '0123'?