Changeset 28764

Timestamp:

2013-12-17T12:08:10+13:00 (10 years ago)

Author:

jmt12

Message:

Adding microsecond timing messages

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl (modified) (4 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl

@@ -26 +26 @@
 
 package parallel_dspace_filtermedia;
+
+# Pragma
+use strict;
 
 BEGIN {
@@ -48 +51 @@
 }
 
-use strict;
+# Modules
+use Time::HiRes qw( gettimeofday tv_interval );
 
 sub printUsage
@@ -63 +67 @@
 sub main
 {
-    print 'Parallel Media Filter started: ' . `date` . "\n";
+  my ($start_s, $start_u) = &gettimeofday();
+  print '[' . $start_s . '.' . $start_u . '] Parallel Media Filter started: ' . `date` . "\n";
 
     # 1. Initialization
@@ -190 +195 @@
       }
     }
-    # 6. Complete!
-    print 'Parallel Media Filter Complete: ' . `date` . "\n";
+
+  # 6. Complete!
+  my ($end_s, $end_u) = &gettimeofday();
+  print '[' . $end_s . '.' . $end_u . '] Parallel Media Filter Complete: ' . `date` . "\n";
+  print 'Elapsed Time: ' . sprintf('%0.6f', tv_interval([$start_s, $start_u], [$end_s, $end_u])) . " seconds\n";
 }
 
 &main();
+
+exit;
+
+1;