http://www.perlmonks.org?node_id=670944


in reply to Re: The strangest use of unlink I know of
in thread The strangest use of unlink I know of

The cute thing here is that the hash is initialized with a list of one item, a reference to an empty hash. So:

$ perl -e '%foo = {}; print %foo, "\n";' HASH(0x814dc30)

and (note the trailing comma, indicating an undefined value):

$ perl -e '%foo = {}; print join(",", %foo), "\n";' HASH(0x814dc30),

--
print "Just Another Perl Adept\n";