backlks perl: usare bash invece di sh

Question

Ho notato che quando uso backtick in perl i comandi vengono eseguiti usando sh, non bash, dandomi alcuni problemi.

Come posso modificare il comportamento in modo che perl utilizzi bash?

PS. Il comando che sto cercando di eseguire è:

paste filename <(cut -d \" \" -f 2 filename2 | grep -v mean) >> filename3 

Answer 1

Prova

`bash -c \"your command with args\"` 

Sono abbastanza sicuro che l'argomento del -c viene interpretato il modo bash interpreta la sua linea di comando. Il trucco è proteggerlo da sh - ecco a cosa servono le virgolette.

Answer 2

La "shell di sistema" non è generalmente modificabile. Vedere perldoc -f exec:

If there is more than one argument in LIST, or if LIST is an array with more than one value, calls execvp(3) with the arguments in LIST. If there is only one scalar argument or an array with one element in it, the argument is checked for shell metacharacters, and if there are any, the entire argument is passed to the system's command shell for parsing (this is "/bin/sh -c" on Unix platforms, but varies on other platforms).

Se avete veramente bisogno bash per eseguire un compito particolare, considerano definendola esplicitamente:

my $result = `/usr/bin/bash command arguments`; 

o anche:

open my $bash_handle, '| /usr/bin/bash' or die "Cannot open bash: $!"; 
print $bash_handle 'command arguments'; 

Si potrebbe anche mettere i comandi bash in un file .sh e invocarlo direttamente:

my $result = `/usr/bin/bash script.pl`; 

Answer 3

Ho pensato che la variabile onorasse la variabile $SHELL, ma poi mi è venuto in mente che il suo comportamento potrebbe effettivamente dipendere dall'implementazione exec del sistema. Nel mio, sembra che exec

will execute the shell (/bin/sh) with the path of the file as its first argument.

si può sempre fare qw/bash your-command/, no?

Answer 4

Questo esempio funziona per me:

$ perl -e 'print `/bin/bash -c "echo <(pwd)"`' 
/dev/fd/63 

Answer 5

Creare una subroutine Perl:

sub bash { return `cat << 'EOF' | /bin/bash\n$_[0]\nEOF\n`; } 

e usarlo come di seguito:

my $bash_cmd = 'paste filename <(cut -d " " -f 2 filename2 | grep -v mean) >> filename3'; 
print &bash($bash_cmd); 

Oppure usare perl qui-doc per il multi-linea di comandi:

$bash_cmd = <<'EOF'; 
    for ((i = 0; i < 10; i++)); do 
     echo "${i}" 
    done 
EOF 
print &bash($bash_cmd); 

Answer 6

Per far fronte con bash in esecuzione e citazioni nidificate, questo articolo fornisce la soluzione migliore: How can I use bash syntax in Perl's system()?

my @args = ("bash", "-c", "diff <(ls -l) <(ls -al)"); 
system(@args);