在我的 .pm 文件中,我使用内容类型为 text/html,来编写网页的源代码。我还需要编写一个下载代码,为此我需要将我的内容类型指定为“Content-Type:application/x-download”。我尝试在我的 .pm 文件本身中使用它,但浏览器会感到困惑并在网站上打印上面引用的行。因此,我将在单独的 .cgi 文件中编写以下下载代码。现在,我需要从 .pm 文件中调用这个 .cgi 文件,并且还需要将参数传递给 .cgi 文件。请帮忙?我试过的是:
.pm 文件:
...
system('downloadscript.cgi', $fileholder);
...
.cgi 文件:
#!/usr/bin/perl
use strict;
use warnings;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
my $ID = "sample.txt";
my $fileholder = shift;
if ($ID eq '') {
print "Content-type: text/html\n\n";
print "You must specify a file to download.";
} else {
print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=$ID\n\n";
print $fileholder;
}
当我执行此操作时,没有任何反应。任何帮助将不胜感激。