Help for this page

Select Code to Download


  1. or download this
    id1    name1 cat1  catname1
id1    name1 cat2  catname2
id2    name2 cat3  catname3
id3    name3 cat1  catname1
id3    name3 cat4  catname4
  2. or download this
    id1    name1 cat1:catname1, cat2:catname2
id2    name2 cat3:catname3
id3    name3 cat1:catname1, cat4:catname4
  3. or download this
    my @val = split(" ",$val);
my $v = join (":", @val);
  4. or download this
    if (exists $hash{$key}) {
    $hash{$key} .= $sep.$v;
...
else {
    $hash{$key} = $v;
}
  5. or download this
    #!/usr/bin/perl

...
id2    name2 cat3  catname3
id3    name3 cat1  catname1
id3    name3 cat4  catname4