如何在.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; 
     } 
    } 
}