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

[jilec]

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

[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]$

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