Народ, новая задача, существуе файл, его надо разбить на два по определённому признаку и в каждом новом файле должна содержаться первая строка исходного файла, как это сделать???

open(FP,"c:/......") or die "$!"; # исходный файл
open(FP1,">c:/......") or die "$!"; # 1-ый файл для записи
open(FP2,">c:/......") or die "$!"; # 2-ой файл для записи
while(<FP>)
{
print FP1 if /условие1/;
print FP2 if /условие2/;
}
close(FP);
close(FP1);
close(FP2);

так скрипт мне всё разделяет как надо, а первой строки нет, т.к. в ней нет никаких условий, скрипт её пропускает, а надо чтобы она записывалась в оба файла, у кого есть идеи пишите.

Вставь счётчик

Код

open(FP,"c:/......") or die "$!"; # исходный файл open(FP1,">c:/......") or die "$!"; # 1-ый файл для записи open(FP2,">c:/......") or die "$!"; # 2-ой файл для записи $i=0; while(<FP>) { print FP1 if /условие1/; print FP2 if /условие2/; $i++; } close(FP); close(FP1); close(FP2);

и добавь в своё if /условие1/;

Код

and ($i==0)

Secandr ещё раз огромное спасибо всё работает!!!