perl中让一动作连续执行10分钟，怎么写

huanghaojie

需要是做一个perforance 测试，就是让zip 压缩一个文件，如果文件压缩好了，就把压缩文件删除，再压缩，连续这样10分钟，程序怎么写

#!/usr/bin/perl
use strict;
use warnings;

my $dir='/tmp/aaa';

unless(-d $dir){
   mkdir $dir or die;
}
`dd if=/dev/zero bs=1024 count=100 of=/tmp/aaa/1Gb.file`;

while(1)
{
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm (100);
  `zip /tmp/aaa/1Gb.file.zip /tmp/aaa/1Gb.file`;
  `echo "zip fininsed"`;
  `rm -rf /tmp/aaa/1Gb.file.zip`;
}

这样好像不行呀。哪错了。

MMMIX

原帖由 huanghaojie 于 2009-8-9 20:38 发表
需要是做一个perforance 测试，就是让zip 压缩一个文件，如果文件压缩好了，就把压缩文件删除，再压缩，连续这样10分钟，程序怎么写

perldoc Benchmark

huanghaojie

好的，多谢，我去看看，有疑问再来问。

huanghaojie

#!/usr/bin/perl
my $_timeout=60;
my $_tmpfile="/root/tmpfile";
my $_zipfile=$_tmpfile.".Z";
my $ls;
my $i;
eval{
        $SIG{ALRM}=sub{die "alrm \n"};
        alarm $_timeout;
#        `dd if=/dev/zero of=$_tmpfile count=4 bs=10240k`;

        while(1){
           $i=$i+1;
           print "$i \n";
           sleep 1;
        }
        alarm 0;
};

#`rm -rf $_zipfile $_tmpfile`;
print "test over\n";