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

時間に 2 分を追加したいので、ファイルに存在する時間を置き換える必要があります。いくつかのアイデアを教えてください。

Answer 1

date コマンドを変更して 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));