perl中的sleep

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

1^# bitterness 发表于 2008-12-10 13:41

perl中的sleep

#!/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");
是可以按正常顺序执行的

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-12-10 14:31

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
$|=1;
my $filename = "aaa";
system("touch $filename") == 0 or die "Fail to execute $!";
print "$filename 文件创建成功," if -e $filename;
sleep 3;
unlink $filename if -e $filename;
if ( !-e $filename ) { print "$filename 被删除\n"; }

是先创建的
只不过打印出来的内容先被buffer了，所以给了你错觉
去掉buffer就可以了

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-12-10 14:32

你在暂停的时候ls一下看看好了
是有aaa这个文件的

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

4^# bitterness 发表于 2008-12-10 14:37

是这样的，了解了，谢谢
正一步一步学习中。。。