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

区切り文字は必要なく、日付のみが必要なため、後読みを使用できるかどうかはわかりません。の後の日付を分割して具体的に取得できますSP^か?

SP^データセット内のさまざまな位置にあり、常に最後の部分文字列ではありません。

Answer 1

これはあなたの例には十分です：

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

しかし、日付形式について具体的にしたい場合：

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