Perl：无法打开文件名作为输入的文件

Question

我正在尝试将一个文件的行复制到另一个文件 file.I 想为输入和输出文件提供文件名。我尝试在不询问任何输入参数的情况下进行操作并且它工作正常但是使用文件名作为输入它 failed.Here 是我的代码：

use strict;
use warnings;

#names of file to be input and output 
my $inputfile = <STDIN>;
my $outputfile = <STDIN>;

open(INPUT,'<', $inputfile) 
or die "Could not open file '$inputfile' $!";

open(OUTPUT, '>', $outputfile) 
or die "Could not open file '$outputfile' $!";

while (<INPUT>) {
  print OUTPUT;
}

close INPUT;
close OUTPUT;
print "done\n";

Answer 1

chomp 您要删除换行符的输入变量：

use strict;
use warnings;

#names of file to be input and output 
my $inputfile = <STDIN>;
my $outputfile = <STDIN>;

chomp $inputfile;
chomp $outputfile;

open(INPUT,'<', $inputfile) 
or die "Could not open file '$inputfile' $!";

open(OUTPUT, '>', $outputfile) 
or die "Could not open file '$outputfile' $!";

while (<INPUT>) {
  print OUTPUT;
}

close INPUT;
close OUTPUT;
print "done\n";