Help for this page

Select Code to Download


  1. or download this
    sub IsMember {
my %Set = ( 'age' => 1, 'old' => 1, 'years' => 1);
return $Set{$_[0]};
}
  2. or download this
    {
my %Set = ( 'age' => 1, 'old' => 1, 'years' => 1);
...
return $Set{$_[0]};
    }
}
  3. or download this
    sub IsMember {
return $_[0] =~ m/age|old|years/;
}