改行文字の前後で問題が発生している

Question

これらの奇妙なもののもう一つがあります。私はこのコードとファイルを持っています。

use strict; 
use warnings; 

my $file = "test.txt"; 
my @arr; 

open (LOGFILE, $file); 
while (my $line = <LOGFILE>)  
{ 
    #print $line; 
    @arr = split("\n", $line); 
} 
close LOGFILE; 

print $arr[1]; 

のtest.txtは

が含まれています\ ntest1 \ ntest2 \

ntest3ここに私が取得エラーです： での印刷で初期化されていない値の

使用してtest.pl line 15.

誰も過去に同様の問題に遭遇しましたか？

Answer 1

splitは正規表現を取る（私はあなたの文字列が正規表現に強制されると信じています）。たぶんsplit(/\\n/, $line)のようなものでしょうか？

use strict; 
use warnings; 

my $file = "test.txt"; 
my @arr; 

open (LOGFILE, $file); 
while (my $line = <LOGFILE>) 
{ 
    print $line; 
    @arr = split(/\\n/, $line); 
} 
close LOGFILE; 

print $arr[1]; 

Answer 2

あなたは使用することができます

@arr = split /\Q\n/, $line;