perl - 在特定模式后获取子字符串，拆分还是向后看？

Question

我怎样才能得到之后的日期SP^：

89564;02/03/2005;;MT;M^08/17/75^F^12/28/2004^SP^07/22/57
89565;02/03/2005;DUO;MG;M^07/24/50^F^05/11/82^F^03/01/92^F^04/20/1986^SP^09/03/51

不知道我是否可以使用lookbehind，因为我不想要分隔符，只想要日期。我可以拆分并具体获取之后的日期SP^吗？

SP^在数据集中的不同位置，并不总是最后一个子字符串。

Answer 1

这对于您的示例来说已经足够了：

print "$1\n" if $s =~ /SP\^(.*)$/;

但如果您想具体说明日期格式：

print "$1\n" if $s =~ m!SP\^(\d\d/\d\d/\d\d)!;