用于将unix月转换为数字的Perl脚本

Question

我正在寻找快速脚本或时间/日期模块来转换下面的Unix格式

[randy@go1server03 /ftp/device]$ date.

Thu Apr 24 13:48:28 UTC 2014

只有04-24，其中04是4月，24是日期。他们有任何快速而肮脏的方式来做这件事吗？

提前致谢

Answer 1

您可以使用：

#!/usr/local/bin/perl
use strict;
use warnings;
use Time::Piece;

my $date = localtime->strftime('%m-%d');
print $date;

DEMO ：http://ideone.com/K1hVy8

Answer 2

你为什么想要perl？尝试;

date +%m-%d

Answer 3

我建议在Perl中使用核心模块Time::Piece进行日期操作。

这是一个单行（使用当前时间）：

perl -MTime::Piece -wE '$t = Time::Piece->new; say $t->strftime( q{%m-%d} );'

或者在脚本中执行此操作：

use strict;
use warnings;
use 5.010;

use Time::Piece;

my $t = Time::Piece->new;
say $t->strftime('%m-%d');

Answer 4

perl -MDateTime -E'say DateTime->now->format_cldr("MM-dd")'