Какой шаблон регулярного выражения я должен использовать, чтобы разобрать нежелательные символы в этом формате?

Question

#!/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? Я просто хотел бы, чтобы отображалась дата. Если вы знаете о методе, отличном от регулярных выражений, это было бы здорово.

Answer 1

Вы можете использовать это регулярное выражение для соответствия заданному шаблону и группам захвата в круглых скобках, чтобы выбрать три требуемых компонента:(\d{4})T(\d{2})T(\d{2}) TTTT\d{2}:\d{2}

Это будет захватывать год, месяц и дату. При сопоставлении вы можете назначить их трем переменным, используя следующий синтаксис:

$time =~ m/(\d{4})T(\d{2})T(\d{2}) TTTT\d{2}:\d{2}/;
my ($year, $month, $day) = ($1, $2, $3);

Есть много онлайн-инструментов, которые расширяют и объясняют шаблоны регулярных выражений.