perl - 如何添加时间并将其替换为 Perl 中的文件？

Question

我编写了以下代码以从服务器获取日期并以 yy/mm/dd-hh/mm/ss 格式显示它。

#!/usr/bin/perl
system(`date '+ %Y/%m/%d-%H:%M:%S' >ex.txt`);
open(MYINPUTFILE, "/tmp/ranjan/ex.txt");
while(<MYINPUTFILE>)
{
    chomp;
    print "$_\n";
}
close(MYINPUTFILE);

输出:

2013/07/29-18:58:04

我想给时间加两分钟，需要替换文件中的时间，请给我一些想法。

Answer 1

更改您的日期命令以添加 2 分钟:

date --date "+2 min" '+ %Y/%m/%d-%H:%M:%S'

或 Perl 版本:

use POSIX;
print strftime("%Y/%m/%d-%H:%M:%S", localtime(time + 120));