Help for this page

Select Code to Download


  1. or download this
    my $foo;
    my %hash;
    $hash{'$foo'}=\$foo;
    sub1 (\%hash);
    
  2. or download this
    sub sub1{
    my $ref_from_global = shift;
    my $foo=${$$ref_from_gloabl{'$$foo'}};
    }
    
  3. or download this
    sub sub1 {
    my $dat_ref = shift;
    my $code_ref = shift;
    eval {&\code_ref);
    }