Perl字符串在模式後刪除它的一部分

Question

我有一個變量我的$html它包含一個字符串值。我想在單詞後刪除它

</SELECT> 

我該怎麼用Perl來做到這一點？

Answer 1

use warnings; 
use strict; 

my $html = '<SELECT>foo</SELECT> bar'; 
$html =~ s{(</SELECT>).*}{$1}; 
print "$html\n"; 

__END__ 

<SELECT>foo</SELECT> 

您還應該考慮使用CPAN上的許多HTML解析器之一。

Answer 2

$html =~ s#</SELECT>.*$#</SELECT>#; 

你或許可以把它寫不</SELECT>替換字符串之中，但恕我直言這將是的可讀性。

請注意到s ///替代可以一邊使用其它字符從/作爲分隔符，在這種情況下，我選擇使用#，因爲你的正則表達式中包含正斜槓字符，否則必須進行轉義使正則表達式少可讀

Answer 3

當刀（找固定的字符串）就足夠了，不要使用正則表達式（電鋸）：

my $html = 'use dom to work with </SELECT> html!'; 
my $cut = '</SELECT>'; 
printf "|%s|\n", substr($html, index($html, $cut) + length($cut)); 
==> 
| html!| 

Answer 4

如果你想你可以使用一個第一</SELECT>前站的文本正則表達式是這樣的：

$html =~ /(.*?<\/SELECT>)/; 
my $required_text = $1; 

或在一個步驟：

my ($required_text) = $html =~ /(.*?<\/SELECT>)/; 

它使用非格力dy修飾符?，我認爲是你需要的。
或更好的substr()子例程像上一個答案說。