mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-30 01:47:56 +00:00
79 lines
2.4 KiB
Plaintext
79 lines
2.4 KiB
Plaintext
### Test $PARALLEL
|
|
a
|
|
b
|
|
c
|
|
a
|
|
b
|
|
c
|
|
a
|
|
b
|
|
c
|
|
echo 1 echo 2 a
|
|
1 echo 2 a
|
|
echo 1 echo 2 b
|
|
1 echo 2 b
|
|
echo 1 echo 2 c
|
|
1 echo 2 c
|
|
a
|
|
b
|
|
c
|
|
echo 1 echo 2 a
|
|
1 echo 2 a
|
|
echo 1 echo 2 b
|
|
1 echo 2 b
|
|
echo 1 echo 2 c
|
|
1 echo 2 c
|
|
### Test ugly quoting from $PARALLEL
|
|
perl -pe '$a=1; print$a' /dev/fd/63
|
|
1a
|
|
perl -pe '$a=1; print$a' /dev/fd/62
|
|
1b
|
|
perl -pe "\$a=1; print\$a" <(echo foo)
|
|
1foo
|
|
### Test ugly quoting from profile file
|
|
perl -pe '$a=1; print $a' /dev/fd/63
|
|
1a
|
|
perl -pe '$a=1; print $a' /dev/fd/62
|
|
1b
|
|
### Test ugly quoting from profile file --plain
|
|
echo /dev/fd/63
|
|
/dev/fd/63
|
|
echo /dev/fd/62
|
|
/dev/fd/62
|
|
echo foo
|
|
foo
|
|
ssh parallel@redhat9.tange.dk ssh centos3.tange.dk 'eval `echo $SHELL | grep "/t\{0,1\}csh" > /dev/null && echo setenv PARALLEL_SEQ '$PARALLEL_SEQ'\; setenv PARALLEL_PID '$PARALLEL_PID' || echo PARALLEL_SEQ='$PARALLEL_SEQ'\;export PARALLEL_SEQ\; PARALLEL_PID='$PARALLEL_PID'\;export PARALLEL_PID` ;' exec\ perl\ -e\ \'\$SIG\{CHLD\}=sub\{\$done=1\;\}\;\$pid=fork\;unless\(\$pid\)\{setpgrp\;exec\$ENV\{SHELL\},\"-c\",@ARGV\;die\"exec:\$\!\\n\"\;\}do\{\$s=\$s\<1\?0.001+\$s\*1.03:\$s\;select\(undef,undef,undef,\$s\)\;\}until\(\$done\|\|getppid==1\)\;kill\(SIGHUP,-\$\{pid\}\)unless\$done\;wait\;exit\(\$\?\&127\?128+\(\$\?\&127\):1+\$\?\>\>8\)\'\ perl\\\ -pe\\\ \\\"\\\\\\\$a=1\\\;\\\ print\\\ \\\\\\\$a\\\"\\\ \\\<\\\(echo\\\ foo\\\);
|
|
1foo
|
|
### Test quoting of $ in command from profile file
|
|
perl -pe '$a=1; print $a' <(echo foo)
|
|
1foo
|
|
### Test quoting of $ in command from profile file --plain
|
|
cat <(echo foo)
|
|
foo
|
|
### Test quoting of $ in command from $PARALLEL
|
|
perl -pe "\$a=1; print \$a" <(echo foo)
|
|
1foo
|
|
### Test quoting of $ in command from $PARALLEL --plain
|
|
cat <(echo foo)
|
|
foo
|
|
### Test quoting of space in arguments (-S) from profile file
|
|
perl -pe '$a=1; print $a' <(echo foo)
|
|
1foo
|
|
### Test quoting of space in arguments (-S) from profile file --plain
|
|
cat <(echo foo)
|
|
foo
|
|
### Test quoting of space in arguments (-S) from $PARALLEL
|
|
perl -pe "\$a=1; print \$a" <(echo foo)
|
|
1foo
|
|
### Test quoting of space in long arguments (--sshlogin) from profile file
|
|
perl -pe '$a=1; print $a' <(echo foo)
|
|
1foo
|
|
### Test quoting of space in arguments (-S) from $PARALLEL
|
|
perl -pe "\$a=1; print \$a" <(echo foo)
|
|
1foo
|
|
### Test merging of profiles - sort needed because -k only works on the single machine
|
|
parallel@parallel-server1 a
|
|
parallel@parallel-server2 a
|
|
### Test merging of profiles - sort needed because -k only works on the single machine --plain
|
|
a
|