如何在.cgi脚本中调用.pl文件

Question

我使用的是从CAM :: PDF中提取PDF并将其打印到文本中的getpdftext.pl，但在我的web应用程序中，我想调用这个getpdftext.pl内部的.cgi脚本。你能建议我该怎么做或如何继续前进。我试图将getpdftext.pl转换为getpdftext.cgi，但它不起作用。

感谢所有

这是从我的request_admin.cgi脚本中提取

my $filename = $q->param('quote'); 
: 
: 
: 
&parsePdf($filename); 

#function to extract text from pdf ,save it in a text file and parse the required fields 
sub parsePdf($) 
{ 
    my $i; 
    print $_[0]; 
    $filein = "quote_uploads/$_[0]"; 
    $fileout = 'output.txt'; 

    print "inside parsePdf\n"; 

    open OUT, ">$fileout" or die "error: $!"; 

    open IN, '-|', "getpdftext.pl $filein" or die "error :$!" ; 

    while(<IN>) 
    { 
     print "$i"; 
     $i++; 
     print OUT; 
    } 

} 

Answer 1

这是极有可能

• 你的CGI脚本的环境是不完整的，足以找到 getpdftext.pl和/或
• 网络服务器用户没有执行权限它无论如何

看看你的网络服务器的错误日志，看看它是否报告任何指针为什么这不起作用。

Answer 2

在您的特定情况下，它可能是更简单，更直接的直接使用CAM::PDF，这应该已经与getpdftext.pl一起安装反正。

我看了一下这个剧本，我认为你的parsePdf子可以很容易地进行书面：

#!/usr/bin/perl 
use warnings; 
use strict; 

use CAM::PDF; 

sub parsePdf { 
    my $filein = "quote_uploads/$_[0]"; 
    my $fileout = 'output.txt'; 

    open my $out_fh, ">$fileout" or die "error: $!"; 

    my $doc = CAM::PDF->new($filein) || die "$CAM::PDF::errstr\n"; 
    my $i = 0; 

    foreach my $p ($doc->rangeToArray(1,$doc->numPages())) 
    { 
     my $str = $doc->getPageText($p); 
     if (defined $str) 
     { 
      CAM::PDF->asciify(\$str); 
      print $i++; 
      print $out_fh $str; 
     } 
    } 
}