Question

我正在尝试将文件读入我的perl脚本，然后根据文件类型适当地设置标头。 PDF没有显示，我认为我的服务器人员已经锁定了这个东西。这个脚本有什么问题吗？

my $q = CGI->new;   #instantiate the CGI object
my $filename = $q->param('file');   # get the file param from the query string
my $text = read_file($filename);    # read in the file

my($name, $path, $suffix) = fileparse($filename, qr/\..*/);

if($suffix eq ".pdf") {
    print $q->header('Content-type: application/pdf');
} else {
    print $q->header('text/html');
}

Answer 1

$ perl -MCGI -E'my $q = CGI->new; print $q->header("Content-type: application/pdf");'
Content-Type: Content-type: application/pdf; charset=ISO-8859-1

您正在生成无效的标头。使用'application/pdf'或-type => 'application/pdf'或'Content-Type' => 'application/pdf'作为header method的参数。

通过perl脚本读取时，PDF不会显示在浏览器中

1 个答案: