solaris 使用shell调用perl命令，怎么传递参数到perl中

stefsui

是这样的，由于solaris无敌弱的date命令，让我处理日期相关的文件痛不欲生。。。
我如果需要得到30天前的日期，我会在shell脚本中调用perl命令，使用当前的秒数减去30天的秒数。
命令如下：

bash-3.00$ date +%Y%m%d
20150506
bash-3.00$ perl -MPOSIX -le 'print strftime "%Y%m%d", localtime(time-2592000)'
20150406
bash-3.00$
这样我就得到了一个月前的日期，但是有一个问题，我希望2592000是个变量，就是说如果我想得到2个月前的参数，就是用2592000*$MONTH
在shell的变量，怎么才能传递到perl中呢？

请教大家

liion631818

回复 1# stefsui


    perl -MPOSIX -le 'print strftime "%Y%m%d", localtime(time-'$((10*24*60*60))')'

liion631818

X-Y problem回复 1# stefsui


    $ date +%Y%m%d -d@$((`date +%s` - 30*24*60*60))
20150406

jason680

回复 1# stefsui

using @ARGV array in Perl

$ perl -MPOSIX -le 'print strftime "%Y%m%d", localtime(time-$ARGV[0]*30*24*60*60)' 2
20150307

$ MONTH=2; perl -MPOSIX -le 'print strftime "%Y%m%d", localtime(time-$ARGV[0]*30*24*60*60)' $MONTH
20150307

   

stefsui

回复 3# liion631818


    没有-d参数。。。

stefsui

回复 4# jason680


    非常感谢，就是需要这个。。。我对perl不熟，写不出来
感谢

Shell_HAT

回复 3# liion631818


    不要乱说X-Y哦，Solaris系统的date命令没那功能

stefsui

回复 7# Shell_HAT


    是的，使用perl是我能想到最简单的处理日期的方式了，不然要写很多行才能把linux 中 date -d的功能实现

liion631818

这样啊，我又学习到了。回复 7# Shell_HAT