system() richtig benutzen (solved) (Allgemeines zu Perl)

[thread]18150[/thread]

system() richtig benutzen [solved]

Tags: PDF shell wkhtmltopdf Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

Subtree:
PDF-Drucker als Lösung? (3 articles) 2013-02-18 14:24

+7 replies
cbxk1xg

2013-02-16 16:59
User since
2003-10-20
496 articles
BenutzerIn
Hallo!

da ich bisher keine elegante und einfach Lösung gefunden habe PDFs aus HTML-Files inkl. CSS zu erstellen, habe ich mich für wkhtmltopdf entschieden. In der Shell läuft es auch super, aber ich muss es auch aus einem Perl-Skript aufrufen können, da ich es später als CGI benutzen will.

Wenn ich system() so benutze wie unten demonstriert, schreibt mir das Script nun keine Datei namens "test.pdf" sondern "vorlage.pdf". - Also so wie das Perl-Skript heisst, nur mit einer anderen Extension. Außerdem zerhaut es mir die im PDF die Formatierung und den Zeichensatz. Ich bekomme lustige Zeichen wie etwa Ã¤Ã1.

Ich denke es liegt am falschen Aufruf von system(). Ich habe es auch schon mit dieser Doku (http://www.perlhowto.com/executing_external_comman...) probiert, aber ich scheitere daran, dass ich hier ja eigentlich zwei Programme hintereinander starten muss. Einmal den virtuellen x-Server "xvfb" und dann den eigentlichen Konverter "wkhtmltopdf". Das lässt sich auch nicht umgehen, da ich die Konvertierung auf einem Webserver durchführen muss, auf dem natürlich kein normales X läuft.

Hat jemand ne Idee?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use strict; use warnings; use diagnostics; use utf8; $source = "/root/source.html"; $destination = "/root/test.pdf"; system("xvfb-run --server-args='-screen 0, 1024x768x24' wkhtmltopdf $source $destination");
- +2 replies
- Linuxer
  
  2013-02-16 23:24
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Naja, wirklich aufrufen tust Du nur ein Programm, nämlich xvfb-run.
  Das nimmt dann eine Argumentliste und startet dann das entsprechende Programm, das in der Argumentliste enthalten ist.
  
  Um nicht in die Quoting-Falle zu tappen, würde ich mal das Kommando als Liste übergeben. Was ist, wenn Deine $source und $destination Leerzeichen enthalten? Wenn Du Elemente des Kommandos als Liste übergibst, ist eine $source auch mit Leerzeichen nur ein einzelnes Argument.
  Das Kommando wird außerdem direkt gestartet, ohne dass eine Shell-Instanz gestartet wird, die auch nochmal interpretieren will.
  
  Es ist ausserdem sinnvoll, den Rückgabewert zu überprüfen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my @cmd = ( 'xvfb-run', "--server-args='-screen 0, 1024x768x24'", 'wkhtmltopdf' $source, $destination, ); system( @cmd ) == 0 or die "Command <<@cmd>> not successful: $!\n";
  
  Deine "lustigen" Zeichen schauen nach Kodierungsproblemen aus; UTF8 vs iso-8859-* .
  Möglicherweise enthält die Originaldatei bereits fehlerhaft kodierte Zeichen? Evtl. sind die Kodierungsangaben im HTML falsch? Schwer zu raten...
  Da mögen andere mit mehr Wissen dazu sich zu äußern.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - cbxk1xg
    
    2013-02-17 18:49
    User since
    2003-10-20
    496 articles
    BenutzerIn
    
    Ich hab's jetzt hinbekommen. Es lag zum Teil am x-Server. Ich hab mir nach dieser Anleitung http://drupal.org/node/870058 ein Mini-Shell-Skript erstellt und rufe nun dieses Skript auf. Das schöne an dem Tool ist, dass es auch CSS und Bilder sauber rendert. Da kann momentan kein Perl-Modul mithalten. Das Modul WKHTMLTOPDF ist übrigens Mist.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
    
    #!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use utf8; my $RootAndSubDir = $ENV{'SCRIPT_FILENAME'}; $RootAndSubDir =~ s-(.*?)\/index.pl-$1/-g; my $root = "$RootAndSubDir"; my $in = $root."source.html"; my $out = $root."test.pdf"; print "Content-type: text/html\n\n"; print "<h1>Generating PDF...</h1>"; unlink($out); my @cmd = ( $root."wkhtmltopdf", $in, $out ); print "<pre>"; system( @cmd ) == 0 or print "Command <<@cmd>> not successful: $!\n"; print "</pre>"; print qq|<br/><br/><a href="http://example.com/pdf/test.pdf" target ="_blank">download PDF</a>|;
- GUIfreund
  
  2013-02-17 21:32
  
  Subtree with 4 replies: PDF-Drucker als Lösung?
  
  User since
  2011-08-08
  559 articles
  BenutzerIn
  
  2013-02-16T15:59:54 cbxk1xg
  da ich bisher keine elegante und einfach Lösung gefunden habe PDFs aus HTML-Files inkl. CSS zu erstellen ...
  
  Vielleicht kann dir dafür ein Pseudo-Drucker nützlich sein, der Dokumente als PDF in eine Datei "druckt". So was findet man im Web. Ich selbst verwende eDocPrintPro.
  Last edited: 2013-02-18 14:24:56 +0100 (CET)
  Gruß
  GUIfreund

View all threads created 2013-02-16 16:59.