обратные кавычки perl: используйте bash вместо sh

Пытаться

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

Я почти уверен, что аргумент -c интерпретируется так, как bash интерпретирует свою командную строку. Хитрость в том, чтобы защитить его от sh - вот для чего нужны кавычки.

«Системная оболочка» обычно неизменяема. См. perldoc -f exec:

Если в LIST более одного аргумента или если LIST является массивом с более чем одним значением, вызывает execvp (3) с аргументами в LIST. Если есть только один скалярный аргумент или массив с одним элементом в нем, аргумент проверяется на наличие метасимволов оболочки, и если они есть, весь аргумент передается в командную оболочку системы для анализа (это "/ bin / sh -c "на платформах Unix, но может отличаться на других платформах).

Если вам действительно нужен bash для выполнения определенной задачи, рассмотрите возможность его явного вызова:

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

или даже:

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

Вы также можете поместить свои команды bash в файл .sh и вызывать его напрямую:

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

Этот пример работает для меня:

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

Лучшее решение для работы с запущенным bash и вложенными кавычками - это статья: Как использовать синтаксис bash в системе Perl ()?

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

Я думал, что perl будет учитывать переменную $SHELL, но потом мне пришло в голову, что ее поведение может фактически зависеть от реализации exec вашей системы. По-моему, кажется, что exec

выполнит оболочку (/ bin / sh) с путем к файлу в качестве первого аргумента.

Вы всегда можете сделать qw/bash your-command/, не так ли?

Создайте подпрограмму perl:

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

И используйте его, как показано ниже:

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

Или используйте perl here-doc для многострочных команд:

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