Changeset 36924

Timestamp:

Jun 20, 2014, 2:46:26 PM (12 years ago)

Author:

watersc1

Message:

Change to randomize which thread gets which file. This should equalize things.

File:

• trunk/ippScripts/scripts/sc_transfer_tool.pl (modified) (3 diffs)

trunk/ippScripts/scripts/sc_transfer_tool.pl

@@ -51 +51 @@
 while(<I>) {
     chomp;
+    $i = int(rand($#filehandles));
+
     my $fline;
     if ($fetch) {
@@ -57 +59 @@
     if (($fetch)&&(!(-e $_))) {  # We are fetching, and do not already have this file.
         print { $filehandles[$i] } $fline;
-        $i++;
+#       $i++;
     }
     elsif (!($fetch)) { # We are pushing
 #       if (-e "${local_tmp}/$_") { 
             print { $filehandles[$i] } "${local_tmp}/$_" . "\n";
-            $i++;
+#           $i++;
 #       }
 #       else { # But somehow couldn't find the file we expected
@@ -69 +71 @@
 #       }
     }
-    if ($i >= $threads) { $i = 0; }
+#    if ($i >= $threads) { $i = 0; }
 }
 close(I);