Perl <<EOP 在 reCapctha 框之前生成一个缩进。我该如何摆脱它？

Question

我的reCapctha中有以下代码。PM文件，它将导致capctha框向左缩进。我已经仔细检查了html文件超过10次，没有理由在那里缩进。所以我假设下面的代码是专门负责<<EOP部分。

我不太擅长perl，有人能帮我摆脱这个缩进/空间吗?这样的登陆页看起来很不专业。提前感谢您的帮助。

sub get_html
{
my ($self,$pubkey) = @_;
my $html = <<EOP
<script type="text/javascript">
var RecaptchaOptions = {theme: 'red'};
</script>
<script type="text/javascript" src="http://www.google.com/recaptcha/api/challenge?k=$pubkey"> </script>
EOP
;
}

Answer 1

如果你有像

my $foo = <<'__EOI__';
   foo
   bar
__EOI__

可以使用

删除前导空格

$foo =~ s/^s+//mg;

你甚至可以把剥离和赋值结合起来。

( my $foo = <<'__EOI__' ) =~ s/^s+//mg;
   foo
   bar
__EOI__