是否可以在 perl 中用符号链接替换 ​​url？

Question

我刚刚花了两天时间重新设计了一个 perl 脚本，它看起来非常好，但我有一个问题……用 perl 编写的日历。 我想防止用户发现我的脚本所在的实际文件夹，这是用 .htacces 完成的，所以在 html 中我可以轻松替换 <!--URL--> with <!../linkname> 但是日历日和月通过 perl 脚本 calendar.cgi 显示： 当用户点击一天或一个月时，它应该将他们带到日历主页，但通过完整的 URL 进行。 使用 html 页面中的符号链接，我可以使 domain.com/filename 转到 domain.com/cgi-bin/folder1/folder2 并且浏览器只会将 domain.com/filename 显示为 url，但日历天/月是用perl写的，所以：

违规行是$temper =~ s/<!--URL-->/$url/gm;

如何替换$temper =~ s/<!--URL--> with <!../linkname>? 如果我以与 html 相同的方式进行操作，则会返回错误。

编辑：错误代码

正则表达式修饰符“/a”和“/l”在 /home/public_html/cgi-bin/messenger/calendar.cgi 第 43 行互斥，在 /home/public_html/cgi- 靠近“=~”语法错误bin/messenger/calendar.cgi 第 43 行，“{..”附近的 /home/public_html/cgi-bin/messenger/messenger.cgi 第 36 行编译失败。

编辑，第 43 行： 这是原来的第 43 行

$temper =~ s/<!--URL-->/$url/gm;

但这会导致链接转到public_html/cgi-bin/folder/folder 我想替换为

$temper =~ s/<!../../filename>/$url/gm;

'filename' 是符号链接，浏览器地址栏将显示 domain.com/filename

编辑：TLP 感谢您的帮助，我不太擅长编码，尤其是 perl，但是当你们帮助我时，我学到了很多东西......就像你给了我信心，直到我得到对的！解决方案比我想象的要容易.....我不得不将/$url/gm;更改为/$xemail/gm；而不是替换<!--URL--> 现在效果很好！

Answer 1

线

$temper =~ s/<!../../filename>/$url/gm;

无效，因为/ 是替换运算符中的元字符。你必须像这样逃避它：

$temper =~ s/<!..\/..\/filename>/$url/gm;

或者为替换运算符s/// 使用不同的分隔符。你可以使用任何字符，例如|:

$temper =~ s|<!../../filename>|$url|gm;

那你就不用转义/了。