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

scau_2005

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

luxyi

# Do something

<STDIN>; # waiting for any key

# Do something else

scau_2005

谢谢哦。
不过你这个方法不是对任意键起作用啊，好像只能用enter键。

redicaps

use Term::ReadKey;

ReadMode 'cbreak';
print "Press any key to continue";
my $key = ReadKey 0;

##do something

ReadMode 'restore';

luxyi

哦，对的。<STDIN>需要输入一个回车键的。不好意思。

Lonki

原帖由 redicaps 于 2007-11-26 12:31 发表
use Term::ReadKey;

ReadMode 'cbreak';
print "Press any key to continue";
my $key = ReadKey 0;

##do something

ReadMode 'restore';

方向键无效.
改了下:
use Term::ReadKey;

$| = 1;
print "Press any key to continue...";

ReadMode 4;    # Turn off controls keys
while (! defined ReadKey(-1)) {}
ReadMode 0;    # Reset tty mode

$| = 0;

效果和windows上system('pause');一样


参考
http://search.cpan.org/~jstowe/TermReadKey-2.30/ReadKey.pm

[ 本帖最后由 Lonki 于 2007-11-26 21:01 编辑 ]

G00GLE

可以关闭unix系统的缓冲功能实现这个效果
system "stty cbreak < /dev/tty >& 1";
getc;