embperl - Utiliser IPC :: Open3 pour appeler wkhtmltopdf. STDIN ne fonctionne pas

Depuis l'embperl, j'essaye d'appeler wkhtmltopdf avec le module IPC :: Open3.embperl - Utiliser IPC :: Open3 pour appeler wkhtmltopdf. STDIN ne fonctionne pas

Je reçois un résultat (merci à ikegami) de wkhtmltopdf mais aucune entrée ne passe à wkhtmltopdf.

Ceci est lié à cette question: perl/embperl — IPC::Open3

Voici le code:

[- 
    use warnings; 
    use strict; 
    use IPC::Open3; 
    use POSIX; 
    use Symbol; 

    my $cmd = '/usr/local/bin/wkhtmltopdf - -'; 

    my $pdf = ''; 

    my $string = '<!DOCTYPE html> 
    <html> 
    <head> 
     <title>Hello World</title> 
    </head> 
    <body> 
     Hello World!!! 
    </body> 
    </html>'; 

    my $fhOUT = gensym(); 
    open($fhOUT, '>', '/dev/null') or die $!; 
    dup2(fileno($fhOUT), 1) or die $! if fileno($fhOUT) != 1; 
    local *STDOUT; 
    open(STDOUT, '>&=', 1) or die $!; 

    my $pid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd) or die "could not run cmd : $cmd : $!\n"; 

    print HIS_IN $string; 
    close(HIS_IN); 

    while(<HIS_OUT>) { 
    $pdf .= $_; 
    } 


    waitpid($pid, 0) or die "$!\n"; 
    my $retval = $?; 
    # print "retval-> $retval<br />\n"; 

    $http_headers_out{'Content-Type'}   = "application/pdf"; 
    $http_headers_out{'Content-Disposition'} = "attachment; filename=pdfTest.pdf"; 

    $escmode = 0; 
-] 
[+ $pdf +]

Source

2014-05-23 Donavon Lerman

Même idée pour STDIN, mais fd 0 au lieu de 1.

open(my $fhIN, '<', '/dev/null') or die $!; 
dup2(fileno($fhIN), 0) or die $! if fileno($fhIN) != 0; 
local *STDIN; open(STDIN, '<&=', 0) or die $!; 

open(my $fhOUT, '>', '/dev/null') or die $!; 
dup2(fileno($fhOUT), 1) or die $! if fileno($fhOUT) != 1; 
local *STDOUT; open(STDOUT, '>&=', 1) or die $!; 

my $pid = open3(
    local *HIS_IN, 
    local *HIS_OUT, 
    '>&STDERR', 
    $cmd 
); 

...

Cela suppose fd 0 et 1 sont fermés, comme c'est le cas ici.

Source

2014-05-26 00:07:46 ikegami

Bonjour ikegami. Merci d'avoir pris le temps de répondre. Cela semble fonctionner mais maintenant il y a un ** processus défunt ** qui apparaît dans la liste des processus. 'apache 24480 24396 0 14:34? 00:00:00 [wkhtmltopdf] ' –

Un processus défunt est celui qui n'a pas été récolté (par exemple en utilisant' wait' ou 'waitpid'). – ikegami

J'ai ajouté le waitpid et cela fonctionne quand j'ajoute 'open (mon $ fhIN, '<', '/ dev/null') ou meurs $ !; dup2 (fileno ($ fhIN), 0) ou meurs $! si fileno ($ fhIN)! = 0; local * STDIN; open (STDIN, '<& =', 0) ou die $ !; 'Après ça, je ne peux plus rien afficher à travers html. Il écrit bien dans un fichier, donc je sais que cela fonctionne mais je ne peux pas écrire dans le navigateur. –

embperl - Utiliser IPC :: Open3 pour appeler wkhtmltopdf. STDIN ne fonctionne pas

Répondre

Questions connexes