Re: Finding duplicated code in Perl

[toma]

in reply to Finding duplicated code in Perl

my %code;
my @lines;

while(<>) {
  push @lines, $_;
  $code{$_}++;
}

for (@lines) {
  print "$code{$_}:\t $_";
}