Почему не работает код

[samlab]

Для того, чтобы при парсинге не попасть в бан, хочу рандомно менять User Agent
Но почему-то не работает этот код, подскажите пожалуйста, где ошибка

Код:

open(A,"< agents.txt");
@agents=<A>;
chomp(@agents);
close(A);

my $agent = $agents[rand(scalar(@agents))];

my $ua = LWP::UserAgent->new;
$ua->agent($agent);

Содержимое файла agents.txt

Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711
Mozilla/5.0 (X11; U; Linux i686 (x86_64); en-US; rv:1.9a1) Gecko/20060127 Firefox/1.6a1
Mozilla/5.0 (Windows; U; Windows NT 5.0;; rv:1.8.0.7) Gecko/20060917 Firefox/1.9.0.1
Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/124 (KHTML, like Gecko) Safari/125.1
Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/418.8 (KHTML, like Gecko) Safari/419.3
Opera/9.02  (Windows NT 5.0; U; en)
Opera/9.10  (Windows NT 5.1; U; en)
Opera/9.10  (Windows NT 6.0; U; en)
Opera/9.02  (Windows NT 5.2; U; en)

[RXL]

При парсинге ты в бан не попадешь. Равно как не попадешь в бан здесь, читая газету у себя в туалете (что тоже парсинг). Это я к тому, что не надо путать разные сущности — лучше будет понимание.

Код:

open(A,"< agents.txt") or die "Openning file: " . $!;

[samlab]

При парсинге ты в бан не попадешь. Равно как не попадешь в бан здесь, читая газету у себя в туалете (что тоже парсинг). Это я к тому, что не надо путать разные сущности — лучше будет понимание.

Спасибо за ценное замечание, теперь буду знать, на будущее...

Добавлено через 31 секунду:

Код:

open(A,"< agents.txt") or die "Openning file: " . $!;

Спасибо за код, все робит...

[RXL]

samlab, ошибок не выдает?

[samlab]

samlab, ошибок не выдает?

Выдавало ошибку, потом понял, что файл не в одной директории со скриптом лежит и все заработало, как надо!

[RXL]

Я к тому, что если ошибка возможна, то ее надо обязательно обработать.

[samlab]

Я все понял, спасибо за помощь