#!/usr/bin/perl -w $filename="aaa"; system("touch $filename"); print "$filename 文件创建成功," if -e $filename; sleep 3; unlink $filename if -e $filename; if(! -e $filename) {print "$filename 被删除\n";} 程序一运行,是先停3秒,然后再执行上面的语句了 当然改成system("sleep 3"); 是可以按正常顺序执行的
by bitterness - Perl - 2008-12-10 14:37:05 阅读(1924) 回复(3)
在测试父进程向子进程发信号的时候,发现子进程的sleep函数的时间消逝不正确,干脆就是没什么用,但是父进程里面的sleep没有问题,请问是哪里出错了呢?代码如下: #!/usr/bin/perl -w # Test signals to child processes using kill. use warnings; use strict; use POSIX qw(:signal_h :errno_h :sys_wait_h); $SIG{ 'USR1' } = \&user1; $| = 1; sub user1 { $SIG{ 'USR1' } = \&user1; print("I've recvd...