Источник Img - переменная, URL-адрес получает кодировку

Question

У меня есть многоуровневый хеш, в котором у меня есть URL-адрес аватара пользователя.

Я пытаюсь создать ячейку с "Jane Doe image", но когда код запускается, URL-адрес изменяется. Когда я интерполировать его в шаблон EmbPerl,

https://foo.com/useravatar?size=small&id=11111 

превращается в

https://foo.com/useravatar%3Fsize%3Dsmall%26id%3D11111 

Как вы можете видеть, специальные символы становятся кодируются и поэтому изображение не найдено. Как вам обойти это?

use strict; 
use warnings; 

use Embperl qw(); 

our $issue = { 
    avatar => { 
     url => 'https://foo.com/useravatar?size=small&id=11111', 
    }, 
}; 

my $template = <<'__EOI__'; 
[+ $issue->{avatar}{url} +] 
<img src="[+ $issue->{avatar}{url} +]"> 
__EOI__ 

Embperl::Execute({ 
    input => \$template, 
    package => __PACKAGE__, 
}); 

Это дает:

https://foo.com/useravatar?size=small&id=11111 
<img src="https://foo.com/useravatar%3Fsize%3Dsmall%26id%3D11111"> 

Когда URL вставляется снаружи атрибута src, это правильно убежали. Но когда он вставлен внутри атрибута src, он становится искалеченным.

Answer 1

Выделяющийся вы заметили, предназначен для обработки

<img src="https://foo.com/useravatar?size=small&amp;id=[+ $avatar_id +]"> 

Вы можете изменить режим вытекающее. Используйте

<img src="[+ do { local $escmode = 1; $issue->{avatar}{url} } +]"> 

производить

<img src="https://foo.com/useravatar?size=small&amp;id=11111"> 

для извлечения изображения в URL

https://foo.com/useravatar?size=small&id=11111 

Тест:

use strict; 
use warnings; 

use Embperl qw(); 

our $issue = { 
    avatar => { 
     url => 'https://foo.com/useravatar?size=small&id=11111', 
    }, 
}; 

my $template = <<'__EOI__'; 
<img src="[+ $issue->{avatar}{url} +]"> 
<img src="[+ do { local $escmode = 1; $issue->{avatar}{url} } +]"> 
__EOI__ 

Embperl::Execute({ 
    input => \$template, 
    package => __PACKAGE__, 
});