打印匹配的捕获组时，perl是否会删除空格？

Question

有一个包含这种字符串的大文件，其中包括：

Date: Sun, 30 Mar 2014 19:19:47 +0000

我试图解析这样的日期：

if ($msg =~ /(Date:)(.+)(\+0000)/){$date = $2}

当我用简单的print $ date打印字符串时，我得到没有空格的字符串输出，如下所示：

Sun,30Mar201419:19:47

有什么问题？

Answer 1

.应始终与空格匹配，您的情况也不例外，

my $msg = "Date: Sun, 30 Mar 2014 19:19:47 +0000";

if ($msg =~ /(Date:)(.+)(\+0000)/) { print "~$2~" }

输出

~ Sun, 30 Mar 2014 19:19:47 ~