Changeset 28764 for gs2-extensions

Show
Ignore:
Timestamp:
17.12.2013 12:08:10 (6 years ago)
Author:
jmt12
Message:

Adding microsecond timing messages

Files:
1 modified

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;