Oops...
Well, qr//s should always be written with a standard /xms tail anyway, so
:-))c:\@Work\Perl>perl -wMstrict -le "sub qre (&;*) { my $re = shift->(); return eval 'qr/$re/xms' . (@_ ? shift : '') or die $@; } ;; my $regex = qre{ join '|', qw/foo bar/ }i; print $regex; " (?msix:foo|bar)
Give a man a fish: <%-{-{-{-<
In reply to Re^6: Feature Idea: qr//e
by AnomalousMonk
in thread Feature Idea: qr//e (updated with solutions)
by haukex
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |