Help for this page

Select Code to Download


  1. or download this
    my %cp = map { my ($label, $list) = (split(/:/), '');
                   $label => [ split /,/, $list ]
                 }
             @ex;
    
  2. or download this
    my %cp;
    foreach (@ex) {
       my ($label, $list) = (split(/:/), '');
       $cp{$label} = [ split /,/, $list ];
    }