Вопрос по сортировке файлов Опции

[jilec]

Нужно найти в каталоге файлы с одинаковыми словами с названии. т.е. в имени несколько слов. повторяющиеся слова находятся в разных местах. надеюсь понятно объяснил :oops:

[bone]

Цитата: потом поделять дубликаты

Чтобы сразу удаляло так:

Код

#!/usr/bin/perl

my $some_dir='/usr/home/kostya/Work/test';

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";

@files = grep { /(bw+b).+b1b/  } readdir(DIR);

closedir DIR;

printf ("Удалено %d файловn", unlink (@files));