Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -l
use strict;
...
my %h = qw(k1 v1 k2 v2);

print Dumper [ unzip {[$_[0],$_[1]]} 2, @{[%h]} ];
  2. or download this
    #! /usr/bin/perl -l
use strict;
...
my %h = qw(k1 v1 k2 v2);

print Dumper [ unzip {[$_->[0],$_->[1]]} 2, @{[%h]} ];
  3. or download this
    #! /usr/bin/perl -l
use strict;
...
my %h = qw(k1 v1 k2 v2);

print Dumper [ unzip sub {[$_->[0],$_->[1]]}, 2, %h ];