- or download this
$db{BB}{industry} = "Drinks Industry";
$db{BB}{supplier}{BB100} = "Coffee Suppliers";
- or download this
my @industrycodes = sort keys %db;
foreach $i (@industrycodes) {
print "$i => $db{$i}{industry}\n";
}
- or download this
my @industrycodes = sort keys %db;
foreach $i (@industrycodes) {
...
print "\t$supplier => $s{$supplier}\n";
}
}
- or download this
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/