用Perl刪除文件

Question

我正在嘗試編寫一個將test.txt文件中的文件名讀入到數組中的perl腳本，然後根據數組中的文件名刪除這些文件。這裏就是我這麼遠......

#!/usr/bin/perl 
use strict; 
use warnings; 

open(FILE, "test.txt") or die("Unable to open file."); 

my @data = <FILE>; 

close(FILE); 

foreach my $line (@data){ 
     unlink($line); 
} 

的test.txt和remove_files.pl在同一個目錄中被刪除的文件。我無法弄清楚爲什麼腳本不會刪除這些文件。我錯過了一個模塊嗎？

Answer 1

從帶有readline運算符（<...>）的文件中讀取的行將包含換行符。您需要將其刪除，否則您將嘗試刪除名爲"myfile.txt\n"而不是"myfile.txt"的文件。使用Perl的chomp功能修剪您的輸入：

foreach $line (@data){ 
    chomp($line); 
    unlink($line); 
}