大虾请帮忙(perl代码)

#!/usr/bin/perl
$var1="test1";
$var2="test2";
$var3="test3";
$i=1;
$num="var$i";
$var=$$num;
print $var;

屏幕输出 test1

----------------------------

#!/usr/bin/perl
$var1="test1";
$var2="test2";
$var3="test3";
$i=<STDIN>;
$num="var$i";
$var=$$num;
print $var;

屏幕没有任何输出
打印$num值为var1(键盘输入1)

请教通过键盘输入$i之后$var的值为什么为空呢？？？

你没有去掉输入的回车。

$var1="test1";
$var2="test2";
$var3="test3";
$i=<STDIN>;
chomp($i);
$num="var$i";
$var=$$num;
print $var;

这样就是输出 test1 了

$i=<STDIN>;
chomp $i;

?

2楼 发表于 2008-9-15 18:22  
3楼 发表于 2008-9-15 18:22  

楼上怎么做到的?不是不允许30秒内连续发贴吗?

O了~~~~谢谢哈