Skip to content

Instantly share code, notes, and snippets.

@yaotti

yaotti/sketch.pl

Created December 18, 2009 09:09
Show Gist options
  • Save yaotti/259391 to your computer and use it in GitHub Desktop.
Save yaotti/259391 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sketch.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Hash::MultiValue;
use XXX;
my $h = [a => 1, a => 2, b => 3];
my $hm = Hash::MultiValue->new(@$h);
YYY $hm;
YYY $hm->get_all('a');
YYY $hm->get('a');
YYY $hm->keys;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment