为什么我的Perl open()失败并且"在包含换行符的文件名上打开不成功"？

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>);