使用Perl进行网站压力测试

Question

使用Perl测试网站的最佳方法是什么？如何模拟大量连接以检查我的脚本在重负载下的工作方式？也许CPAN上有一个很好的模块？

我对测试死链接或404错误不感兴趣，只是在工作速度上。

Answer 1

我以前写过这些，所以我可以帮助你，但它似乎很简单，例如：

use LWP::Simple;
my @urls ;
while($in=<>) {
push @urls,$in ;
$start=time();
for (i=0;i++; i< 99999999) {
    use LWP::Simple;
    my $content = get $url;
    die if (/error/ ~= $content) ;  
##  Decide if you want to look at anything else
}


$stop=time() ;

## Write a report