Ваш код, как показано выше, даже не компилируется.Людям было бы намного легче помочь, если бы вы дали нам точный код, который вы используете, вместо того, чтобы набирать его заново и добавлять опечатки.
Чтобы компилировать ваш код, мне пришлось объявить$i
и добавьте $
перед двумя вариантами использования i
в вашей программе.Я закончил с этим:
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $url = "http://www.cpan.org";
my $searchstring = "WWW::Mechanize";
my $mech = WWW::Mechanize->new();
my $i;
while ($i == 60000) {
$mech->get($url);
$i++;
}
Вы говорите, что цикл выполняется только один раз.Это не правда.Цикл не выполняется вообще.Условие в цикле $i == 60000
.В первый раз, когда проверяется это условие, $i
не определено, поэтому условие ложно и цикл пропускается.
Я думаю, что вы, вероятно, вместо этого хотели $i <= 60000
.
Но, как указывает Аланвам будет гораздо лучше использовать существующий инструмент, такой как ab .