perl - 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'.

Answer 2

如果您要从 STDIN（用户输入）读取文件名，您可能需要使用正则表达式 (s/^\s+//....) 或Text::Trim其他验证来修剪它们。