camel

GNU鐃緒申鐃緒申覆鐃緒申鐃緒申 鐃緒申辰討鐃緒申泙鐃� xargs.

鐃緒申鐃術ワ申鐃縦� - xargs鐃緒申鐃殉ワ申匹鐃夙って誌申鐃所し鐃緒申鐃緒申鐃殉ワ申匹鐃緒申鐃緒申鐃渋行わ申鐃緒申鐃緒申
鐃緒申鐃殉わ申鐃塾わ申鐃銃わ申鐃淑わ申鐃緒申鐃緒申GNU鐃緒申xargs鐃緒申鐃殉ワ申匹砲蓮鐃�
鐃竣ワ申鐃緒申鐃緒申鐃塾削申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃暑オ鐃竣ワ申鐃緒申鐃夙わ申鐃緒申鐃塾わ申鐃術意わ申鐃緒申討鐃緒申襦�
鐃緒申鐃緒申鐃夙って￥申鐃竣ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申孫圓鐃緒申鐃緒申討澆茲�鐃緒申

OS X鐃緒申xargs(1)鐃緒申gnu鐃叔わ申鐃緒申覆鐃緒申鐃緒申鐃緒申諭鐃�

鐃夙わ申鐃緒申鐃緒け鐃緒申perl鐃緒申即鐃緒申鐃叔削申辰鐃緒申里鐃緒申鐃緒申鐃緒申蕁�

pargs 
#!/usr/local/bin/perl
use strict;
use warnings;
use Getopt::Std;
use POSIX ":sys_wait_h";

our $PPID = $$;
our %Opt;
getopts "P:v" => \%Opt;

sub chld_handler{
    while ((my $child = waitpid(-1,WNOHANG)) > 0) {
        warn "$child:$?" if $Opt{V};
        forkit();
    }
    $SIG{CHLD} = \&chld_handler;  # still loathe sysV
}
$SIG{CHLD} = \&chld_handler;

sub forkit{
    my $line = <STDIN>;
    exit unless defined $line;
    chomp $line;
    my @args = split /\s+/, $line;
    my $pid = fork();
    die "fork failed : $!" unless defined $pid;
    return $pid if $pid; # parent
    warn "$$: ", join(" ", @ARGV, @args), "\n" if $Opt{v};
    unless(exec @ARGV, @args){
        # kill parent if not executable
        kill INT => $PPID;
    }
    exit;
}

$Opt{P} ||= 1;
$Opt{v} ||= $Opt{V};
@ARGV or die " $0 [-P number_of_processes ] command ...";
forkit() for (1..$Opt{P}); # 1st -P processes
1 while 1; # loop
__END__

鐃緒申鐃銃わ申鐃縮り、鐃緒申辰討鐃緒申襪鰹申箸麓造鐃獣縁申鐃叔￥申-P鐃叔誌申鐃所し鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃初か鐃緒申鐃緒申fork()鐃緒申鐃銃￥申SIGCHLD鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申擔鐃緒申鐃緒申鐃緒申廛鐃緒申鐃緒申鐃緒申鐃�fork()鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申-v鐃緒申鐃緒申蠅刻申鐃夙￥申鐃緒申鐃緒申鐃粛子を見わ申鐃緒申茲�鐃祝わ申鐃銃わ申鐃緒申泙鐃緒申鐃緒申磴�鐃出￥申

url.lst 
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.1.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.2.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.3.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.4.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.5.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.6.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.7.tar.gz
http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.8.tar.gz

鐃淑わ申討里鐃緒申儖佞鐃緒申董鐃�

% pargs -v -P4 lwp-download < url.lst > /dev/null

鐃夙わ申鐃緒申函鐃�

3667: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.1.tar.gz
3668: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.2.tar.gz
3669: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.3.tar.gz
3670: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.4.tar.gz
3671: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.5.tar.gz
3672: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.6.tar.gz
3673: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.7.tar.gz
3674: lwp-download http://www.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.8.8.tar.gz

鐃淑わ申憧鐃緒申鐃緒申砲覆鐃殉わ申鐃緒申

Enjoy!

Dan the Parallel Perl Monger