Skip to content

Instantly share code, notes, and snippets.

@jsarenik jsarenik/p.pl
Created Apr 29, 2014

Embed
What would you like to do?
use warnings;
use Data::Dumper;
sub a { 5 };
%a = (a=>1,'b',2);
@b = ('a'=>1=>'b'=>2);
print Dumper %a;
#print $a{'a'},"\n";
print Dumper @b;
print $b[3],"\n";
$obj = bless({'unique_id'=>'123', 'attr'=> {'col' => 'black', 'things' => [qw(this that etc)]}}, 'MY_class');
print Dumper $obj;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.