OK, noodled with this some more. This worked:
use Data::Dumper qw(Dumper); use warnings; use strict; my $hash; { local $/; $hash = <DATA>; } my $VAR1; eval $hash; print keys %$VAR1; __DATA__ $VAR1 = { 'blah.com' => [ '212.235.56.176' ], 'blah.org' => [ '212.235.56.176' ], 'www.boo.org' => [ '212.235.56.176' ], };
Originally, I was using eval like I was running a block of code, but that's not what I wanted.
$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks
In reply to Re: unable to eval dumped hash
by nysus
in thread unable to eval dumped hash
by nysus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |