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

[jilec]

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

[bone]

найти и что потом?

[bone]

Код

[kostya@kh:~/Work/test]$ cat test.pl

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

foreach $m (@files)

{

       print "$mn";

}

[kostya@kh:~/Work/test]$ ll

total 6

drwxr-xr-x  2 kostya  wheel  512  4 ноя 23:27 ./

drwxr-xr-x  4 kostya  wheel  512  4 ноя 22:49 ../

-rw-r--r--  1 kostya  wheel    0  4 ноя 23:24 dfger bla fvev bla erfre

-rw-r--r--  1 kostya  wheel    0  4 ноя 23:26 ger fgerggrth rth aaa

-rw-r--r--  1 kostya  wheel    0  4 ноя 23:26 ref aaa

-rw-r--r--  1 kostya  wheel    0  4 ноя 23:27 ref aaa ger fgerggrth rth aaa

-rwxr-xr-x  1 kostya  wheel  305  4 ноя 23:23 test.pl*

-rw-r--r--  1 kostya  wheel    0  4 ноя 23:23 tr rgfrefg regreg

-rw-r--r--  1 kostya  wheel    0  4 ноя 23:23 trgrt

[kostya@kh:~/Work/test]$ ./test.pl

dfger bla fvev bla erfre

ref aaa ger fgerggrth rth aaa

[kostya@kh:~/Work/test]$

Понятно объяснил?

[jilec]

потом поделять дубликаты
а это на чем это написано?
попробую повторить

[Joker]

Цитата: а это на чем это написано?

perl

[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));

[Malysh]

Мне кажется он имел ввиду совпадения не в одном файле, а в разных...

[bone]

Цитата: Мне кажется он имел ввиду совпадения не в одном файле, а в разных...

Цитирую: "в имени несколько слов. повторяющиеся слова находятся в разных местах". Вроде речь идет об одном файле?

[jilec]

нет. повторяющиеся(одинаковые) слова в разных файлах. может не так выразился.

[bone]

Тогда, пожалуйста, сформулируй поточнее задачу. Желательно с примером.

[jilec]

Я извиняюсь, но уже решил задачу. По тупому и не производительно:). Надо было быстреНько сделать. А программирование - это думать надо (после работы вечером). Ну нафиг:)