Help for this page

Select Code to Download


  1. or download this
    our %h;
my $x = do { local %h=(a=>'3'); \%h };
...
dd \%h;  # {}
dd $x;   # { a => 3 }
dd $y;   # { b => 5 }
  2. or download this
    use Symbol qw/gensym/;
my $foo = gensym;
*$foo->{bar} = 'quz';
dd \%Symbol::GEN0;  # { bar => "quz" }
  3. or download this
    sub gensym { \do{ local *ANONGLOB; *ANONGLOB } }