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

開こうとしているファイル名に余分なスペースがあるようです。open ステートメントで、 に変更'test.pl 'してみてください'test.pl'。

Answer 2

STDIN (ユーザーの入力) からファイル名を読み取る場合は、正規表現 (s/^\s+//....) を使用するかText::Trim、他の検証を使用してそれらをトリミングすることをお勧めします。