使用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是不必要的; 當前目錄的概念意味着在沒有完整路徑的情況下查看的位置。