如何从.pm文件调用.cgi文件来运行?

时间:2013-07-02 19:39:40

标签: perl cgi

在我的.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;  
}

当我执行此操作时,没有任何反应。任何帮助将不胜感激。

1 个答案:

答案 0 :(得分:0)

在.pm文件中调用cgi文件没有帮助,创建.pm文件的包装并调用cgi文件