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

[jilec]

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

[bone]

(IMG:style_images/psiline/quotes/quot-top-left.gif) Цитата: (IMG:style_images/psiline/quotes/quot-top-right.gif) (IMG:style_images/psiline/quotes/quot-top-right-10.gif) потом поделять дубликаты (IMG:style_images/psiline/quotes/quot-bot-left.gif) (IMG:style_images/psiline/quotes/quot-bot-right.gif)

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

Код

#!/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));