Re^2: my 'if' condition doesn't work, why?

[perltux]

This looks like the 'nicest' (from a code readability and compactness point of view) solution to me, shame that it's not standard Perl but instead requires an extra module.

So I have chosen to use
if ($n==40 || $n==47 || $n==76) {
which works fine too (regardless whether I use 'or' or '||').

Many thanks to all who replied for your help.

[Athanasius]

shame that it's not standard Perl but instead requires an extra module

Well, you can get a similar result using List::Util, which is a core module:

#! perl
use strict;
use warnings;
use List::Util 'any';

for my $n (0 .. 267)
{
    print "$n\n" if any { $n == $_ } (40, 47, 76);
}

Update: Fixed off-by-one error in the for loop range, thanks to AnomalousMonk.

Output:

17:34 >perl 1074_SoPW.pl
40
47
76

17:34 >

Hope that helps,

[tobyink]

"shame that it's not standard Perl but instead requires an extra module"

Well, there does exist something similar in core Perl since 5.10: the smart match operator! Example:

if ($n ~~ [40, 47, 76]) {
   ...;
}

However, smart match acts pretty weird in some cases (not the above case), so it is not usually a great idea to use it.