1

Perlスクリプトと同じディレクトリにあるファイルを入力として読み取り、WindowsでPerlを使用してファイルを読み取ろうとしています。

コード：

$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

The return value from chomp is not the chomped value. Factor out the chomp to before open and you should be fine.

The getcwd is needless, by the way; the concept of current directory means where to look in the absence of a full path.

于 2012-06-01T16:22:51.260 に答える