新手求教perl：怎么让perl读取键盘输入？

owen_1100

小骆驼书上的习题编程如下：
#!/usr/bin/perl -w
print"Enter first number:";
chomp($one=<STDIN>);
print"Enter second number:";
chomp($two=<STDIN>);
$result=$one*$two;
print"The result is $resulet.\n";
我用DzSoft Perl Editor5.8点运行之后，出的结果为：Enter first number:Enter second number:The result is .  可关键是它没让我键盘输入呀！求赐教！
谢谢各位前辈达人！

huzikan

1. chomp($one=<STDIN>);

复制代码

这一句是接收终端输入的语句吧，chomp函数把输入的换行符去掉。是不是操作系统的问题？运行之后就直接输出结果了，没有停顿么？

owen_1100

回复 2# huzikan
我用的是XP，运行之后就直接出结果，也没见停顿啥的，只是没有什么提示说要键盘输入啥的……


   

jason680

回复 1# owen_1100

your code have some issue

C:\bat>input.pl
Name "main::resulet" used only once: possible typo at C:\bat\input.pl line 7.
Name "main::result" used only once: possible typo at C:\bat\input.pl line 6.
Enter first number:123
Enter second number:456
Use of uninitialized value $resulet in concatenation (.) or string at C:\bat\inp
ut.pl line 7, <STDIN> line 2.
The result is .

### modify issue and get result on Windows XP, as below:   
### print"The result is $result.\n";

C:\bat>input.pl
Enter first number:123
Enter second number:456
The result is 56088.

C:\bat>perl -v

This is perl 5, version 14, subversion 3 (v5.14.3) built for MSWin32-x86-multi-t
hread
   

owen_1100

回复 4# jason680

呵呵，新手，暂时还未看懂，先致谢！慢慢理解……


   

wand65

print"The result is $resulet.\n"; #应该为$result;

在编辑器下面运行不会让你去输入，所有不会有你想要的结果。

.在你code的最后一行加上 system 'pause'; 保存。直接双击运行file.pl或者在命令提示行中运行file.pl

1. #!/usr/bin/perl -w
   
2. print"Enter first number:";
   
3. chomp($one=<STDIN>);
   
4. print"Enter second number:";
   
5. chomp($two=<STDIN>);
   
6. $result=$one*$two;
   
7. print"The result is $result.\n";
   
8. system 'pause';

复制代码