解析和刪除perl中的字符串部分

Question

我想幫助解析某個字符串的名稱。我想要取出字符串並將其刪除，以便只有第一個名字會出現在字符串中。

假設我有一個名字像這樣

Mr. John Doe 
John Smith. 

在這兩種情況下，我想只得到字符串的第一個名字，並刪除所有其它字符。

---

編輯：

所以對於兩個字符串，他們被解析後會在對他們有John

我想知道是否有辦法用正則表達式來做到這一點的問題。

Answer 1

使用split將名稱的各部分放入數組中。

檢查第一個元素，看它是否是一個標題（「先生，女士，博士，或錯過」）。如果沒有，拿它。否則，取下一個元素並停止。

編輯：這是OP的原始問題的答案。編號2：請解釋任何反對票。如上所述，OP在後改變了他的問題我回答了。

Answer 2

這需要使用像Lingua::EN::NameParse這樣的模塊。真。