perl无法复制文件的内容并打印出来

Question

我需要读取/复制文件(test.pl)的内容,就像格式化和发送电子邮件一样.

我使用以下代码,但我无法打印任何东西.

即使该文件存在于同一目录中,我也会收到此错误.

Failed: No such file or directory

码:

#!/usr/bin/perl
use strict;
use warnings;
use DBI;

open my $fh, '<', 'test.pl '
    or die "Failed: $!\n";

my $text = do {
    local $/;
    <$fh>
};

close $fh
    or die "Failed again: $!\n";

print $text, "\n";

Answer 1

看起来您尝试打开的文件名中有一个额外的空格.在您的公开声明中,尝试更改'test.pl '为'test.pl'.