Changeset 29276 for gs2-extensions

Show
Ignore:
Timestamp:
12.09.2014 10:43:44 (5 years ago)
Author:
jmt12
Message:

I need to measure the time spent on generating the initial manifest, as serial processing currently doesn't do this.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm

    r29257 r29276  
    4545 
    4646our $start_time; 
     47our $filelist_duration; 
    4748 
    4849BEGIN 
     
    5960    print &makeHeader('Parallel Import Complete') . "\n"; 
    6061    print '  Ended:    ' . @{$end_time}[0] . '.' . @{$end_time}[1] . "\n"; 
     62    if (defined $filelist_duration) 
     63    { 
     64      print '  Generating raw manifest: ' . sprintf('%0.6f', $filelist_duration) . "\n"; 
     65    } 
    6166    print '  Duration: ' . sprintf('%0.6f', $duration) . "\n"; 
    6267    print '=' x 80 . "\n"; 
     
    185190 
    186191  # create the list of files to import 
     192  my $filelist_start_time = [&gettimeofday()]; 
    187193  my $overwrite = 1; 
    188194  my $tmp_filelist = &util::filename_cat($tmp_dir_path, "filelist.txt"); 
     
    205211    close ($filelist); 
    206212  } 
     213  my $filelist_end_time = [&gettimeofday()]; 
     214  $filelist_duration = tv_interval($filelist_start_time, $filelist_end_time); 
    207215 
    208216  # Determine if we've been provided a mpi.conf file to indicate the other