X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Fscowl.git;a=blobdiff_plain;f=current%2Fsrc%2Fproc-census;h=b642936cd9b32cc0ccec9d832413c771fd578561;hp=83057f8efb4eddcccec073657046a72447ab279a;hb=7b14ba883fb1046508c44be37b4c6ba5da5feacf;hpb=b72d489091bf51f14f63db9bec15fe71fa52a395

diff --git a/current/src/proc-census b/current/src/proc-census
index 83057f8..b642936 100755
--- a/current/src/proc-census
+++ b/current/src/proc-census
@@ -20,10 +20,12 @@ chdir "r/census";
 
 foreach $f (@files) {
     open IN, $f;
-    $of = $f.".lst";
-    open OUT, ">$of";
+    open OUT, ">$f.lst";
     $i = 0;
-    while ($_ = <IN> and $i++ != 1000) {
+    while (<IN>) {
+        if ($i++ == 1000) {
+            open OUT, ">$f-rest.lst";
+        }
 	($_) = /^(\S+)/;
 	if (exists $proper{$_}) {
 	    print OUT "$proper{$_}\n";
@@ -35,5 +37,6 @@ foreach $f (@files) {
     }
     close IN;
     close OUT;
-    qx"sort $of -o $of";
+    qx"sort $f.lst -o $f.lst";
+    qx"sort $f-rest.lst -o $f-rest.lst";
 }