perl - 为什么我的 Perl open() 失败并显示 "Unsuccessful open on filename containing newline"？

Question

我试图将 ${date[0]} 放在我的目录中，这相当于 01252010 但 @hits 未打印。我如何设法打开目录以获得所需的输出？谢谢。

错误: 在 ./total.pl 第 11 行，第 1 行包含换行符的文件名上打开失败。

#!/opt/perl/bin/perl -w

use strict;

open(FH,"/home/daily/scripts/sms_hourly_stats/date.txt");
my @date = <FH>;
print $date[0];

my $path = "/home/daily/output/sms_hourly_stats/${date[0]}/TOTAL.txt";
open(FILE,"$path") or die "Unable to open $path: $!";
my @hits = <FILE>;
print @hits;

close FH;
close FILE;

Answer 1

您需要删除行结束符号。使用 chomp :

chomp(my @date = <FH>);