Re: number array with space

[packetstormer]

Another way, will only work for later versions of Perl

#!/usr/bin/perl

use strict;

my @arr = ("making","each","day","of","the","year","1");

while ( my($idx,$val) = each (@arr) ){
        print "Index is: $idx. Value is: $val\n";
        if($val =~ /^\d+$/){
                do_my_function($val)
        }
}


sub do_my_function {
        my $v = shift;
        print "We're in the sub for value: $v\n"
}

EDIT: Not sure what happened with my initial post but the comment I had about the regex was, as pointed out by AnomalousMonk, incorrect!

[AnomalousMonk]

... the ... regex will fail for an element value of say "222test001" ... it would fire the function ...

But the regex doesn't seem to match that string at all, so how would it fire the function?. (Have you been naughty and updated your post without making a note of the change?)

>perl -wMstrict -le
"my $val = '222test001';
 print $val =~ /^\d+$/ ? 'fire' : 'no match';
"
no match