updated to sort the output file of counts, so that it stays in basically the same...
authorChris Koeritz <fred@gruntose.com>
Sun, 18 Sep 2016 02:39:30 +0000 (22:39 -0400)
committerChris Koeritz <fred@gruntose.com>
Sun, 18 Sep 2016 02:39:30 +0000 (22:39 -0400)
scripts/cgi/count.cgi

index 0e00e467b50ca3e994b6c3007238503b3b97a7f5..c3f7b0d45b4efbb45dd770665a9e6df1f01fc9cf 100755 (executable)
@@ -70,7 +70,7 @@ $counts{$server.$doc}++;
 #
 seek(COUNTS, 0, 0);
 
-foreach $file (keys %counts) {
+foreach $file (sort {lc $a cmp lc $b} keys %counts) {
   print COUNTS $counts{$file}, ":", $file, "\n";
 }