如何在bash shell脚本中的perl命令调用中使用shell变量？

Question

我在shell脚本中有一个perl命令来评估日期-1.

我如何$myDate在perl命令调用中使用？

这是我脚本中的部分:

myDate='10/10/2012'

Dt=$(perl -e 'use POSIX;print strftime '%m/%d/%y', localtime time-86400;")

我想用$myDate代替%m/%d/%y.

任何帮助将不胜感激.

谢谢.

Answer 1

shell中的变量以Perl的%ENV哈希值提供.使用bash(以及其他一些shell),您需要采取额外的步骤"导出"shell变量,以便子进程可以看到它.

mydate=10/10/2012
export mydate
perl -e 'print "my date is $ENV{mydate}\n"'

Answer 2

将值传递给任何其他程序的方法相同:将其作为arg传递.(您可能想要生成Perl代码,但这是一个坏主意.)

Dt=$( perl -MPOSIX -e'print strftime $ARGV[0], localtime time-86400;' -- "$myDate" )

请注意,代码并不总是返回昨天的日期(因为并非所有日期都有86400秒).为此,你想要的

Dt=$( perl -MPOSIX -e'my @d = localtime time-86400; --$d[4]; print strftime $ARGV[0], @d;' -- "$myDate" )

要么

Dt=$( perl -MDateTime -e'print DateTime->today(time_zone => "local")->subtract(days => 1)->strftime($ARGV[0]);' -- "$myDate" )

或者干脆

Dt=$( date --date='1 day ago' +"$myDate" )

Answer 3

在版本5.24中，using "而不是'还将shell变量传递给perl。

mydate=22/6/2016
perl -e "print $mydate"