http://qs321.pair.com?node_id=69540


in reply to Why does this happen?

Update: This is bad advice - It doesn't work. See merlyn reply below.

This works on my system: 
use strict;

print "What is your insult? ";
chomp(my $input = <>);

my @matching = qw/disk duck deck/;

if ($input eq $matching[0||1||2]) {die "bastard\n"};

[download]


$ perldoc perldoc

Replies are listed 'Best First'.
Re: Re: Why does this happen?
by merlyn (Sage) on Apr 04, 2001 at 08:32 UTC 
    if ($input eq $matching[0||1||2]) {die "bastard\n"};

    [download]
    which means exactly the same as: 
    if ($input eq $matching[1]) {die "bastard\n"};

    [download]
    Were you expecting it to mean something different, especially since you said it "works"? In what manner did you mean "works"?

    -- Randal L. Schwartz, Perl hacker

[reply]
[d/l]
[select]
      ahh - I only tested it with $matching[1]. Oops. /me goes red!

      The lesson is... test, test, test - especially if you do something like I did that you've never seen anyone else do (usually for good reason!)

      $ perldoc perldoc
[reply]
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom