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:
$ perldoc perldoc
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"};
$ perldoc perldoc
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Why does this happen?
by merlyn (Sage) on Apr 04, 2001 at 08:32 UTC | |
by $code or die (Deacon) on Apr 04, 2001 at 10:17 UTC | |
|
In Section
Seekers of Perl Wisdom