爲什麼我的Perl不匹配運算符匹配任何東西？

Question

我是新來的Perl和圍繞屏幕抓取和正則表達式。我試圖以提取下列HTML塊的「標題」名稱：

... title="The Valley Downs Chicago"><img class="vimg120" ... 

我簡單的Perl代碼，這樣做是：

@htmlBlocks = split ("margin-bottom:20px",$content); 
foreach $item (@htmlBlocks) 
{ 
if (/\stitle="([^"]*)"/six) 
{ 
    print $1; 
} 
} 

，但它不顯示任何信息。雖然我正在解決它，但我會問專家如果你看到任何錯誤或潛在的問題。非常感謝您的幫助！

Answer 1

默認//搜索使用$_變量。如果您想搜索另一個變量，則在=~之前指定它。這裏是一個例子：

@htmlBlocks = split ("margin-bottom:20px",$content); 
foreach $item (@htmlBlocks) { 
    if ($item =~ /\stitle="([^"]*)"/six) { 
     print $1; 
    } 
}