正則表達式匹配的所有引用的字符串

Question

我試圖做一個正則表達式，如果可能的話，這將匹配從文本的所有引用的字符串。 一個例子：

ABC released its full midseason schedule today, and it features premiere dates for several new shows, along with one rather surprising timeslot change.</p><p>First of all, ABC's previously reported plans for dramas 'Once Upon A Time,' 'Revenge,' 'Grey's Anatomy,' and 'Scandal' haven't changed. 

我想有結果：

's previously reported plans for dramas ' (not useful but i can manage it) 
'Once Upon A Time,' 
' ' 
'Revenge,' 
' 'Grey' 
'Grey's Anatomy,' 
etc 

，所以我會basicly需要兩次，每次報價相匹配。如果我使用標準的正則表達式，我不會有'從前'和'灰色的解剖學'，原因很明顯。

感謝您的任何建議！

Answer 1

下面是Perl的的解決方案，對於給定的例子工程。請參閱live demo。

#!/usr/bin/perl -w 

use strict; 
use warnings; 

while (<DATA>) { 

# \1/ Starting at the beginning of a string or non-word character, 
# \2/ MATCH a single-quote character followed by a character that is 
#  *not* a single quote character, 
# \3/ And continue matching one or more times: 
#  - a white space character, 
#  - a word character, 
#  - a comma, 
#  - or a single-quote that is followed by a lower-case 's' or 't'. 
# \4/ And END the match on a single quote. 
# \5/ Continue searching for additional matches. 

    my @matches = /(?:\A|\W)('[^'](?:\w|\s|,|'(?=[st]\b))+')/g; 

#     \___1___/\__2_/\___________3__________/4/\5/ 

    print join("\n", @matches), "\n"; 
} 

__END__ 
'At the Beginning' ABC released its full midseason schedule today, and it features premiere dates for several new shows, along with one rather surprising timeslot change.</p><p>First of all, ABC's previously reported plans for dramas 'Once Upon A Time,' 'Revenge,' 'Grey's Anatomy,' and 'Scandal' haven't changed. 

預期輸出：

'At the Beginning' 
'Once Upon A Time,' 
'Revenge,' 
'Grey's Anatomy,' 
'Scandal'