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; } }
То что надо. Большое спасибо =) Прям рецепт для КукБука. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
