Mega Code Archive

 

Categories / Perl / Hash

 

Hash Slices

%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}; }