14 lines
402 B
Perl
14 lines
402 B
Perl
|
%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};
|
||
|
|
}
|