习鞘10-2.txt

< linux网络编程工具>>配套源码

%recordOne = ( "Name"    => "Jane Hathaway",
               "Address" => "123 Anylane Rd.",
               "Town"    => "AnyTown",
               "State"   => "AnyState",
               "Zip"     => "12345-1234"
);
%recordTwo = ( "Name"    => "Kevin Hughes",
               "Address" => "123 Allways Dr.",
               "Town"    => "AnyTown",
               "State"   => "AnyState",
               "Zip"     => "12345-1234"
);
@database = ( \%recordOne, \%recordTwo );
print( %{$database[0]}->{"Address"} . "\n");
print( %{$database[1]}->{"Address"} . "\n");