Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
__DATA__
k1:asd:v1
k2:asd:v2
  2. or download this
      map {
    my @tmp = split /:/, $_;
    $tmp[0] => $tmp[2];
  } <FILE>