37,720
社区成员
发帖
与我相关
我的任务
分享
#!/usr/perl/bin/perl
print "Please enter the name of person you known(enter ctral z to quit):\n";
my %person_hash = (
'lucy' => 'qian',
'tina' => 'qi',
'lily' => 'zhang',
);
my @name;
chomp( @name = <STDIN> );
print "name\t\tsurname\n";
while( @name ) #若是此处使用while,程序无结果...
{
print "$_\t\t $person_hash{$_}\n";
}
这就是两个不相同的关键字,C 语言里的 for 和 while 也不能替换着用吧?