Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
print "k='$k' v='".ifdef($v)."'";
($k, $v) = each %h_tied_2;
print "k='$k' v='".ifdef($v)."'";
  2. or download this
    -------------------- untied hash works fine
k='unt_b' v='22'
...
TIED_HASH_2 NEXTKEY scalar
x='t_2_a' y='11'
k='11' v='undef'