Приветствую всех.

Есть файл. Содержит ip адреса.
192.168.1.138
192.168.1.139
192.168.1.41
192.168.1.64
192.168.10.29
192.168.10.3
192.168.10.68
192.168.11.173

По одному адресу в каждой строке.
Количество строк в файле может быть всякий раз разным.
Нужно на perl разделить файл на части.
Количество частей может быть 2, 3, 4 и т.д.

Если делить на 2 части, то первую строку в 1 файл, вторую строку - во 2 файл,
третью строку снова в 1 файл, четвертую опять во 2 файл и т.д.

Если делить на 3 части, то соответственно:
1 строку - в 1 файл, 2 строку - во 2 файл, 3 строку - в 3 файл
4 строку - в 1 файл, 5 строку - во 2 файл, 6 строку - в 3 файл

И так до конца файла.

подскажите, как это реализовать?

• разделить файл,pavlinux, 19:23 , 07-Дек-12
  • разделить файл,romiks, 20:41 , 07-Дек-12
    • разделить файл,pavlinux, 01:47 , 10-Дек-12

> подскажите, как это реализовать?

деление по модулю

>> подскажите, как это реализовать?
> деление по модулю

$i=0;
$n=2;
while(<>){
   chomp;
   `echo '$_' >>$i`;
   $i=($i+1) % $n;
}

кажись догоняю ))

>>> подскажите, как это реализовать?
>> деление по модулю
> кажись догоняю ))

$i = ($i+1) % $n;

Да, да, да, именно так.