Changeset 28764


Ignore:
Timestamp:
2013-12-17T12:08:10+13:00 (8 years ago)
Author:
jmt12
Message:

Adding microsecond timing messages

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl

    r26999 r28764  
    2626
    2727package parallel_dspace_filtermedia;
     28
     29# Pragma
     30use strict;
    2831
    2932BEGIN {
     
    4851}
    4952
    50 use strict;
     53# Modules
     54use Time::HiRes qw( gettimeofday tv_interval );
    5155
    5256sub printUsage
     
    6367sub main
    6468{
    65     print 'Parallel Media Filter started: ' . `date` . "\n";
     69  my ($start_s, $start_u) = &gettimeofday();
     70  print '[' . $start_s . '.' . $start_u . '] Parallel Media Filter started: ' . `date` . "\n";
    6671
    6772    # 1. Initialization
     
    190195      }
    191196    }
    192     # 6. Complete!
    193     print 'Parallel Media Filter Complete: ' . `date` . "\n";
     197
     198  # 6. Complete!
     199  my ($end_s, $end_u) = &gettimeofday();
     200  print '[' . $end_s . '.' . $end_u . '] Parallel Media Filter Complete: ' . `date` . "\n";
     201  print 'Elapsed Time: ' . sprintf('%0.6f', tv_interval([$start_s, $start_u], [$end_s, $end_u])) . " seconds\n";
    194202}
    195203
    196204&main();
     205
     206exit;
     207
     2081;
Note: See TracChangeset for help on using the changeset viewer.