Re: Altering regular expression trees

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);
[download]

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.

Comment on Re: Altering regular expression trees Select or Download Code

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;` [download]	[reply] [d/l]

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;
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom