Perl. Изменить скрипт..

Всем привет!

Ребят такая ситуация, есть скрипт в который пишешь логин/пароль,id скрипт берет из файла и шлет по этим id текст. Все в один поток, простые пост запросы.

Хочу сделать что бы скрипт брал логин/пароль из файла отправлял 10 сообщений и брал следующий логин/пароль и слал дальше.

Можете подсказать алгортим как менять логин/пароль каждые 10 сообщений? Что то не получается у меня

Заранее благодарен

 

Выложи скрипт сюда.

 

покажи хотя бы кусок кода.

что то типа.

Code:

my $posts = 10;
while ($posts>=1) 
{
	тут запрос
	$posts--;		
}

надо хотябы видить цикл как айди перебираются.

 

Сорри, скрипт выложить не могу.

Вот структура.

Code:

#! /usr/bin/perl

   Определение всех переменных
    open(XX,"nomera.txt"); my @nomera=<XX>; //номера по которым спамить
    $login='';
	$pass='';
	
 for(@nomera){ отсылка сообщения }

dpe_x, спасибо за ответ но у меня не получается "интегрировать" твой код правильно, руки кривые видимо)

У меня как то получается что либо одно и то же шлет три раза или все сразу. Сорри за кривой код. Пример:

Code:

use strict;

 open(XX,"nomera.txt"); my @nomera=<XX>;
 open(AC,"accs.txt"); my @ac=<AC>;
 my $i=0;
 my $login=undef;
 ST:
 sleep(5);
 $i++;
 $login=$ac[$i];
 print "Login $login\n";
 

 for(@nomera){

my $posts = 3;
while ($posts>=1) { 
 my $ids=$_;
 chomp($ids);
    print $ids . "\n"; 
	
	$posts--;	} goto ST; 
	}
	
	

 

PHP:

for(@nomera)
{ 
    if($n++ > $#ac)
    {
        $n = 0;
    }
    ($login, $pass) = split( /:/, $ac[$n]);
        
    for($i = 0; $i < 10; $i++)
    {
        отсылка сообщения 
    }
}

 

Да и слава богу , что не можешь..
На такое говно смотреть не могу..

нафига вызывать чомп в цикле ?
так никак ?

Code:

open (XX,"nomera.txt");
chomp ( my @nomera=<XX>);
 open (AC,"accs.txt"); 
chomp (my @ac=<AC>);

погнали дальше.

крутим цикл

while (@ac)
{
        my $ acc = shift @ac; # Супер функция шифт , кури гугл
     if (author($acc )) # тут авторизация если нужна
     {
          while ($posts>=1) 
         {
               my $id = shift @nomera;
	       тут запрос   хуе мое post($id);
	       $posts--;		
          }
     }
}

#Пишем авторизацию

sub author()
{
      my ($acc) =@_
      тут авторизация с $acc
}