Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: index using a range

by rnewsham (Chaplain)
on Jun 13, 2013 at 23:06 UTC ( #1038856=note: print w/replies, xml ) Need Help??


in reply to index using a range

A slight variation on the solution proposed by vsespb, I think this is a little closer to what you want.

my $Str1 = "000001"; my $Index = length($1) if $Str1 =~ /^(0*)[1-9]$/; print "$Index\n";

Replies are listed 'Best First'.
Re^2: index using a range
by romano (Initiate) on Jun 17, 2013 at 15:19 UTC
    I was hoping I could incorporate the range ([0-9] or ^0) directly into the ‘index’ statement.
    $Index – index($Str1, ‘the first non-zero value’);
    but I guess not. So, it needs to be done in 2 statements.

    thanks,

    romano (aka KennB)