33 lines
543 B
Perl
33 lines
543 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
print "\n\n";
|
||
|
|
%priceList = (
|
||
|
|
"A"=>2.92,
|
||
|
|
"B"=>3.31,
|
||
|
|
"C"=>1.00,
|
||
|
|
"D"=>1.01,
|
||
|
|
"E"=>2.87,
|
||
|
|
"F"=>2.56,
|
||
|
|
);
|
||
|
|
|
||
|
|
printAA(%priceList);
|
||
|
|
print "$priceList{'A'}\n";
|
||
|
|
|
||
|
|
%priceList = (
|
||
|
|
1=>28.92,
|
||
|
|
2=>36.31,
|
||
|
|
3=>124.00,
|
||
|
|
4=>178.01,
|
||
|
|
5=>205.87,
|
||
|
|
6=>24.56,
|
||
|
|
);
|
||
|
|
print "Or like this $priceList{1} \n\n";
|
||
|
|
|
||
|
|
printAA(%priceList);
|
||
|
|
sub printAA {
|
||
|
|
my %myPriceList = @_;
|
||
|
|
foreach $key (keys(%myPriceList)){
|
||
|
|
print "$key is $priceList{$key}\n";
|
||
|
|
}
|
||
|
|
print "\n\n";
|
||
|
|
}
|