37,719
社区成员
发帖
与我相关
我的任务
分享Perl Sleep时间
请问perl中可以让程序sleep 500毫秒吗？
我在脚本中写：
map {
sleep（0.5);
} 1 .. 100;
我想让它sleep 0.5s，共100次，就是总共sleep 50秒，
但是程序是一瞬间就执行完了，sleep(0.5)不能达到效果。
我在脚本中写：
map {
sleep（0.5);
} 1 .. 100;
我想让它sleep 0.5s，共100次，就是总共sleep 50秒，
但是程序是一瞬间就执行完了，sleep(0.5)不能达到效果。
...全文
请发表友善的回复…
发表回复
fibbery 2010-10-30
- 打赏
- 举报
[Quote=引用 4 楼 zuo_shen 的回复:]
ls的资料是哪里查的啊？
[/Quote]
perldoc -f sleep
ls的资料是哪里查的啊？
[/Quote]
perldoc -f sleep
codesnail 2010-10-29
- 打赏
- 举报
[Quote=引用 4 楼 zuo_shen 的回复:]
ls的资料是哪里查的啊？
[/Quote]
perldoc
ls的资料是哪里查的啊？
[/Quote]
perldoc
zuo_shen 2010-10-29
- 打赏
- 举报
ls的资料是哪里查的啊？
fibbery 2010-10-28
- 打赏
- 举报
sleep 需要整数类型的参数，所以，0.5就是0，所以，循环100次也没效果。
fibbery 2010-10-28
- 打赏
- 举报
sleep EXPR
sleep Causes the script to sleep for (integer) EXPR seconds, or
forever if no argument is given. Returns the integer number of
seconds actually slept.
May be interrupted if the process receives a signal such as
"SIGALRM".
eval {
local $SIG{ALARM} = sub { die "Alarm!\n" };
sleep;
};
die $@ unless $@ eq "Alarm!\n";
You probably cannot mix "alarm" and "sleep" calls, because
"sleep" is often implemented using "alarm".
On some older systems, it may sleep up to a full second less
than what you requested, depending on how it counts seconds.
Most modern systems always sleep the full amount. They may
appear to sleep longer than that, however, because your process
might not be scheduled right away in a busy multitasking system.
For delays of finer granularity than one second, the Time::HiRes
module (from CPAN, and starting from Perl 5.8 part of the
standard distribution) provides usleep(). You may also use
Perl's four-argument version of select() leaving the first three
arguments undefined, or you might be able to use the "syscall"
interface to access setitimer(2) if your system supports it. See
perlfaq8 for details.
See also the POSIX module's "pause" function.
sleep Causes the script to sleep for (integer) EXPR seconds, or
forever if no argument is given. Returns the integer number of
seconds actually slept.
May be interrupted if the process receives a signal such as
"SIGALRM".
eval {
local $SIG{ALARM} = sub { die "Alarm!\n" };
sleep;
};
die $@ unless $@ eq "Alarm!\n";
You probably cannot mix "alarm" and "sleep" calls, because
"sleep" is often implemented using "alarm".
On some older systems, it may sleep up to a full second less
than what you requested, depending on how it counts seconds.
Most modern systems always sleep the full amount. They may
appear to sleep longer than that, however, because your process
might not be scheduled right away in a busy multitasking system.
For delays of finer granularity than one second, the Time::HiRes
module (from CPAN, and starting from Perl 5.8 part of the
standard distribution) provides usleep(). You may also use
Perl's four-argument version of select() leaving the first three
arguments undefined, or you might be able to use the "syscall"
interface to access setitimer(2) if your system supports it. See
perlfaq8 for details.
See also the POSIX module's "pause" function.
steptodream 2010-10-28
- 打赏
- 举报
用select
把你sleep（0.5);
换成
select(undef,undef,undef,0.5);
把你sleep（0.5);
换成
select(undef,undef,undef,0.5);
