모든 인용 문자열을 정규 표현식으로 일치 시키십시오.

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 두 번 각각의 견적을 일치해야합니다. 표준 정규 표현식을 사용하면 'Once Upon A Time'과 'Grey 's Anatomy'는 명확한 이유가 없습니다.

의견을 보내 주셔서 감사합니다.

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'