この単純なコードを使用して、ファイルを読み取り、すべての値を配列に入れています。
open (TEXT_FILE, "$file_name") || die "can't open $_";
@file_data=<TEXT_FILE>;
close TEXT_FILE;
私が読んでいるファイルはテキスト ファイルであり、UNIX または Windows を使用して編集されています。したがって、各行の終わりには、キャリッジ リターンとライン フィード (Windows の場合) が含まれる場合と、ライン フィードのみ (UNIX の場合) が含まれる場合があります。改行がある場合は削除したい。こんなことを考えている
foreach(@file_data)
{
if($_ =~ /something to match a carriage return at the end of line/)
{
chop $_;
}
else{ #do nothing
}
}
私が正しくやっている場合は、いくつかのパターンを提案してください。他のオプションも提案してください。前もって感謝します ！！