#!/usr/bin/perl
print "________________________\n";
system("cat pl5.dat");
print "________________________\n";
open(IN,"<pl5.dat") or die;
while() {
chomp;
($a,$b)=split;
$work{$a}=$b;
}
print "\nKeys are: ";
print join(":",(keys %work))."\n";
print "\nValues are: ";
print join(":",(values %work))."\n";
print "\nKey => Value pairs\n";
while(($a,$b)=each %work) {
print $a."=>".$b."\n";
}
delete $work{"red"};
if(exists ($work{"red"}))
{
print "\nred here\n";
} else {
print "\nred gone\n";
}
%werk=reverse %work;
print "\nKey => Value pairs\n";
while(($a,$b)=each %werk) {
print $a."=>".$b."\n";
}
|
________________________
red apple
blue berry
green pear
orange orange
purple grape
________________________
Keys are: green:blue:purple:orange:red
Values are: pear:berry:grape:orange:apple
Key => Value pairs
green=>pear
blue=>berry
purple=>grape
orange=>orange
red=>apple
red gone
Key => Value pairs
orange=>orange
berry=>blue
pear=>green
grape=>purple
|