diff options
author | Chris Dyer <cdyer@allegro.clab.cs.cmu.edu> | 2014-01-15 23:33:58 -0500 |
---|---|---|
committer | Chris Dyer <cdyer@allegro.clab.cs.cmu.edu> | 2014-01-15 23:33:58 -0500 |
commit | 7f5aa4fbf1165b769265376269e0b46dfbb8b342 (patch) | |
tree | bf1b3a3a3d1089fe6a1eb09a0d739b478f61eed0 /training/utils | |
parent | 7a1db9fe7cb79fdb5544a33ddc2f9f3612adf1ae (diff) | |
parent | aa5520768619eb15e0c1c70addbfaff0f150c345 (diff) |
Merge branch 'master' of github.com:redpony/cdec
Diffstat (limited to 'training/utils')
-rwxr-xr-x | training/utils/parallelize.pl | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/training/utils/parallelize.pl b/training/utils/parallelize.pl index 4197e0e5..c9ab88ce 100755 --- a/training/utils/parallelize.pl +++ b/training/utils/parallelize.pl @@ -45,11 +45,22 @@ my $numnodes = 8; my $user = $ENV{"USER"}; my $pmem = "9g"; my $basep=50300; -my $randp=300; my $tryp=50; my $no_which; my $no_cd; +if (-r '/dev/urandom') { + open(RR,'</dev/urandom') or die "Failed to read /dev/urandom: $!"; + my $buffer; + die "Failed to read 4 bytes of entropy" unless read(RR,$buffer,4) == 4; + close RR; + my ($val) = unpack 'L1', $buffer; + srand($val); +} else { + srand(); +} +my $randp=4000; + my $DEBUG=$ENV{DEBUG}; print STDERR "DEBUG=$DEBUG output enabled.\n" if $DEBUG; my $verbose = 1; @@ -206,8 +217,7 @@ chomp $host; # find open port -srand; -my $port = 50300+int(rand($randp)); +my $port = $basep+int(rand($randp)); my $endp=$port+$tryp; sub listening_port_lines { my $quiet=$verbose?'':'2>/dev/null'; |