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

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

-- 
Sincerely,
	Dmitry Karasik