удаление файлов с perl

Question

Я пытаюсь написать perl-скрипт, который читает имена файлов в файле test.txt в массив, а затем удаляет файлы на основе имен файлов в массиве. Вот что у меня до сих пор ...

#!/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". Используйте chomp функцию Perl, чтобы обрезать вход:

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