Skip to content

Instantly share code, notes, and snippets.

@jsarenik

jsarenik/p.pl

Created April 29, 2014 07:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jsarenik/11392615 to your computer and use it in GitHub Desktop.
Save jsarenik/11392615 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
p.pl
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