Help for this page

Select Code to Download


  1. or download this
    if (55 < $age && $age <= 60) ...
  2. or download this
    foreach (keys %insitution_table)
{
     $institution_table{$_}{ages}[$age/5]++;
}
  3. or download this
    my $sample = $insitution_table{$_}{ages}[60/5];
  4. or download this
    my %valid_institutions = map { $_ => $_ } (
      $hospital1,
...
          || "unaffiliated";

$institution_table{$key}{count}++;
  5. or download this
    my %foo = map { $_ => 1 } qw[ foo bar baz ];

my $foo = 'foo';
print "\$foo is in the list\n" if ($foo{$foo});
  6. or download this
    ... $valid_institution{lc($institution)} || ...
  7. or download this
    ... $valid_institution{lc($institution)} && lc($institution) ||  ...