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

scau_2005

UID: 15125
帖子: 99
积分: 227
在线时间: 13 小时

1^# scau_2005 发表于 2007-11-26 10:41

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

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

luxyi

UID: 41524
帖子: 133
积分: 305
在线时间: 1 天

2^# luxyi 发表于 2007-11-26 11:07

# Do something

<STDIN>; # waiting for any key

# Do something else

scau_2005

UID: 15125
帖子: 99
积分: 227
在线时间: 13 小时

3^# scau_2005 发表于 2007-11-26 11:15

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

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

4^# 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';

luxyi

UID: 41524
帖子: 133
积分: 305
在线时间: 1 天

5^# luxyi 发表于 2007-11-26 14:22

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

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

6^# Lonki 发表于 2007-11-26 20:57

QUOTE:

原帖由 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

G00GLE

UID: 1347
帖子: 1
积分: 2
在线时间: 10 分钟

7^# G00GLE 发表于 2007-12-09 16:10

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