Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
        }
    printf "The price for a %-10s is %6s\n", $p, $price{$p} // "unknow
+n";
    }

Select or download this

The price for a coke       is   1.25
No full match for product cok
...
The price for a coke       is   1.25
No full match for product sandwitch
The price for a sandwich   is      3