perl backticks: use bash en lugar de sh

Question

Me di cuenta de que cuando uso los backticks en perl los comandos se ejecutan usando sh, no bash, lo que me da algunos problemas.

¿Cómo puedo cambiar ese comportamiento para que perl use bash?

PS. El comando que intento ejecutar es:

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

Answer 1

Trate

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

Estoy bastante seguro de que el argumento de -c se interpreta de la manera fiesta interpreta su línea de comandos. El truco es protegerlo de sh - para eso son las cotizaciones.

Answer 2

El "shell del sistema" no es generalmente mutable. Ver 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).

Si realmente necesita bash para realizar una tarea en particular, considere llamar explícitamente:

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

o incluso:

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

También puede poner sus comandos de bash en un archivo .sh e invocar eso directamente:

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

Answer 3

Pensé que perl cumpliría con la variable $SHELL, pero luego se me ocurrió que su comportamiento en realidad podría depender de la implementación exec de su sistema. En la mía, parece que exec

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

Siempre se puede hacer qw/bash your-command/, ¿no?

Answer 4

Este ejemplo funciona para mí:

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

Answer 5

Crear una subrutina Perl:

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

y utilizarlo como a continuación:

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

o utilizar Perl aquí-doc para multi-línea de comandos:

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

Answer 6

Para tratar con correr bash y comillas anidadas, este artículo proporciona la mejor solución: How can I use bash syntax in Perl's system()?

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