업무/Perl

[perl] 현재 날짜 출력하기

랄프위검 2011. 10. 21. 09:37

#!/usr/bin/perl

use POSIX;

MAIN:

{

    my $c_date = POSIX::strftime("%Y%m%d%H%M%S", localtime(time()));

    print "$c_date \n";

}