请假下如何用perl写提问式的函数写入

来源：百度知道 编辑：UC知道 时间：2024/06/12 18:17:59
就是说我想用perl写一个程序
其定义字段A 可以选择多个固定输入.比如说 A(a,b,c)
然后运行时会出现提示.您要选择的A为a,b,c? 选择其中一个输入
输入之后才会在文件中产生结果.
这样的程序应该如何写

你试试运行下面的程序看看吧：

#!c:/perl/bin/perl.exe
%ch=("a","猴子",
"b","猩猩",
"c","大象");
while (1){
foreach $key (keys %ch){print "$key\t$ch{$key}\n";}
print "请选择你喜欢的动物:";
$select=<stdin>;
chop($select);
if (exists($ch{$select})) {print "你输入的是:$select,表示你选择了:$ch{$select}\n";}
else {printf "你输入的$select,选择无效\n";}
}

稍加修改你就可以用了。