Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
1, XYZ, desc, PDF
1, XYZ, desc, QFZ
2, YGH, desc, LMN
  2. or download this
    my %AB;
while (<DATA>) {
...
for my $id (sort keys %AB) {
    print "$id, $AB{$id}{name_desc}, ", join(',', @{$AB{$id}{app}}), "
+\n";
}
  3. or download this
    1, XYZ, desc, PDF,QFZ
2, YGH, desc, LMN