Help for this page

Select Code to Download


  1. or download this
    @keys = qw(one two five);
unshift @keys,'four';
...
} else {
    print "nope\n";
}
  2. or download this
    four one two five
yep
one two five two
nope
  3. or download this
    if ( grep{ exists( $hash{$_} ) } @keys ) { 
    print "yep\n";
} else {
    print "nope\n";
}