Add test programs for ihk_os_getrusage()

test/rusage/match.pl

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+while(<>) {
+    if(/\[\s+\d+\]\:\s([^+^ ]+)\+,/) {
+	$addr = $1;
+        $count{$addr}++;
+	#print $addr . "\n";
+    }
+    if(/\[\s+\d+\]\:\s([^-^ ]+)\-,/) {
+	$addr = $1;
+        $count{$addr}--;
+	#print $addr . "\n";
+    }
+}
+
+foreach $key (sort keys(%count)) {
+    if($count{$key} != 0) {
+        print $key.",count=".$count{$key}."\n";
+    }
+}