用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); 
}