perl - 延迟测量

Question

我想测量从 Web 服务器下载图片所需的时间。我想使用 Perl、python 或 PHP，但更喜欢 Perl。时间以毫秒为单位。我会从 HTML 运行脚本。

谢谢

乔恩

Answer 1

Perl 不能在浏览器中运行，如果这是您说“来自 HTML”时所指的内容。

我建议您查看Javascript 中的 onload 事件。

Answer 2

你会从 HTML 运行脚本吗？你的意思是你会调用某种CGI？

您的“问题”在任何具有某种阻塞 HTTP GET 请求方法的编程语言中都应该非常直截了当；例如在 Perl 中：

use LWP::Simple;
use Time::HiRes qw/gettimeofday tv_interval/;

my $b = [gettimeofday];
get("http://stackoverflow.com/questions/10565423/latency-measurement");

print "Took me: ",  tv_interval($b), "\n";

但这并不代表下载文件需要多长时间。它仅显示 GET 请求的特定实现（通过 LWP::Simple）花费了多长时间。如果你真的只想要请求的时间，你将不得不更深入地挖掘。（虽然我怀疑它有很大的不同......）