Ich habe eine Datei, die CR / LF zum Trennen von Datensätzen verwendet, aber einzelne Datensätze enthalten manchmal eine LF.

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

Ich versuche, diesen Code wie oben zu lesen, und dies teilt (wie erwartet) die Datensätze auf, die nur eine LF enthalten. Ich hätte jedoch damit gerechnet, dass eine Neuzuweisung erfolgt$/ würde dieses Problem beheben, aber es scheint zu verursachen, dass die gesamte Datei in einer Iteration gelesen wird.

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

Wer kann hier eine funktionierende Lösung vorschlagen?

Ich verwende Activestate Perl unter Windows.