Help for this page

Select Code to Download


  1. or download this
    my %h1 = qw{a 1 b 2};
*h2 = \%h1;             # Create and initialise glob
print %h2, "\n";        # Access hash referenced by glob
  2. or download this
    my %h1 = qw{a 1 b 2};
*h2 = \%h1;             # Create and initialise glob
print %{*h2}, "\n";     # Access hash referenced by glob
  3. or download this
    my %h1 = qw{a 1 b 2};
my $glob = *h2;         # Create glob
*$glob = \%h1;          # Initialise glob
print %$glob, "\n";     # Access hash referenced by glob
  4. or download this
    sub new_glob { return local *X }

...
my $glob = new_glob();  # Create glob
*$glob = \%h;           # Initialise glob
print %$glob, "\n";     # Access hash referenced by glob