perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From " Donavon Lerman " <d...@mycopanet.com>
Subject perl / embperl -- IPC::Open3
Date Mon, 19 May 2014 15:54:01 GMT

Hello.

I have a sample program in 2 formats perl & embperl.



The perl version works as a CGI but the embperl version does not work.



Any suggestions or pointers to solutions would be appreciated



OS: Linux version 2.6.35.6-48.fc14.i686.PAE (...) (gcc version 4.5.1 20100924 (Red Hat 4.5.1-4)
(GCC) ) #1 SMP Fri Oct 22 15:27:53 UTC 2010



*perl working script*



#!/usr/bin/perl use warnings; use strict; use IPC::Open3; use Symbol 'gensym'; print "Content-type:
text/plain\n\n"; my $cmd = 'ls'; my $pid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd); close(HIS_IN);
# give end of file to kid, or feed him my @outlines = <HIS_OUT>; # read till EOF my
@errlines = <HIS_ERR>; # XXX: block potential if massi +ve print "STDOUT: ", @outlines,
"\n"; print "STDERR: ", @errlines, "\n"; waitpid( $pid, 0 ); my $child_exit_status = $? >>
8; print "child_exit_status: $child_exit_status\n";






*embperl non-working script*

Here is the output I receive.
STDERR: ls: write error: Bad file descriptor

child_exit_status: 2




[- use warnings; use strict; use IPC::Open3; use Symbol 'gensym'; $escmode = 0; $http_headers_out{'Content-Type'}
= "text/plain"; my $cmd = 'ls'; my $pid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd); close(HIS_IN);
# give end of file to kid, or feed him my @outlines = <HIS_OUT>; # read till EOF my
@errlines = <HIS_ERR>; # XXX: block potential if massive print OUT "STDOUT: ", @outlines,
"\n"; print OUT "STDERR: ", @errlines, "\n"; waitpid( $pid, 0 ); my $child_exit_status = $?
>> 8; print OUT "child_exit_status: $child_exit_status\n"; -]






Mime
View raw message