的Perl：擺脫從變量

Question

擴大了雙引號我怎樣才能得到

my $name = 'John "FOO" Rambo';

擴大在

<span title=\"The great and mighty $name\"

要像

<span title=\"The great and mighty John \"FOO\" Rambo\"</span>

而不是

<span title=\"The great and mighty John "FOO" Rambo\"

這樣生成頁面時，我的HTML標記沒有被破壞和名稱包含"？

Answer 1

正確的HTML代碼將通過在你原來的問題使用"

my $name = 'John "FOO" Rambo'; 
$name =~ s/"/"/g; 
my $html = "<span title=\"The great and mighty $name\"/>"; 
print $html ."\n"; 

對於澄清產生：

您可以使用簡單的正則表達式來代替引號。 例：

my $name = 'John "FOO" Rambo'; 
$name =~ s/"/\\"/g; 
my $html = "<span title=\"The great and mighty $name\"/>"; 
print $html ."\n"; 

這

$name =~ s/"/\\"/g; 

簡單地說，與\"替換所有"（但由於\是特殊字符需要被轉義爲\\"

的g意味着globally，即所有發生在字符串內的事件。

（即如果你只運行$name =~ s/"/\\"/;然後$name將John \"FOO" Rambo，但g它是John \"FOO\" Rambo）

但是這不會產生有效的HTML

Answer 2

正確的HTML將是以下幾點：

<span title="The great and mighty John &quot;FOO&quot; Rambo">...</span> 

您可以使用以下方式獲取它：

use HTML::Entities qw(encode_entities); 

my $html = '<span title="' . encode_entities("The great and mighty $name") . '">...</span>'; 
    -or- 
my $html = '<span title="The great and mighty ' . encode_entities($name) . '">...</span>'; 

您應該使用模板系統。如果您使用Template-Toolkit，模板將爲

<span title="The great and mighty [% name | html %]">...</span>