Help for this page

Select Code to Download


  1. or download this
      my %hash = ( key => 'value');
  my $k_ref = \$hash{key} ;
...
    print "val: <$val>\n" ;
    print "key: <$hash{key}>\n" ;
  }
  2. or download this
    val: <value>
key: <value>
val: <test>
key: <value>
  3. or download this
        my $saved= *main::val{SCALAR};
    *main::val= do { my $new; \$new };
    ...
    *main::val= $saved;