It prints:use warnings; use Data::Dumper; my $slurp = do { local $/; <DATA>; }; eval $slurp; no warnings 'once'; print Dumper( \%hash_of_att_db ); __END__ our %hash_of_att_db = ( '0x40e00600' => { 'attack_type' => 'backdoor', 'attack_port' => '', 'attack_sig' => 'lib/attackprolib/fice-2000.dmp', 'attack_sig_v6' => 'lib/attackprolib/fice-2000.dmp', }, '0x40e00500' => { 'attack_type' => 'backdoor', 'attack_port' => '', 'attack_sig' => 'lib/attackprolib/mpnewdump', 'attack_sig_v6' => 'lib/attackprolib/6_bionet.dump', }, );
$VAR1 = { '0x40e00500' => { 'attack_sig_v6' => 'lib/attackprolib/6_bio +net.dump', 'attack_port' => '', 'attack_type' => 'backdoor', 'attack_sig' => 'lib/attackprolib/mpnewdum +p' }, '0x40e00600' => { 'attack_sig_v6' => 'lib/attackprolib/fice- +2000.dmp', 'attack_port' => '', 'attack_type' => 'backdoor', 'attack_sig' => 'lib/attackprolib/fice-200 +0.dmp' } };
Cheers
In reply to Re: reading the hash information from a file
by fenLisesi
in thread reading the hash information from a file
by phemal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |