diff options
author | Hieu Hoang <fishandfrolick@gmail.com> | 2012-02-23 17:26:19 +0400 |
---|---|---|
committer | Hieu Hoang <fishandfrolick@gmail.com> | 2012-02-23 17:26:19 +0400 |
commit | de9eeab7e92feef06707da58340d869216d1a985 (patch) | |
tree | 4995d532cb980232916f2245f2f36cd80e2fa0da /scripts/generic | |
parent | d3e17f0ebdda5f551e7d31e44b99797f4a89a1be (diff) |
mac osx compatible split & sort
Diffstat (limited to 'scripts/generic')
-rwxr-xr-x | scripts/generic/extract-parallel.perl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/scripts/generic/extract-parallel.perl b/scripts/generic/extract-parallel.perl index b4df119a7..46cb36b14 100755 --- a/scripts/generic/extract-parallel.perl +++ b/scripts/generic/extract-parallel.perl @@ -35,12 +35,15 @@ my $linesPerSplit = int($totalLines / $numParallel) + 1; print "total=$totalLines line-per-split=$linesPerSplit \n"; my $cmd = "$splitCmd -d -l $linesPerSplit -a 5 $target $TMPDIR/target."; +print STDERR "Executing: $cmd \n"; `$cmd`; $cmd = "$splitCmd -d -l $linesPerSplit -a 5 $source $TMPDIR/source."; +print STDERR "Executing: $cmd \n"; `$cmd`; $cmd = "$splitCmd -d -l $linesPerSplit -a 5 $align $TMPDIR/align."; +print STDERR "Executing: $cmd \n"; `$cmd`; # run extract @@ -55,7 +58,7 @@ for (my $i = 0; $i < $numParallel; ++$i) $isParent = 0; my $numStr = NumStr($i); my $cmd = "$extractCmd $TMPDIR/target.$numStr $TMPDIR/source.$numStr $TMPDIR/align.$numStr $TMPDIR/extract.$numStr $otherExtractArgs \n"; - print $cmd; + print STDERR $cmd; `$cmd`; exit(); @@ -95,9 +98,9 @@ if ($numParallel > 1) $extractCmd .= "> $extract \n"; $extractInvCmd .= "> $extract.inv \n"; $extractOrderingCmd .= "> $extract.o \n"; - print $extractCmd; - print $extractInvCmd; - print $extractOrderingCmd; + print STDERR $extractCmd; + print STDERR $extractInvCmd; + print STDERR $extractOrderingCmd; `$extractCmd`; `$extractInvCmd`; @@ -122,10 +125,10 @@ else $cmd = "rm -rf $TMPDIR \n"; -print $cmd; +print STDERR $cmd; `$cmd`; -print "Finished ".localtime() ."\n"; +print STDERR "Finished ".localtime() ."\n"; sub NumStr($) |