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