27 lines
581 B
Perl
27 lines
581 B
Perl
%hash = ( Karl => 2,
|
|
Joe => 3,
|
|
Shawn => 0,
|
|
Paul => 1,
|
|
Bill => undef );
|
|
|
|
# obtain the list of hashKeys and display each key-value pair
|
|
@hashKeys = keys( %hash );
|
|
|
|
for ( $i = 0; $i < @hashKeys; ++$i ) {
|
|
print "$hashKeys[ $i ] => $hash{ $hashKeys[ $i ] }\n";
|
|
}
|
|
|
|
|
|
delete( $hash{ 'Joe' } );
|
|
|
|
while ( $key = pop( @hashKeys ) ) {
|
|
print "\n";
|
|
|
|
# determine if the value for the key is true or false
|
|
if ( $hash{ $key } ) {
|
|
print "$key is true.\n";
|
|
}
|
|
else {
|
|
print "$key is false.\n";
|
|
}
|
|
} |