在一個模式中獲取前一個單詞

Question

我有一個從Perl中的一個字符串中獲取前一個單詞的場景。例如

$str = "there are lot of apples <xref id=1> and " . 
     "a lot of oranges <xref id=2> as blah blah"; 

我需要之前每個<xref(.*?)>

Answer 1

my $str = "there are lot of apples <xref id=1> and lot of oranges <xref id=2> as blah blah"; 

for my $substr ($str =~ m{(\w+)(?= <xref id)}g) { 
    print "- $substr\n"; 
} 

抓取前一個單詞（「蘋果」和上面的「桔子」）的關鍵是(?=...)一部分。

但是 - 你實際上不需要斷言。從一些很奇怪的邊緣情況

for my $substr ($str =~ m{(\w+)\s+<xhref id}g) { 

，它會工作得細（當然，除了