使用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值。 在open之前将chomp排除在外，你应该没事。

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