Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;

my %hash;
print defined( %hash )?"yea":"nay","\n";
  2. or download this
    #!/usr/bin/perl -w
use strict;

my %hash;
print ( %hash )?"yea":"nay","\n";
  3. or download this
    sub all-between {
   my ($min, $max ) = @_;
...
# if ( defined( my @ar = all-between( $arg1, $arg2 ) ) ) {
   print "Your allbetween are " , join( ',', @ar ), "\n";
}