#!/usr/bin/perl
POSIX qw(strftime);
my $time = strftime("%YT%mT%d TTTT%H:%M", localtime);
print ("Todays date and time is $time\n");
Я немного подзабыл в регулярных выражениях, что будет шаблоном для поиска и замены следующего вывода. 2014T03T21 TTTT15:37? Я просто хотел бы, чтобы отображалась дата. Если вы знаете о методе, отличном от регулярных выражений, это было бы здорово.