- or download this
$ cat cust
12:10 a america
12:11 b bombay
...
12:13 a australia
2:30 b bhutan
3:40 n neterland
- or download this
#!/usr/bin/perl
open FILE1, "cust" or die;
...
for $loc (sort keys %location) {
print "$loc: @{$location{$loc}} \n";
}
- or download this
a: 12:10 12:13
b: 12:11 2:30
c: 12:12
...
b: bombay bhutan
c: calcutta
n: neterland
- or download this
a: 12:10 12:13 : america australia