Help for this page

Select Code to Download


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