gpt4 book ai didi

Perl 语法错误 - "syntax error line 15 near "} else""

转载 作者:行者123 更新时间:2023-12-01 06:12:56 27 4
gpt4 key购买 nike

我在 Perl 中遇到了一个非常烦人的问题。这是我的代码:

if $password eq "a_secret";
{
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print '${var}=\"${val}\"\n'
};
}
else
{
print "<html><head><title>Unauthorized</title></head><h1>Unauthorized</h1><body>You do not have permission to access \printenv\printenv.pl on this server.</body></html>";
}

当我执行这段代码时,我收到以下错误消息:

syntax error line 10 near "else"

有什么想法吗?请注意,部分代码已被删除。

最佳答案

要评论的东西太多了。错误出现在第一行:您缺少条件周围的括号,并且 ;最后是多余的。

下一篇:写作 \n在单引号字符串中 '...'不会如你所愿。

然后,不是真的错了,但也不是很好的风格:print "..." } ;应该有 ;}反转。

关于Perl 语法错误 - "syntax error line 15 near "} else"",我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13730208/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com