Changeset 29276 for gs2-extensions


Ignore:
Timestamp:
09/12/14 10:43:44 (6 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.

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.