phone2.pl

来自「《Beginning Linux Programming》书的配置实例源代码。」· PL 代码 · 共 6 行

#!/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";