大虾请帮忙(perl代码)

gyuui

#!/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的值为什么为空呢？？？

snss1983

你没有去掉输入的回车。

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

这样就是输出 test1 了

tmp

$i=<STDIN>;
chomp $i;

?

tmp

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

dalian_gq

原帖由 tmp 于 2008-9-15 18:23 发表
2楼 发表于 2008-9-15 18:22  
3楼 发表于 2008-9-15 18:22  

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

gyuui

O了~~~~谢谢哈