mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-30 01:47:56 +00:00
79 lines
2 KiB
Plaintext
79 lines
2 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@parallel-server3 ssh parallel-server2 'eval `echo $SHELL | grep -E "/(t)?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` ;' 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
|