Changeset 28764
- Timestamp:
- 2013-12-17T12:08:10+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl
r26999 r28764 26 26 27 27 package parallel_dspace_filtermedia; 28 29 # Pragma 30 use strict; 28 31 29 32 BEGIN { … … 48 51 } 49 52 50 use strict; 53 # Modules 54 use Time::HiRes qw( gettimeofday tv_interval ); 51 55 52 56 sub printUsage … … 63 67 sub main 64 68 { 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"; 66 71 67 72 # 1. Initialization … … 190 195 } 191 196 } 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"; 194 202 } 195 203 196 204 &main(); 205 206 exit; 207 208 1;
Note:
See TracChangeset
for help on using the changeset viewer.