Help for this page

Select Code to Download


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