Perl - 將輸出打印到不同目錄中的文件

Question

早上好！

對不起，如果這之前張貼 - 我找不到它。我只需要一點點正確的方向，這是我的功課，我覺得它已經快完成了。我想要做的是從運行腳本的不同文件夾中的文件中獲取數據，在Perl中處理數據，然後將輸出打印到另一個目錄。現在我完成了這兩部分，但是我失敗的是Perl沒有找到我想要保存文件的路徑。它只是sais「沒有該名稱的文件或目錄存在」，但它！下面是腳本，這部分：

my @files = <$ENV{HOME}/Docs/unprocessed/*.txt>; 
my $path = "$ENV{HOME}/Docs/results"; 

<looping through @files, processing each file in the unprocessed folder...> 

open (OUTFILE, $path . '>$file') or die $!; 
print OUTFILE ""; # "" Is really the finished calculations from the loop, not important here. 
close FILE; 
close OUTFILE; 

我敢打賭，它的一些愚蠢的事......

Answer 1

因爲你混合的「寫」令牌>與文件名。這：

open (OUTFILE, $path . '>$file') 

應該是：

open (OUTFILE, ">$path/$file") 

你也可能將不得不從文件名剝離.../Docs/unprocessed/前綴：

use File::Basename; 

open (OUTFILE, ">$path/" . basename($file))