in reply to Altering regular expression trees

There are two general purpose solutions to this. japhy's YAPE::Regex will parse the string representation of your regular expression and return an element tree. You could see about manipulating that or getting your info from that somehow. The thing is though - its parsing regexes which means it isn't pulling directly from perl's actual parsed regex. For that you need MJD's Rx module. The issue with is that when I last looked, it required a patch to the perl interpreter (also supplied). If you need a high fidelity copy of your regex and altering your interpreter is not impossible then this is likely the best route.

Alternatively... you could attempt to capture the output from 'use re "debug"'. I asked about this once at Trapping re 'debug' and all I can come up with is if you throw a single instance of perl interpreter at a regex somewhat like `perl -Mre=debug -e 'qr/.../' 1> /dev/null 2> re.debug.output.txt` and then capture the output from STDERR from that. I've never been able to capture this data from within a perl process - not through redirecting STDERR, tying it or anything.

Replies are listed 'Best First'.
Re: Altering regular expression trees
by ryan (Pilgrim) on Jul 30, 2003 at 03:20 UTC
    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.
[reply]
[d/l]
[select]

      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