Прошу помочь со скриптом

[samlab]

Код:

#!/usr/bin/perl -w

$| = 1;

use LWP::UserAgent;
use LWP::ConnCache;

use threads ('yield',
'stack_size' => 8*4096,
'exit' => 'threads_only',
'stringify');

my $threads = 5;

open(F,"< proxy.txt");

@f=<F>;

chomp(@f);

close(F);

threads->new(\&main) for 1 .. $threads;

$_->join for threads->list;

sub main

{

$i = 1;

while ($i<3) {

$ip = splice(@f, int rand @f, 1);

my $ua = LWP::UserAgent->new;
$ua->conn_cache(LWP::ConnCache->new());
$ua->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506)');
$ua->timeout(10);
$ua->proxy('http' => "http://$ip");
$ua->default_header('Accept-Encoding' => "gzip, deflate");
$ua->default_header('Accept-Language' => "ru");
$ua->default_header('Referer' => "http://yandex.ru//");
$ua->default_header('Accept' => "*/*");
$ua->default_header('Accept-Charset' => "windows-1251");

$response = $ua->get('http://google.ru/);

sleep (60);

redo;

++$i;
}
}

Вот какая проблема терзает мой разум. В коде, что приведен выше, парсера, прокси выбираются из списка рандомно. Т.е., если в списке штук 5 прокси, то велика вероятность того, что один и тот же прокси будет использован несколько раз. А хочется вот как, чтобы прокси выбирались из списка по порядку, сначала первый, потом второй, потом третий и в конце скрипт завершает работу.
Думаю сделать вот как, присвоить переменной значение 1, потом с каждый разом увеличивать это значение, но реализовать как-то не получается, прошу помочь безголовому

[Sla]

расскажи про функцию splice

[samlab]

Скрипты языка Perl используют функцию splice для того, чтобы извлекать элементы из списка, заменяя их элементами другого списка.

[Sla]

samlab, не.... дорогой, я знаю что делает функция splice
А знаешь ли ты?

Ты в нее предаешь параметры, и что-то хочешь получить
так вот расскажи, что ты получаешь?

[samlab]

samlab, не.... дорогой, я знаю что делает функция splice
А знаешь ли ты?

Ты в нее предаешь параметры, и что-то хочешь получить
так вот расскажи, что ты получаешь?

Получаю указанное число элементов из массива, начиная с величины сдвига, если она указана. Если в вызове не указан параметр сдвига, функция извлекает элементы до самого конца массива. Если в вызове функции не указан список, элементами которого замещаются исходные элементы, то функция не добавляет никаких элементов к первоначальному списку.

[Sla]

samlab, замечательно!

Получаю указанное число элементов из массива,

Из какого массива?


начиная с величины сдвига
Какая величина сдвига?


Получаю указанное число

Сколько?

[samlab]

samlab, замечательно!

Получаю указанное число элементов из массива,

Из какого массива?


начиная с величины сдвига
Какая величина сдвига?


Получаю указанное число

Сколько?

Очевидно, что из массива, который указывается, величина сдвига задается, указанное число, видимо, тоже задается.

[Sla]

samlab, ты мне на своем примере покажи и расскажи

[samlab]

Если бы я мог применительно к своему примеру это сделать, я бы не компастировал тут мозги вам...

[Sla]

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

[samlab]

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

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

[Sla]

samlab, давай так...
если это у тебя одноразовая задача, и больше ты ни-ни в перл, то я за такое взял бы денег (но это не мой принцип)

Если будут задачи подобного типа и часто, а судя по тому, что ты установил perl на виндовую машину, это будет часто и много и с каждым разом более масштабно, то давай отвечай на поставленные вопросы и читай документацию и книжки.

[RXL]

Поддерживаю Славу: если уж пользоваться, то надо изучать.

Мне нравится Перл и я с удовольствием отвечаю, в меру своих знаний, на любые вопросы. Но подход "нате, разбирайтесь, чего тут не работает" терпеть ненавижу. Отвечающим должно быть интересно - мы ведь не на работе и ничем не обязаны вопрошающему.

Т.ч., samlab, большая просьба: относится к наводящим и уточняющим вопросам внимательно.