- or download this
#!/usr/bin/perl -w
...
my @matching = qw/disk duck deck/;
if ($input eq $matching[0..2]) {die "bastard\n"};
- or download this
Argument "" isn't numeric in array element at ./b line 10, <> line 1.
- or download this
#!/usr/bin/perl -w
...
my @matching = qw/disk duck deck/;
if ($input eq $matching[0]) {die "bastard\n"};