LINUX.ORG.RU

Perl - удаление файлов


0

0

Подскажите пожалуйста, как удалить файлы по маске. Казалось бы, что тут сложного, но не работает: $prim = "/tmp/*.*"; unlink($prim) || die "could delete $prim: $!"; Один файл удаляется без проблем, все файлы в директории не удаляются?

anonymous

Re: Perl - удаление файлов

1) perldoc -f glob

2)

#!/usr/bin/perl -w

while(</home/user/files/copy_for_delete/*.html>){
#do{unlink $_ or die "cant remove: $!"} if m!.*\.html$!;
print $_," удален\n";
}

Сначала просмотришь вывод print, затем, 2 раза убедившись, что удаляться будет то, что надо, а не от корня, раскомментируешь строчку.

3) с консоли

perl -e 'do{unlink $_ or die "cant remove: $!"; print $_," deleted\n"} while </patch/to/dir/*.html>'

vilfred ☆☆ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.