Re: [PerlChina] time函数在cygwin下面有bug？

哦，是啊，居然犯了这种低级错误。

在 2010年4月1日 下午4:49，silent <silent2600@gmail.com>写道：

是不是因为stat() 把$atime覆盖了?

On Thu, 1 Apr 2010 16:38:24 +0800
Achilles Xu <formalin14@gmail.com> wrote:

> 测试代码：
>
>
> use LWP::Simple qw(getstore $ua);
>
> my @urls = (
>             "http://london1.linode.com/100MB-london.bin",
>             "http://newark1.linode.com/100MB-newark.bin",
>             "http://atlanta1.linode.com/100MB-atlanta.bin",
>             "http://dallas1.linode.com/100MB-dallas.bin",
>             "http://fremont1.linode.com/100MB-fremont.bin"
> );
>
> my $timeout = 120;
> $ua->default_header('Range' => 'bytes=0-1000000');
> for my $url (@urls) {
>   my ($file) = $url =~ m{/([^/]+)$};
>   my $atime = time;
>   eval {
>     local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n
> required
>
>     alarm $timeout;
>     my $cmd = "wget $url";
>     print "downloading $url $file\n";
>     getstore($url, $file);
>
>     alarm 0;
>   };
>   my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
>                       $atime,$mtime,$ctime,$blksize,$blocks)
>                           = stat($file);
>   my $btime = time;
>   print $btime, "\t", $atime, "\n";
>   print $url, "\t" . ($size/1000/($btime - $atime)) . "\n";
>   if ($@) {
>     die unless $@ eq "alarm\n";   # propagate unexpected
> errors
>
>     # timed
> out
>
>   }
>   else {
>     #
> didn't
>
>   }
> }
>
> 下载文件会需要几秒，但是几秒过去了，atime和btime是一样的，导致后面报出除0错误。
>
> 普通笔记本，联想的，intel t4400。
>
> 等会试试Time::HiRes有没有问题。
>
> --
> ---------------------------
> Achilles Xu
>

> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>


--
---

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
---------------------------
Achilles Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。