使用Perl在Windows中输入和读取文件时遇到问题

Question

我正在尝试将与Perl脚本相同的目录中的文件作为输入读取，并使用Perl在Windows中从中读取。

代码：

$inputFile =  getcwd . "/" . <STDIN>;
open (FILE, chomp($inputFile)) or die "Cannot open $inputFile: $!\n";   
@lines = <FILE>;
print "@lines\n";

我得到的错误是：

C:/Documents and Settings/username/workspace/test.pl  No such file or directory

即使该文件确实存在于该确切目录中的确切形式。我也尝试将“文档和设置”放在引号中。

Answer 1

chomp的返回值不是chomped值。将chomp排除在open之前，您应该没事。

顺便说一句，getcwd是不必要的;当前目录的概念意味着在没有完整路径的情况下查看。