Help for this page

Select Code to Download


  1. or download this
    perl -MSymbol -MData::Dumper -wE '
    {my $x=gensym; print Dumper $x};
    {my $y=gensym; print Dumper $y};
    my $z=gensym; print Dumper $z;
    print $x, $y'
    
  2. or download this
    Name "main::x" used only once: possible typo at -e line 1.
    Name "main::y" used only once: possible typo at -e line 1.
    ...
    $VAR1 = \*Symbol::GEN2;
    Use of uninitialized value $x in print at -e line 1.
    Use of uninitialized value $y in print at -e line 1.