Re: How to test Output when using IPC::Open3

2010-08-28 Thread marcos rebelo
the idea is to process the STDOUT ad the STDERR. open don't do it Best Regards Marcos Rebelo On Sun, Aug 29, 2010 at 6:08 AM, John W. Krahn wrote: > C.DeRykus wrote: >> >> Since you mention simplifying the code, do you actually >> need IPC::Open3 ?  In your sample code, you're only >> reading p

Re: How to test Output when using IPC::Open3

2010-08-28 Thread John W. Krahn
C.DeRykus wrote: Since you mention simplifying the code, do you actually need IPC::Open3 ? In your sample code, you're only reading process output. If you don't need IPC::Open3 complexity, you could just use magic open to read output : sub shell_run { print ""; my $pid = open( m

Re: How to test Output when using IPC::Open3

2010-08-28 Thread C.DeRykus
On Aug 28, 12:45 am, ole...@gmail.com (marcos rebelo) wrote: > I'm having a more or less complicated code, that was simplified to this. > > use strict; > use warnings; > use IPC::Open3; > use IO::Handle; > use Test::More; > use Test::Trap; > > sub shell_run { >     my ($stdin, $stdout, $stderr) = m

Re: How can I open a remote ssh session with perl

2010-08-28 Thread Peter Scott
On Sat, 28 Aug 2010 11:55:01 +0530, S Pratap Singh wrote: > Is there any way I can get these interactive output via my script or I > am missing something? .. Thanks for your continued help. > > I need to get those interactive outputs to my script or is there any way > to open a psuedo terminal. I

Re: Perl Recaptcha

2010-08-28 Thread Shlomi Fish
Hi Duane, On Friday 27 August 2010 23:23:32 DuaneNLC wrote: > Hi All, > > I'm a noob at perl and I've been tasked with adding recaptcha to some > perl forms. I got everything working using the Perl Recapthca module, > however, the client has come back and said that are unable to install > perl mo

Perl Recaptcha

2010-08-28 Thread DuaneNLC
Hi All, I'm a noob at perl and I've been tasked with adding recaptcha to some perl forms. I got everything working using the Perl Recapthca module, however, the client has come back and said that are unable to install perl modules in the /usr/bin folder. The IT guy for the client doesnt have the a

How to test Output when using IPC::Open3

2010-08-28 Thread marcos rebelo
I'm having a more or less complicated code, that was simplified to this. use strict; use warnings; use IPC::Open3; use IO::Handle; use Test::More; use Test::Trap; sub shell_run { my ($stdin, $stdout, $stderr) = map {IO::Handle->new} (0..2); print ""; open3($stdin, $stdout, $stde