You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
402 B
Perl
14 lines
402 B
Perl
5 years ago
|
%officer= ("NAME"=> "A",
|
||
|
|
"SSN" => "123456",
|
||
|
|
"DOB" => "05/19/2009"
|
||
|
|
);
|
||
|
|
|
||
|
|
@info=qw(Tom Jack 50000);
|
||
|
|
@officer{'BRANCH', 'TITLE', 'SALARY'}=@info;
|
||
|
|
@sliceinfo = @officer{'NAME','BRANCH','TITLE'};
|
||
|
|
print "new value: @sliceinfo\n\n";
|
||
|
|
|
||
|
|
foreach $key ('NAME', 'SSN', 'DOB', 'BRANCH', 'TITLE', 'SALARY'){
|
||
|
|
printf "Key: %-10sValue: %-15s\n", $key, $officer{$key};
|
||
|
|
}
|