in reply to Parsing and translating Perl Regexes
w.r.t the warning redirect, I've been preferring a local clobber of the __WARN__ handler recently. It's less intimidating to the unwashed, and expires naturally.
use strict; use warnings; my $log = parse_regex( q#(\\.|["']|x)# ); print $log; sub parse_regex { my ($regex) = @_; # Catch and stash warnings my $parselog = ''; local $SIG{__WARN__} = sub { $parselog .= $_ for @_; }; # --- compile regex eval q{ use re 'debug'; qr/$regex/; }; return $parselog; }
Best of luck; strikes me as an interesting challenge. Is use re 'debug'; output stable enough for automated parsing?
Update: Huh, the debug actually bypasses the warning handler and prints directly to STDERR. Now starting penance.
#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Parsing and translating Perl Regexes
by LanX (Saint) on Nov 04, 2013 at 19:40 UTC | |
by kennethk (Abbot) on Nov 04, 2013 at 21:02 UTC | |
by LanX (Saint) on Nov 05, 2013 at 12:21 UTC |
In Section
Seekers of Perl Wisdom