如何不匹配行的某些部分的空格在Perl

$lines = AC P00450; Q14063;

我需要使用正則表達式來匹配AC後到來字符串的一部分。我使用下面的代碼：

if ($lines =~ /^AC(.*)/) { 
    print $1, "\n"; 
}

，它給了我下面的輸出：

P00450; Q14063;

我該如何調整我的正則表達式，這樣它不匹配AC後的空白，P00450之前和剛返回給我P00450; Q14063;沒有在前面的空白？我知道我得到我的輸出，因爲。*匹配任何類型的字符。這基本上是我想要的，但沒有P00450之前的空白。

2017-02-27 tmoneyz

'if（$ lines =〜/^AC \ s +（。*）/）'？ – AntonH

它是'$ line'還是'$ lines'？而你顯示的正則表達式不匹配那個字符串，因爲'^錨定在字符串的開頭和'AC'沒有出現在開頭。 – Borodin

排除一個或多個空格。

if ($lines =~ /^AC\s+(.*)/)

2017-02-27 05:10:52

回答