Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

619: ◆TWARamEjuA
08/05/29 07:02:31
my $Now_Date = sprintf qq|%04d/%02d/%02d %02d:%02d|, map {
$_->[0] += 1900;
$_->[1]++;
@$_;
}[(localtime)[5,4,3,2,1]];

2008/05/28 07:02
って出るかと思う。

次ページ

続きを表示

1を表示