phone2.pl

Linux程序设计(原书第2版)BeginningLinuxProgrammingLinux 程序设计(原书第2版)BeginningLinuxProgrammingLinux程序设计(原书第2版)B

#!/usr/bin/perl -w

%phonebook = ( "Bob" => "247305", "Phil" => "205832", "Sara" => "226010" );
print "Sara's phone number is $phonebook{Sara}\n";
print "Bob's phone number is $phonebook{Bob}\n";