У меня есть файл, который использует CR / LF для разделения записей, но отдельные записи иногда содержат LF.

while (<$in>)
{ 
    #extract record data
}

Я пытаюсь прочитать этот код, как указано выше, и это (как я и ожидал) разбивает записи, которые содержат только LF. Я, однако, ожидал, что переназначен$/ решил бы эту проблему, но это, кажется, вызывает чтение всего файла за одну итерацию.

$/ = "\r\n";
while (<$in>)
{ 
    #extract record data
}

Кто-нибудь здесь, кто может предложить рабочее решение?

Я использую Activestate Perl в Windows.