1

我正在尝试读取与 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

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

4

1 回答 1

4

from 的返回值chomp不是 chomped 值。排除chomp之前的因素open,你应该没问题。

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

于 2012-06-01T16:22:51.260 回答