Help for this page

Select Code to Download


  1. or download this
    while ( ($key, $value) = each %hash ) {
  ...
}
  2. or download this
    >perl -E"say scalar(  ($x,$y)=()  )"
0
...

>perl -E"say scalar(  ($x,$y)=(undef,undef,undef)  )"
3