Help for this page

Select Code to Download


  1. or download this
    my ($k, $g, $a, $v, $f, $c) = split /,/, $line;
if (defined $href->{$v}) {
   $href->{$v} = [ sort uniq @{$href->{$v}} ];
}
  2. or download this
    my ($k, $g, $a, $v, $f, $c) = split /,/, $line;
$href->{$v} = [ sort uniq $a, @{$href->{$v}} ];