perl如何实现“请按任意键继续。。。”

scau_2005

1^# scau_2005 发表于 2007-11-26 09:56

perl如何实现“请按任意键继续。。。”
请问在perl中如何用代码实现像DOS中的“请按任意键继续。。。”这样的效果？
谢谢大家！

alexru

2^# alexru 发表于 2007-12-25 20:21

print "请按任意键继续……“

my.com.net

3^# my.com.net 发表于 2008-01-02 22:06

后面应该有判断吧--就用.
后面应该有判断吧
就用口头形容一下吧

如果有输出那么就继续,否则就等待

wxy_nudt

4^# wxy_nudt 发表于 2008-02-03 15:29

print "请按任意键继续……“，<STDIN>;

xsir317

5^# xsir317 发表于 2008-02-27 14:25

<STDIN>要等待回车啊。。。

simon2008

6^# simon2008 发表于 2008-02-28 19:56

用getc可以.
用getc可以

simon2008

7^# simon2008 发表于 2008-02-28 20:01

用getc可以.
用getc可以

xsir317

8^# xsir317 发表于 2008-02-29 16:00

system("pause");----.
system("pause");

这样应该就可以了（Windows下）