Perl正则表达式问题

Question

如何使用正则表达式捕获T之后的所有内容以及T之前的所有内容。

到目前为止，我只给了我1号。

 my $string = '2014-06-09T01:59:54.998Z';
 my $mystring = $string =~  m/T(.*)Z/;

我对正则表达式不是很了解。我假设这是在T和Z之间得到任何东西。试过离开Z仍然打印1.但它只打印

  1

Answer 1

my ($date, $time) = split /T/, $string;

在您的情况下，您忘记将匹配放在列表上下文中。

my ($mystring) = ($string =~  m/T(.*)Z/);

在标量上下文中，您将获得捕获的子字符串的数量。