Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: Altering regular expression trees

by ryan (Pilgrim)
on Jul 30, 2003 at 03:20 UTC ( #279066=note: print w/replies, xml ) Need Help??

in reply to Re: Altering regular expression trees
in thread Altering regular expression trees

You could try trapping the output using IPC::Open3. I do this for various deparse things, something like this will get the data for you. There is obviously neater ways to handle the data coming in, but for this example it works.
use strict; use IPC::Open3; + + my $debug = open3(\*WRITE, \*READ, \*ERROR, "perl -Mre=debug -e 'qr/.. +./'"); #old incorrect stuff :) #while (<READ>||<ERROR>) { # my (@read, @error) = (<READ>, <ERROR>); # print "READ: @read\n"; # print "ERROR: @error\n"; #} print <ERROR>; close(\*WRITE, \*READ, \*ERROR);
If doing the above is 'naughty' in any way please tell me, I have no idea of the plethora of caveats it possibly entails :)

UPDATE: Thanks diotalevi, I overlooked that. If you take out the while loop and just simply print <ERROR>; it will show what it is meant to for the intended purpose, I had other uses on my mind at the time, one of which was obviously to stuff it up :) Have ammended code as such.

Replies are listed 'Best First'.
Re: Re: Altering regular expression trees
by diotalevi (Canon) on Jul 30, 2003 at 07:46 UTC

    I've never used IPC::OpenFoo before and can't comment. What I do notice is that in your while() loop you call readline() on either *READ alone or also *ERROR and then follow up by slurping th rest of each into the @read array, @error will always be empty. Fix the code and you've probably got something there.

    my @read = <READ>; my @error = <ERROR>; close READ; close WRITE; close ERROR;

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://279066]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2022-01-21 12:29 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (57 votes). Check out past polls.