Lines Matching refs:_
61 @fhlist = map { open_or_exit($_) } "/dev/null";
63 @fhlist = map { open_or_exit($_) } @opt::a;
126 @Global::cat_partials = map { pipe_part_files($_) } @opt::a;
168 kill "TERM", $_;
184 my ($file) = @_;
210 my ($buf_ref, $fh) = @_;
236 my($file, $block, $headerlen) = @_;
283 my($file, @start_end) = @_;
286 my @start_len = map { if(++$i % 2) { $start = $_; } else { $_-$start } } @start_end;
465 my ($buf_ref, $str, $n) = @_;
486 my ($header_ref,$block_ref,$recstart,$recend,$endpos) = @_;
530 my ($chunk_number,$header_ref,$record_ref,$recstart,$recend,$endpos) = @_;
750 my ($array_ref, @keep_only) = @_;
768 for my $k (grep { not $keep{$_} } keys %options) {
850 my ($old,$new) = @_;
874 my ($shorthand,$long) = split/ /,$_,2;
1074 my $v = $_[0];
1086 print $vars_fh map { $_,"\n" } keys %ENV;
1126 push @vars, grep { not defined $ignore{$_} } keys %ENV;
1135 @vars = map { $_, "BASH_FUNC_$_()" } @vars;
1137 @vars = grep { defined($ENV{$_}) } @vars;
1144 my @bash_functions = grep { substr($ENV{$_},0,4) eq "() {" } @vars;
1145 my @non_functions = grep { substr($ENV{$_},0,4) ne "() {" } @vars;
1158 my @qcsh = (map { my $a=$_; "setenv $a " . env_quote($ENV{$a}) }
1160 my @qbash = (map { my $a=$_; "export $a=" . env_quote($ENV{$a}) }
1163 push @qbash, map { my $a=$_; "eval $a\"\$$a\"" } @bash_pre_shellshock;
1171 if(my @v = map { s/BASH_FUNC_(.*)\(\)/$1/; $_ } grep { $ENV{$_}=~/\n/ } @vars) {
1362 push @ARGV_profile, shellwords($_);
1439 print $outfh map { $_,$/ } @group;
1472 my @strings = (@_);
1485 my @strings = shell_quote(@_);
1500 my $a = $_[0];
1534 return Text::ParseWords::shellwords(@_);
1586 for (values %fh) { close $_; }
1699 $_->set_max_jobs_running(0);
1964 my %sshlogin = map { $_ eq ":" ? ($_=>"local") : ($_=>$_) } @workers;
1966 my %workerno = map { ($_=>$workerno++) } @workers;
1982 my $completed = ($Global::host{$_}->jobs_completed()||0);
1983 my $running = $Global::host{$_}->jobs_running();
1986 $sshlogin{$_}, $running, $completed,
1998 my $completed = ($Global::host{$_}->jobs_completed()||0);
1999 my $running = $Global::host{$_}->jobs_running();
2002 $workerno{$_}, $running, $completed,
2013 $sshlogin{$_},
2014 $Global::host{$_}->jobs_running(),
2015 ($Global::host{$_}->jobs_completed()||0),
2016 ($Global::host{$_}->jobs_running()+
2017 ($Global::host{$_}->jobs_completed()||0))*100
2027 $workerno{$_},
2028 $Global::host{$_}->jobs_running(),
2029 ($Global::host{$_}->jobs_completed()||0),
2030 ($Global::host{$_}->jobs_running()+
2031 ($Global::host{$_}->jobs_completed()||0))*100
2041 $sshlogin{$_}, $Global::host{$_}->jobs_running(),
2042 ($Global::host{$_}->jobs_completed()||0)) }
2051 $sshlogin{$_}, $Global::host{$_}->jobs_running(),
2052 ($Global::host{$_}->jobs_completed()||0)) }
2061 $workerno{$_}, $Global::host{$_}->jobs_running(),
2062 ($Global::host{$_}->jobs_completed()||0)) }
2071 $sshlogin{$_},
2072 ($Global::host{$_}->jobs_completed()||0)) }
2081 $workerno{$_},
2082 ($Global::host{$_}->jobs_completed()||0)) }
2102 for(values %Global::host) { $completed += $_->jobs_completed() }
2219 if($no_of_failed_sshlogins == grep { $_->max_jobs_running() > 0 } values %Global::host
2244 for my $s (@_) {
2289 push @Global::sshlogin, $_;
2448 $prepend .= $_;
2451 $_ = $prepend . $_;
2454 my @col = split /\t/, $_;
2559 my @command = @_;
2605 (@opt::env ? map { "--env ".::shell_quote_scalar($_) } @opt::env : ""),
2806 kill 9, $_;
2807 waitpid($_,0);
2808 delete $Global::unkilled_children{$_};
2892 my @w = @_;
2900 my @w = @_;
2997 return keys %{{ map { $_ => 1 } @_ }};
3004 for (@_) {
3006 defined $_ or next;
3007 defined $min or do { $min = $_; next; }; # Set $_ to the first non-undef
3008 $min = ($min < $_) ? $min : $_;
3017 for (@_) {
3019 defined $_ or next;
3020 defined $max or do { $max = $_; next; }; # Set $_ to the first non-undef
3021 $max = ($max > $_) ? $max : $_;
3029 my @args = @_;
3033 $_ and do { $sum += $_; }
3066 for my $prg (@_) {
3067 push @which, map { $_."/".$prg } grep { -x $_."/".$prg } split(":",$ENV{'PATH'});
3277 return ::tempfile(DIR=>$ENV{'TMPDIR'}, TEMPLATE => 'parXXXXX', @_);
3288 @_ = grep { defined $_ ? $_ : "" } @_;
3289 if($Global::debug eq "all" or $Global::debug eq $_[0]) {
3293 print $stdout @_[1..$#_];
3295 print @_[1..$#_];
3327 my @size_this = (@_);
3332 return total_size(@_);
3340 my @dump_this = (@_);
3365 croak(@_);
3371 carp(@_);
3392 %hostgroups = map { $_ => 1 } split(/\+/, $1);
3480 return grep { defined $self->{'hostgroups'}{$_} } @_;
4022 for (values %fh) { close $_ }
4759 $dir .= $_."/";
4837 unshift @{$self->{'unget'}}, @_;
5142 my ($self, $fd_no, $key, $fh) = @_;
5148 my ($self, $fd_no, $key) = @_;
5172 my ($header_ref,$block_ref,$endpos,$recstart,$recend) = @_;
5187 my ($block_ref,$recstart,$recend) = @_;
5302 my @signals = @_;
5409 ::min(map { $self->{'failed'}{$_} } keys %{$self->{'failed'}});
5420 $total_failures += $_;
5978 my $job = $_[0];
6108 print $out_fd $tag,$_;
6115 print $out_fd $tag,$_;
6139 my ($fdno,$in_fh,$out_fd) = @_;
6335 $len{$_} = 0;
6419 my $args = join(" ", map { $_->orig() } @$next_arg);
6562 return (join " ", map { $_->orig() }
6563 map { @$_ } @{$self->{'arg_list'}});
6581 map { my $s = $_;
6729 my $tt = $_;
6767 my $n = $#_+1;
6834 my $regexp = join('|', map { my $s = $_; $s =~ s/(\W)/\\$1/g; $s }
7018 unshift @{$self->{'unget'}}, @_;
7117 my ($lower, $upper) = (@_);
7186 ::debug("run", "RecordQueue-unget '@_'\n");
7187 $self->{'arg_number'} -= @_;
7188 unshift @{$self->{'unget'}}, @_;
7252 ::debug("run", "RecordColQueue-unget '@_'\n");
7253 unshift @{$self->{'unget'}}, @_;
7296 ::debug("run", "MultifileQueue-unget '@_'\n");
7297 unshift @{$self->{'unget'}}, @_;
7482 if(@_) {
7484 my @rest = expand_combinations(@_);
7486 push @p, map { [$x, @$_] } @rest;
7507 if(not grep { defined $Global::hostgroups{$_} } @hostgroups) {
7533 local $_;
7535 $_ = $self->{'orig'};
7537 $_ = trim_of($self->{'orig'});
7539 ::debug("replace", "eval ", $perlexpr, " ", $_, "\n");
7555 $self->{"rpl",0,$perlexpr} = $_;
7577 my @strings = map { defined $_ ? $_ : "" } (@_);
7851 ::debug("sem", "nlinks", (stat(_))[3], "size", (stat(_))[7], "\n");
7852 return (stat(_))[3];