脚本帮助，链接到不同子文件夹中的文件

Question

我真的很想得到一些帮助，一个 PERL-CGI 脚本（完整的工作脚本如下）。

如何将服务器的根文件夹（folder_f）添加到此：

〜s/_e.shtml/_f.shtml/

这段代码搜索所有出现的_e.shtml并将它们替换为_f.shtml（它位于同一文件夹中） ）。

然而，在这之间，我希望能够在其中添加服务器的“folder_f”文件夹的根目录，或者如果必须的话可以采用其他方式。

我的脚本称为“change-language.pl” - 在“file_e.shtml”中有一个指向它的超链接。单击时，它将尝试查找文件“file_f.shtml”。

例如我希望它做什么：

〜s/_e.shtml/(FOLDER_F)_f.shtml/（在下面的脚本中找到，但我添加了（FOLDER_F）。

我尝试过：$calling_page =~ s/_e.shtml/'s/^/$.\f'/_f.shtml/;

但它不起作用

。感谢任何人在这方面的帮助，因为据我所知，我似乎无法正确理解

下面的完整脚本，该脚本仅在两个语言文件（file_e.shtml 和 file_f.shtml）都驻留在其中时才有效 。我需要能够让脚本工作，以便它能够找到文件（file_f.shtml），但位于服务器根目录上名为“FOLDER_F”文件夹的不同子文件

夹中 。脚本的 $calling_page =~ s/_e.shtml/_f.shtml/; 有没有办法做到这一点：

$calling_page =~ s/_e.shtml(FOLDER_F)/_f.shtml/ - FOLDER_F 位于括号中是我希望能够修改脚本的地方，以便它转到子文件夹并在 FOLDER_F 子文件夹中获取 file_f.shtml 。

到目前为止，我所拥有的都是有效的，但只有在 _e.shtml 和 _f.shtml 文件位于同一文件夹中时才有效：

#!/usr/bin/perl
#
#
# get the URL for the Web page that called this script
$calling_page = $ENV{'HTTP_REFERER'};


if($calling_page =~ /(.*)\#.*/) {

# # only take the first part up to the #
$calling_page = $1;}

# ignore any file that is not _e.shtml or _f.shtml and do nothing!

# is this an _e.shtml file?

if($calling_page =~ /_e\.shtml/) {
# replace the suffix

$calling_page =~ s/_e\.shtml/_f\.shtml/;

print "Location: $calling_page\n\n";

# then is this an _f.shtml file?

}

Answer 1

如果我正确理解你的描述，你想将文件夹名称插入到 URL 中，如下所示：

http://domain.com/foo/bar.html -> http://domain.com/foo/folder_f/bar.html

如果是这种情况，那么你可以使用以下正则表达式来执行此操作：

$calling_page =~ s!/([^/]*)$!/folder_f/$1!;