Perl, , , Perl Unix-. (, awk, , , .)
- :
while(<>) {
chomp;
$lines{$_}++;
}
print "Total unique lines: ", scalar(keys %lines), "\n";
foreach my $line (sort {$lines{$b} <=> $lines{$a}} keys %lines) {
printf "%6d %s\n", $lines{$line}, $line;
}
( , .)
O (n) -, n - . , - O (n) ( -) O (n * log n) ( ). , O (n ^ 2) , .