parallel.pod: Example of --tag with uptime

This commit is contained in:
Ole Tange 2011-10-10 22:20:18 +02:00
parent 5c92569669
commit 50edcdd38d
9 changed files with 38 additions and 19 deletions

20
configure vendored
View file

@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.68 for parallel 20110822.
# Generated by GNU Autoconf 2.68 for parallel 20111010.
#
# Report bugs to <bug-parallel@gnu.org>.
#
@ -559,8 +559,8 @@ MAKEFLAGS=
# Identity of this package.
PACKAGE_NAME='parallel'
PACKAGE_TARNAME='parallel'
PACKAGE_VERSION='20110822'
PACKAGE_STRING='parallel 20110822'
PACKAGE_VERSION='20111010'
PACKAGE_STRING='parallel 20111010'
PACKAGE_BUGREPORT='bug-parallel@gnu.org'
PACKAGE_URL=''
@ -1176,7 +1176,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
\`configure' configures parallel 20110822 to adapt to many kinds of systems.
\`configure' configures parallel 20111010 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@ -1242,7 +1242,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
short | recursive ) echo "Configuration of parallel 20110822:";;
short | recursive ) echo "Configuration of parallel 20111010:";;
esac
cat <<\_ACEOF
@ -1309,7 +1309,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
parallel configure 20110822
parallel configure 20111010
generated by GNU Autoconf 2.68
Copyright (C) 2010 Free Software Foundation, Inc.
@ -1326,7 +1326,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
It was created by parallel $as_me 20110822, which was
It was created by parallel $as_me 20111010, which was
generated by GNU Autoconf 2.68. Invocation command line was
$ $0 $@
@ -2141,7 +2141,7 @@ fi
# Define the identity of the package.
PACKAGE='parallel'
VERSION='20110822'
VERSION='20111010'
cat >>confdefs.h <<_ACEOF
@ -2704,7 +2704,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
This file was extended by parallel $as_me 20110822, which was
This file was extended by parallel $as_me 20111010, which was
generated by GNU Autoconf 2.68. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@ -2766,7 +2766,7 @@ _ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
parallel config.status 20110822
parallel config.status 20111010
configured by $0, generated by GNU Autoconf 2.68,
with options \\"\$ac_cs_config\\"

View file

@ -1,4 +1,4 @@
AC_INIT([parallel], [20110822], [bug-parallel@gnu.org])
AC_INIT([parallel], [20111010], [bug-parallel@gnu.org])
AM_INIT_AUTOMAKE([-Wall -Werror foreign])
AC_CONFIG_HEADERS([config.h])
AC_CONFIG_FILES([

View file

@ -256,7 +256,7 @@ parallel convert -resize {3} -quality {2} {1} {1.}_{3}_q{2}.jpg :::: - ::: 25 50
# Thank you for watching
#
# If you like GNU Parallel:
# * Post this video on forums/blogs/Identi.ca/Google+/Twitter/Facebook/Linkedin
# * Post this video on Reddit/forums/blogs/Identi.ca/Google+/Twitter/Facebook/Linkedin
# * Join the mailing list http://lists.gnu.org/mailman/listinfo/parallel
# * Request or write a review for your favourite blog or magazine
# * Request or build a package for your favourite distribution

View file

@ -195,16 +195,31 @@ do {
$target = (time - $start_time)*int($per_second);
$this_round = $target - my_memory_usage();
if($this_round > 0) {
my $a = "x"x(rand($this_round*3));
my $this_size = min(rand($this_round*3), $target_max-$memusage);
my $a = "x"x$this_size;
push @a,$a;
} else {
pop @a;
}
debug("memusage $memusage target $target this_round $this_round target_max $target_max\n");
debug("$#a memusage $memusage target $target this_round $this_round target_max $target_max\n");
usleep(500);
} while($memusage < $target_max);
sub min {
# Returns:
# Minimum value of array
my $min;
for (@_) {
# Skip undefs
defined $_ or next;
defined $min or do { $min = $_; next; }; # Set $_ to the first non-undef
$min = ($min < $_) ? $min : $_;
}
return $min;
}
sub debug {
# Returns: N/A
$Global::debug or return;

View file

@ -24,7 +24,7 @@
use strict;
use Getopt::Long;
$Global::progname="niceload";
$Global::version = 20110822;
$Global::version = 20111010;
Getopt::Long::Configure("bundling","require_order");
get_options_from_array(\@ARGV) || die_usage();
if($::opt_version) {

View file

@ -496,7 +496,7 @@ sub get_options_from_array {
sub parse_options {
# Returns: N/A
# Defaults:
$Global::version = 20111003;
$Global::version = 20111010;
$Global::progname = 'parallel';
$Global::infinity = 2**31;
$Global::debug = 0;

View file

@ -1716,6 +1716,10 @@ that more visible:
B<parallel --tag traceroute ::: foss.org.my debian.org freenetproject.org>
Check the uptime of the servers in I<~/.parallel/sshloginfile>:
B<parallel --tag -S .. --nonall uptime>
=head1 EXAMPLE: Keep order of output same as order of input

View file

@ -551,7 +551,7 @@ $Global::Initfile && unlink $Global::Initfile;
exit ($err);
sub parse_options {
$Global::version = 20110822;
$Global::version = 20111010;
$Global::progname = 'sql';
# This must be done first as this may exec myself

View file

@ -287,8 +287,8 @@ line 2
### Test --no-run-if-empty and -r: This should give no output
### Test --help and -h: Help output (just check we get the same amount of lines)
Output from -h and --help
22
22
27
27
### Test --version: Version output (just check we get the same amount of lines)
12
### Test --verbose and -t