tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-25 23:47:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed: parallel -a not_existing --pipepart wc

Browse source
This commit is contained in:
Ole Tange 2014-08-04 13:10:38 +02:00
parent 0a7b38c257
commit df5e2231d0
2 changed files with 76 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
src/parallel
View file

@ -184,8 +184,7 @@ sub pipe_part_files {
# @commands to run to pipe the blocks of the file to the command given
my ($file) = @_;
my $buf = "";
open(my $fh, "<", $file) || die;
my $header = find_header(\$buf,$fh);
my $header = find_header(\$buf,open_or_exit($file));
# find positions
my @pos = find_split_positions($file,$opt::blocksize,length $header);
# unshift job with cat_partial
@ -693,6 +692,10 @@ sub get_options_from_array {
# false if parsing failed
# @array is changed
my ($array_ref, @keep_only) = @_;
if(not @$array_ref) {
# Empty array: No need to look more at that
return 1;
}
# A bit of shuffling of @ARGV needed as GetOptionsFromArray is not
# supported everywhere
my @save_argv;
@ -3742,7 +3745,8 @@ sub user_requested_processes {
my $j = $1;
$processes =
$self->ncpus() - $j;
} elsif ($opt_P =~ /^(\d+)\%$/) {
} elsif ($opt_P =~ /^(\d+(\.\d+)?)\%$/) {
# E.g. -P 10.5%
my $j = $1;
$processes =
$self->ncpus() * $j / 100;
@ -4917,10 +4921,10 @@ sub kill {
{
my %pid_parentpid_cmd;
sub family_pids {
# Find the pids with this->pid as (grand)*parent
my $self = shift;
my $pid = $self->pid();
sub pid_table {
# return two tables:
# pid -> children of pid
# pid -> commandname
%pid_parentpid_cmd or %pid_parentpid_cmd =
(
@ -4932,7 +4936,7 @@ sub kill {
'freebsd' => q( ps -o pid,ppid -ax ),
'gnu' => q( ps -ef | awk '{print $2" "$3}' ),
'hpux' => q( ps -ef | awk '{print $2" "$3}' ),
'linux' => q( ps -ef | awk '{print $2" "$3}' ),
'linux' => q( ps -ef | grep tange | awk '{print $2" "$3" "$8}' ),
'mirbsd' => q( ps -o pid,ppid -ax ),
'netbsd' => q( ps -o pid,ppid -ax ),
'nto' => q( ps -ef | awk '{print $2" "$3}' ),
@ -4942,30 +4946,41 @@ sub kill {
);
$pid_parentpid_cmd{$^O} or ::die_bug("pid_parentpid_cmd for $^O missing");
my (@pidtable,%children_of,@pids);
# Table with pid parentpid
my (@pidtable,%children_of,%name_of);
# Table with pid -> children of pid
@pidtable = `$pid_parentpid_cmd{$^O}`;
for (@pidtable) {
/(\S+)\s+(\S+)/ or ::die_bug("pidtable format");
/(\S+)\s+(\S+)\s+(\S+)/ or ::die_bug("pidtable format: $_");
push @{$children_of{$2}}, $1;
$name_of{$2} = $3;
}
return(\%children_of, \%name_of);
}
}
sub family_pids {
# Find the pids with this->pid as (grand)*parent
my $self = shift;
my $pid = $self->pid();
my @pids;
my ($children_of_ref,$name_of_ref) = pid_table();
my @more = ($pid);
# While more (grand)*children
while(@more) {
my @m;
push @pids, @more;
for my $parent (@more) {
if($children_of{$parent}) {
if($children_of_ref->{$parent}) {
# add the children of this parent
push @m, @{$children_of{$parent}};
push @m, @{$children_of_ref->{$parent}};
}
}
@more = @m;
}
return (@pids);
}
}
sub failed {
# return number of times failed for this $sshlogin

14
src/parallel.pod
View file

@ -3198,6 +3198,7 @@ There are a lot programs with some of the functionality of GNU
B<parallel>. GNU B<parallel> strives to include the best of the
functionality without sacrificing ease of use.
=head2 SUMMARY TABLE
The following features are in some of the comparable tools:
@ -3325,6 +3326,9 @@ supports (See REPORTING BUGS).
paexec: TODO - Please file a bug-report if you know what features paexec
supports (See REPORTING BUGS).
ladon: TODO - Please file a bug-report if you know what features ladon
supports (See REPORTING BUGS).
ClusterSSH: TODO - Please file a bug-report if you know what features ClusterSSH
supports (See REPORTING BUGS).
@ -3504,6 +3508,8 @@ B<9> killall -SIGUSR2 parallel
B<pexec> is also a tool for running jobs in parallel.
=head3 EXAMPLES FROM pexec MANUAL
Here are the examples from B<pexec>'s info page with the equivalent
using GNU B<parallel>:
@ -3557,6 +3563,7 @@ faster as only one process will be either reading or writing:
B<8> ls *jpg | parallel -j8 'sem --id diskio cat {} | jpegtopnm |' \
'pnmscale 0.5 | pnmtojpeg | sem --id diskio cat > th_{}'
=head2 DIFFERENCES BETWEEN xjobs AND GNU Parallel
B<xjobs> is also a tool for running jobs in parallel. It only supports
@ -3644,6 +3651,7 @@ B<cat files | parallel cmd>
B<find dir -execdir sem cmd {} \;>
=head2 DIFFERENCES BETWEEN xapply AND GNU Parallel
B<xapply> can run jobs in parallel on the local computer.
@ -3745,6 +3753,7 @@ using GNU B<parallel>:
=back
=head2 DIFFERENCES BETWEEN map AND GNU Parallel
B<map> sees it as a feature to have less features and in doing so it
@ -3825,7 +3834,7 @@ processing, and dynamically timeouts.
=head2 DIFFERENCES BETWEEN ladon AND GNU Parallel
B<ladon> https://www.npmjs.org/package/ladon can run multiple jobs on files in parallel.
B<ladon> can run multiple jobs on files in parallel.
B<ladon> only works on files and the only way to specify files is
using a quoted glob string (such as \*.jpg). It is not possible to
@ -3836,7 +3845,7 @@ As replacement strings it uses FULLPATH DIRNAME BASENAME EXT RELDIR RELPATH
These can be simulated using GNU B<parallel> by putting this in B<~/.parallel/config>:
--rpl 'FULLPATH $_=::shell_quote($_);chomp($_=qx{readlink -f $_});'
--rpl 'DIRNAME $_=::dirname($_); $_=::shell_quote($_);chomp($_=qx{readlink -f $_});'
--rpl 'DIRNAME $_=::shell_quote(::dirname($_));chomp($_=qx{readlink -f $_});'
--rpl 'BASENAME s:.*/::;s:\.[^/.]+$::;'
--rpl 'EXT s:.*\.::'
--rpl 'RELDIR $_=::shell_quote($_);chomp(($_,$c)=qx{readlink -f $_;pwd});s:\Q$c/\E::;$_=::dirname($_);'
@ -3867,6 +3876,7 @@ B<4> ladon "~/Music/*.wav" -- lame -V 2 FULLPATH DIRNAME/BASENAME.mp3
B<4> parallel lame -V 2 FULLPATH DIRNAME/BASENAME.mp3 ::: ~/Music/*.wav
=head2 DIFFERENCES BETWEEN ClusterSSH AND GNU Parallel
ClusterSSH solves a different problem than GNU B<parallel>.