Help for this page

Select Code to Download


  1. or download this
    ($x eq $y)
  2. or download this
    ((defined($x) && defined($y) && ($x eq $y))
     || (!defined($x) && !defined($y))
  3. or download this
    my $foo = {
     aa => { O => 'zz',  C => 'yy'  },
     bb => { O => 'xx',  C => 'xx'  },
...
     gg => { O => 0,     C => 0     },
     hh => { O => undef, C => 0     },
};
  4. or download this
    sub f
{
        my ($h) = @_;
...
                        : defined($h->{$_}->{C}))
        } keys %$h
}