a perl question - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Unix - 噫吁兮，危乎高哉

a perl question

a perl question# Unix - 噫吁兮，危乎高哉

s*l2003-04-29 07:04

1 楼

for example, in a for or while loop, if we want to advances to next iteration
only after a key is hit (can be any key). How to do it?
I try getc() like below,but it advances to next iteration only after hitting
the RETURN key
for (;;) {
....
$junk = getc();
....
}
Thanks

p*f2003-04-29 07:04

2 楼

Term::ReadKey
http://search.cpan.org/author/JSTOWE/TermReadKey-2.21/ReadKey.pm

【在 s*l 的大作中提到】

: for example, in a for or while loop, if we want to advances to next iteration
: only after a key is hit (can be any key). How to do it?
: I try getc() like below,but it advances to next iteration only after hitting
: the RETURN key
: for (;;) {
: ....
: $junk = getc();
: ....
: }
: Thanks

s*l2003-04-29 07:04

3 楼

Is there any simple solution (eg. several lines of codes) rather than
downloading this Term::ReadKey modules?

【在 p******f 的大作中提到】

:
: Term::ReadKey
: http://search.cpan.org/author/JSTOWE/TermReadKey-2.21/ReadKey.pm

p*f2003-04-29 07:04

4 楼

Term::ReadKey handles all the complex for you, so you can write several
lines of code to fulfill your task.
It is much difficult to do your own, but it is possible. check POSIX
module, and basically you write it as C code.

【在 s*l 的大作中提到】

: Is there any simple solution (eg. several lines of codes) rather than
: downloading this Term::ReadKey modules?