sas와 정확히 일치하는 perl 정규식

Question

글자 또는 숫자로 된 숫자를 텍스트로 추출해야합니다.

나는 그렇게 보이는 테이블,

... 1 child ... 
... three children ... 
...four children ...  
...2 children... 
...five children 

나는 단어 또는 숫자 숫자로 작성된 숫자를 캡처 할 수 있습니다. 한 줄에 하나의 번호가 있습니다. 그래서 원하는 출력은 다음과 같습니다

1 
three 
four 
2 
five 

내 정규식은 다음과 같습니다

prxparse("/one|two|three|four|five|six|seven|eight|nine|ten|eleven|twelve|thirteen|child|\d\d?/") 

어떤 도움?

Answer 1

설명

번호를 제공하는 문자열의 번호와 일치한다이 정규 표현식은 공백이나 기호에 의해 둘러싸여있다.

(?<=\s|^)(?:[0-9]+|one|two|three|four|five|six|seven|eight|nine|ten)(?=\s|$)

라이브 예 : http://www.rubular.com/r/6ua7fTb8IS

하나의 외부 숫자의 철자가 단어 버전 포함하려면 - 10 당신이 사람들을 포함해야합니다. 이 정규식은 백에 0에서 숫자를 캡처 [드러내는 오타]

(?<=\s|^)(?:[0-9]+|(?:(?:twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety)\s)?(?:one(?:[\s-]hundred)?|two|three|four|five|six|seven|eight|nine)|ten|eleven|twelve|(?:thir|four|fif|six|seven|eight|nine)teen|twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety|zero)(?=\s|$)

이

라이브 예 : http://www.rubular.com/r/EIa18nx731

펄 예

$string = <<END; 
... 1 child ... 
... three children ... 
... four children ...  
... 2 children... 
... five children 
END 
@matches = $string =~ m/(?<=\s|^)[0-9]+|one|two|three|four|five|six|seven|eight|nine|ten(?=\s|$)/gi; 
    print join("\n", @matches); 

를 산출

1 
three 
four 
2 
five