Работа со строками в большо файле

[perl6]

Приветствую. Никак не соображу, как средствами перла порезать файл на n строк.
Имеем файл, к примеру, строк на 30к. Нужно вывести первые 3к, потом след. и так, до конца.

[Finch]

Стандартный способ практически применимый для всех языков.
1) читать строку
2) писать в файл
3) считать количество строк
4) Если количество строк превысило определенное значение, закрыть дескриптор файла. Открыть новый файл для записи.

Может быть в перле сделали более легкий путь.

[perl6]

Стандартный способ практически применимый для всех языков.
1) читать строку
2) писать в файл
3) считать количество строк
4) Если количество строк превысило определенное значение, закрыть дескриптор файла. Открыть новый файл для записи.

Может быть в перле сделали более легкий путь.

Памяти не хватит, файлы то здоровые.

[Finch]

Ты в данный конкретный момент работаеш с 1 единственной строкой. Считал ее из источника, записал в файл. Больше она тебе не нужна. 

Добавлено через 5 часов, 35 минут и 58 секунд:
Вот по быстрому накидал решение данной задачи в bash скрипте. Не проверял, но надеюсь, что должно работать

Код: (Bash)

 #! /bin/bash
name="somefilename"
where="wherefile"
maxcount=3000

count=maxcount
chap=0
while read LINE; do
    if [ $count -ge $maxcount ]; then
        chap=$(( $chap + 1 ))
        touch "$where$chap"
        count=0
    fi
    echo $LINE >> "$where$chap"
    count=$(( $count + 1 ))
done < "$name"

[perl6]

Ты в данный конкретный момент работаеш с 1 единственной строкой. Считал ее из источника, записал в файл. Больше она тебе не нужна. 

Так все равно весь файл надо в память грузить. Записывать данные мне не нужно, мне нужно их отправлять на сервер.

Добавлено через 1 минуту и 11 секунд:

Вот по быстрому накидал решение данной задачи в bash скрипте. Не проверял, но надеюсь, что должно работать

Код: (Bash)

 #! /bin/bash
name="somefilename"
where="wherefile"
maxcount=3000

count=maxcount
chap=0
while read LINE; do
    if [ $count -ge $maxcount ]; then
        chap=$(( $chap + 1 ))
        touch "$where$chap"
        count=0
    fi
    echo $LINE >> "$where$chap"
    count=$(( $count + 1 ))
done < "$name"

Спасибо. Задачу решил сам, несколько другим способом.