Help for this page

Select Code to Download


  1. or download this
    sub _split_options {
    my ($opts) = @_;
...
my %opts = qw( a 1 b 2 c 3 d 4 );
scalar each %opts;
_split_options(\%opts);
  2. or download this
    a = 1
b = 2
...
a = 1
b = 2
d = 4
  3. or download this
    sub _split_options {
    my ($opts) = @_;
...
my %opts = qw( a 1 b 2 c 3 d 4 );
scalar each %opts;
_split_options(\%opts);
  4. or download this
    c = 3
a = 1
...
a = 1
b = 2
d = 4