quick script to pull compute node and runtime statistics out of an

anonymized and annotated darshan log


git-svn-id: https://svn.mcs.anl.gov/repos/darshan/trunk@795 3b7491f3-a168-0410-bf4b-c445ed680a29

darshan-test/darshan-anon-core-hours.pl

+#!/usr/bin/perl -w
+#
+#  (C) 2011 by Argonne National Laboratory.
+#      See COPYRIGHT in top-level directory.
+
+# takes a single darshan log as input; expectation is that the log is from
+# the public data repo and has been annotated with compute node information.
+# Prints 3 columns: file name, compute nodes, and run time
+
+
+sub main()
+{
+    my $logfile;
+    my $header;
+    my $cn;
+    my $runtime;
+
+    $logfile=$ARGV[0];
+
+    $header = `darshan-parser $logfile |head -n 50`;
+
+    if($header =~ /cn = (\d+)/){
+        $cn = $1;
+        if($header =~ /run time: (\d+)/){
+            $runtime = $1;
+            print("$logfile\t$cn\t$runtime\n");
+        }
+    }
+
+    return 0;
+}
+
+#
+# Main
+#
+&main