[Moscow.pm] Поиск последовательностей в бинарном файле

[Ivan Shirokoff]

Dmitry Karasik пишет:
> 	Hi Ivan!
>
> On 07 дек 08 at 20:29, "Ivan" (Ivan Shirokoff) wrote:
>
>  Ivan> Я не правильно описал задачу.  Дело в том, что я пытаюсь распарсить
>  Ivan> .  И насчитал там достаточно много типов разделителей.  Так вот,
>  Ivan> .  Хочу найти код, который бы сам отыскал мне повторяющиеся куски.
>  Ivan> -то из редакторов так мог, но я уже не могу найти какой.  Вот.
>
> такое подойдет?
>
> my $data = "abbaabbaxabba";
> for my $l (2..6) {
>     my %h;
>     $h{$_}++ for map { substr $data, $_, $l } 0 .. length($data) - $l;
>     while ( my ($p,$t) = each %h) {
>        print "length:$l, pattern:$p, times:$t\n"
>           if $t > 2;
>     }
> }
>   
То что надо. Большое спасибо =)
Прям рецепт для КукБука.