Re: Matching numeric value between two digits

How's this?

use warnings;
use strict;

for (qw(1 2 3 4 20.5 97 -5)) {
    if (($_ >= 1) and ($_ <= 75) and (!/\./)) {
        print "$_ yes\n";
    }
    else {
        print "$_ no\n";
    }
}

__END__

1 yes
2 yes
3 yes
4 yes
20.5 no
97 no
-5 no
[download]

Comment on Re: Matching numeric value between two digits Download Code

Replies are listed 'Best First'.
Re^2: Matching numeric value between two digits by shadowfox (Beadle) on Feb 04, 2013 at 22:44 UTC
The code works, just not in my context, which is much the same as mine, it seems to be something with pulling the value from between the keywords and putting it in $1 but that's what I need in this case. Toying a bit more I ended up with this, which works for my need even if a bit clumsy, can anyone shed light on why it needs to be set in a new variable? The same digit check used in the primary check on $1 just won't work for me but this does. `if ($_ =~ /\something(.*)somethingelse/i){ if (($1 >= 1) and ($1 <= 75)) { $a = $1; if ($a =~ /^\d+$/){ ... } } }` [download]	[reply] [d/l]
Re^3: Matching numeric value between two digits by Crackers2 (Parson) on Feb 04, 2013 at 23:27 UTC
You weren't doing the check on $1 in your original code. `if($1 => 1 and $1 <= 75 and /\d{1}-\d{2}/) { ... }` [download] The `/\d{1}-\d{2}/` is done on $_, not $1. BTW you could just do the whole-number check right away: `if ($_ =~ /\something(\d*)somethingelse/i){ if($1 => 1 and $1 <= 75) { ... } }` [download]	[reply] [d/l] [select]