From 18011f2e9d699e37c6da8bec2d02de2b84a96a85 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Mar 2000 14:35:23 +0000
Subject: no_comment

---
 tools/gencompss | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 tools/gencompss

(limited to 'tools/gencompss')

diff --git a/tools/gencompss b/tools/gencompss
new file mode 100755
index 000000000..b26ef7c2c
--- /dev/null
+++ b/tools/gencompss
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+open F, "bzip2 -dc @ARGV 2>/dev/null | hdlist2groups - |";
+foreach (<F>) {
+    chop;
+    /(.*):(.*)/;
+    push @{$l{$2}}, $1;
+}
+close F or die;
+foreach (sort keys %l) {
+    print "$_\n";
+    print "\t$_\n" foreach sort @{$l{$_}};
+    print "\n";
+}
-- 
cgit v1.2.1