Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/javascript/453.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Javascript wkhtmltopdf创建的每个pdf页面中的表格标题_Javascript_Perl_Pdf - Fatal编程技术网

Javascript wkhtmltopdf创建的每个pdf页面中的表格标题

Javascript wkhtmltopdf创建的每个pdf页面中的表格标题,javascript,perl,pdf,Javascript,Perl,Pdf,我正在使用wkhtmltopdf-amd64创建pdf。我正在向这个perl文件发送一个字符串,它是javascript中的一个表。Pdf是正确创建的,但问题是在第2页和其他页上,我也需要表头。这是我的perl程序。请帮助 #!/usr/bin/perl use CGI; use CGI qw/param/; use URI::Escape; use strict; use Data::Dumper; use User; use ADMIN; use WORKFLOW; use Time:

我正在使用wkhtmltopdf-amd64创建pdf。我正在向这个perl文件发送一个字符串,它是javascript中的一个表。Pdf是正确创建的,但问题是在第2页和其他页上,我也需要表头。这是我的perl程序。请帮助

#!/usr/bin/perl
use CGI;
use CGI qw/param/;  
use URI::Escape; 
use strict;
use Data::Dumper;
use User;
use ADMIN;
use WORKFLOW;
use Time::Piece;
use User;
use HTML::Entities;
use lib "../utils";

use lib "../cgi";
use CGI::Carp qw(fatalsToBrowser);
use Date::Calc qw(:all);
use POSIX 'strftime';
use POSIX;
use configured_mail;
use PSESSION;
use 5.010;
use Time::Piece;
use URI::Escape; 
 use MIME::Base64;


my $userobj = User -> new();
my $BASEPATH = $userobj ->getAppBasePath();
my $URLBASEPATH = $userobj->getAppBaseUrl();
# my $admin_obj = ADMIN->new($proj,$username);
#my $proj;
#my $username;

my $query = CGI->new(); 
my $CGISESSID = $query->param('CGISESSID');

my $ps = PSESSION->new();
my $ps_outref = $ps->getSessionData("$CGISESSID");
my $proj = $ps_outref->{'proj'};

my ($pdffile,$htmlfile,$curtime);
our $PageNo;

sub generate_pdf
{
                my $file = shift @_;
                my $pdf_path = shift @_;

                my $curtime= localtime(time);
                $curtime =~ s/ /_/g;
                $curtime =~ s/:/_/g;    
                my $time=$curtime;
                $curtime=$pdf_path;

                $htmlfile ="$BASEPATH/macro/$proj/PDF_Report/".$curtime.".html";
                $pdffile="$BASEPATH/macro/$proj/PDF_Report/".$curtime.".pdf";
                open(INFO, ">$htmlfile");
                print INFO $file;
                close(INFO);


                system "../bin/wkhtmltopdf-amd64 -B 15 -L 15 -R 15 --zoom 1.00 --margin-top 10 --footer-spacing 3 --footer-left 'Page:[page]' --footer-right 'Date:$time' --header-center 'BenchMark Report' --footer-center 'Tata Technologies Ltd.' --footer-font-size 12 --header-font-size 15 -O landscape $htmlfile $pdffile";


              return 1;


}
1; 

一个解决方案是创建一个包含一页pdf文件的集合,每个页面一个,然后将它们加入到最终的pdf中

 if (@pdfFilenames > 1){
    my $filenameString = join(' ',@pdfFilenames);
    `pdfunite   $filenameString   joinedFinalAllCombinedPDFfilename.pdf `;
    `rm $filenameString `;
        :
        :
  }
使用pdfunite命令行应用程序。还有其他方法可以组合PDF,例如非常有用的pdftk(它不是Tk应用程序,AFAIK)

pdftk A=a-doc.pdf B=bbbbb.pdf C=file3.pdf D=page4.pdf\
        cat     C D A1-10 B18 B2 A400-4-2  \
        output  combined.pdf