bin/replines

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my @l=<>;
   6
   7 my @replen;
   8 REPLEN: for my $replen (1..@l) {
   9         for my $tried (@replen) {
  10                 next REPLEN if ($replen%$tried)==0;
  11         }
  12         my $repcountx;
  13         REPCOUNT: for my $repcount (2..@l/$replen) {
  14                 for my $repline (0..$replen-1) {
  15                         next if $l[@l-$replen+$repline] eq $l[@l-$replen*$repcount+$repline];
  16                         $repcountx=$repcount-1;
  17                         last REPCOUNT;
  18                 }
  19         }
  20         next if !$repcountx || $repcountx==1;
  21         my $covered=$replen*$repcountx;
  22         print "$replen lines ${repcountx}x covers $covered of ".int(@l)." = ".int(100*$covered/@l)."%\n";
  23         push @replen,$replen;
  24 }