in reply to Re^2: Can qr be un-compiled?
in thread Can qr be un-compiled?

I don't immediately have the means of converting a Perl regexp pattern into a JavaScript regexp pattern, but I got you half way there by answering your question. "[a-z].*?[0-9] $" would not be equivalent to the compiled regexp.

If you're dealing with the subset that's compatible to both, why don't you just keep the pattern and the compiled regexp separately? 

my %regexps = map { $_ => qr/$_/ } @regexps;

[download]

Replies are listed 'Best First'.
Re^4: Can qr be un-compiled?
by cosmicperl (Chaplain) on Feb 03, 2009 at 14:52 UTC
    The problem is I'm dealing with someone else's compiles regexps that are passed to me, so I don't have the original string :(
[reply]

      If it's just the flags, you can remove them yourself. 

      my %on_flags;
my %off_flags = map { $_ => 1 } split //, 'xism';
my $pattern = "$compiled";

if ($pattern =~ /^\(\?([a-z]+)(?:-([a-z])+)?:(.*)\)\z/s) {
   (my $on_flags, my $off_flags, $pattern) = ($1, $2||'');

   %on_flags  = map { $_ => 1 } split //, $on_flagfs;
   delete @off_flags{keys %on_flags};

   %off_flags = map { $_ => 1 } split //, $off_flags;
   delete @on_flags{keys %off_flags};
}

...generate JavaScript code here...

      [download]

      Note: Doesn't handle other features of Perl regexps not present in JavaScript. There's a regexp parser module on CPAN (whose name escapes me) that would be more useful to you if you want to handle more.

      Note: Since it expects a compiled pattern, it doesn't handle $compiled = '(?i:foo)bar\)';

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom