Dashboard
PHP:
8.2.33
OS:
Linux
User:
myhost
/
/
usr
/
share
/
doc
/
perl-Hash-FieldHash
/
example
📤 Upload
📝 New File
📁 New Folder
Close
Editing: simpleuse.pl
#!perl -w use strict; use Hash::FieldHash qw(:all); use Data::Dumper; fieldhashes \my(%foo, %bar);; { my $o = [42]; my $x = {}; $foo{$o} = 3.14; $bar{$o} = 1.14; $foo{$x} = 'x.foo'; $bar{$x} = 'x.bar'; print "inside the scope:\n"; print Data::Dumper->Dump([\%foo, \%bar], [qw(*foo *bar)]); #my $y = $o; #use Devel::Peek; Dump $y; } print "outside the scope:\n"; print Data::Dumper->Dump([\%foo, \%bar], [qw(*foo *bar)]);
Save
Cancel