#! /usr/bin/env perl | |
# a standard prefix for modern Perl | |
use 5.014; # implies both `use strict` and `use feature :5.14` | |
use autodie qw< :all >; | |
use warnings FATAL => 'all'; | |
my $arrayref = [ qw< foo bar baz bmoogle > ]; | |
my $hashref = { map { $_ => 1 } @$arrayref }; | |
say 'hash: ', join(', ', keys $hashref); # works fine | |
say 'array: ', join(', ', keys $arrayref); # also works fine | |
my $corresponding_arrayref = $hashref; # oops! | |
foreach (keys $corresponding_arrayref) | |
{ | |
say $arrayref->[$_]; # kaboom! | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment