閱讀在Perl新線

Question

我一直在使用創建的文件：

open OUT, ">$outfile"; 
print OUT "$file_in;$system_in;$symbol_in;$price_in\n"; 

後來試圖從這個文件讀取：

open DATAIN, "<", "$outfile" or die $!; 
while(<DATAIN>) 
{ 
    chomp($_); 
    my @ld = split(/\;/,$_); 
    my $system = $ld[1]; 
    my $file = $ld[0]; 
    ... 

    print "HELLOOO?$file\t$system\.."; 
} 

，但在第一次迭代中，它給了我這個錯誤：

Can't use an undefined value as an ARRAY reference 

的問題是真的是在\ n 與我創建的文件中的新線路，我想之後閱讀。

我試過用\ r，錯誤不存在，但是它全部讀爲一行。

請幫忙嗎？提前感謝！

全碼：

open OUT, ">$outfile"; 
print OUT "$file_in;$system_in;$symbol_in;$price_in\n"; 

open my $fh, "<", "$outfile" or die $!; 
while(<$fh>) 
{ 
    chomp; 

    my @ld = split(/\;/); 
    my $system = $ld[1]; 
    my $file = $ld[0]; 
    my $symbol = $ld[2]; 
my $price = $ld[3]; 

    my $key = $file . $symbol; 

    print "HELLOOO?$file\t$system\t$symbol\t$price\n" 
} 

錯誤：

Can't use an undefined value as an ARRAY reference at C:/Perl/lib/Math/BigInt/Calc.pm line 476, <fh> line1. 

的錯誤是，當它從文件中讀取行。如果在最初的文件中，我把/r而不是/n，我沒有得到這個錯誤，但是所有的文件都被讀作一行。

Answer 1

您正在調用<>運算符不正確。

您不應該使用文件句柄DATA。

你應該使用詞法文件句柄。

您不需要通過$_到chomp或split。這就是爲什麼$_存在。

下面是你想要做到這一點。

open my $fh, '<', $outfile or die $!; 
while(<$fh>) { 
    chomp; 
    my @ld = split(/\;/); 
    ... 
}