10 lines
344 B
Perl
10 lines
344 B
Perl
|
#Format: exists $ASSOC_ARRAY{KEY}
|
||
|
|
|
||
|
|
#!/usr/bin/perl
|
||
|
|
%employees=("Tester" => "Joe",
|
||
|
|
"Coder" => "Teddy",
|
||
|
|
"Clerk" => "Tom",
|
||
|
|
);
|
||
|
|
print "exists.\n" if exists $employees{"Tester"};
|
||
|
|
print "The Clerk exists.\n" if exists $employees{"Clerk"};
|
||
|
|
print "The Boss does not exist.\n" if not exists $employees{"Boss"};
|