Perl String Interpolation в команде Bash

Question

Я пытаюсь использовать GNU Date, чтобы получить секунды между двумя датами. Причина, по которой я использую GNU Date, заключается в производительности (в тестировании было в 10 раз быстрее, чем в Perl). Тем не менее, один из моих аргументов - переменная perl. Как это:

my $b_row="2012-01-05 20:20:22";
my $exec =qx'CUR_DATE=`echo $(date +"%F %T")` ; echo $(($(date -d  "$CUR_DATE" +%s)-$(date -d  "$b_row" +%s)))';

Проблема в том, что b_row не расширяется. Я пробовал пару разных решений (IPC :: System :: Simple), пытался настроить backticks и т. Д. Безуспешно, есть идеи, как сделать это соответствующим образом? Главное, мне нужно захватить вывод команды bash.

Answer 1

Облегчите себе и сделайте минимальный объем работы в оболочке.Это работает для меня:

my $b_row = '2012-01-05 20:20:22';

my $diff = qx(date -d "\$(date +'%F %T')" +%s) -
           qx(date -d            "$b_row" +%s);

Просто убедитесь, что $b_row не содержит метасимволов оболочки.

Answer 2

qx имеет функцию, позволяющую выбрать удобный разделитель, включая возможность интерполировать строку или нет (выбрав ' в качестве разделителя). Для этого варианта использования иногда требуется интерполяция, а иногда нет, поэтому qx (и обратные метки) могут оказаться неподходящим инструментом для работы.

readpipe, вероятно, лучший инструмент. Как и команда system EXPR, она принимает произвольный скаляр в качестве входных данных, и у вас есть все инструменты Perl для его создания. Один из способов сделать это:

my $exec = readpipe 
    'CUR_DATE=`echo $(date +"%F %T")` ;'   # interp not desired
    . ' echo $(($(date -d  "$CUR_DATE" +%s)-$(date -d  "'
    . qq/"$b_row"/                         # now interp is desired
    . ' +%s)))';                           # interp not desired again

Answer 3

Это потому, что вы используете ':

           Using single-quote as a delimiter protects the command from
           Perl's double-quote interpolation, passing it on to the shell
           instead:

               $perl_info  = qx(ps $$);            # that's Perl's $$
               $shell_info = qx'ps $$';            # that's the new shell's $$