Help for this page

Select Code to Download


  1. or download this
    my $globref = \*GLOB;
*$globref = 1;
print $globref, "\n"; # prints GLOB(0x.......)
  2. or download this
    my $globref = \*GLOB;
*$globref = \1;
print $globref, "\n"; # prints GLOB(0x.......)
  3. or download this
    my $globref = \do { local *GLOB };
*$globref = \1;
print $globref, "\n"; # prints REF(0x.......)