Re^2: Feature Idea: qr//e

Having your other post in mind I misread your question, sorry.

you don't want to operate on an array but a code-block

Would you accept something like the following as sufficiently equivalent?

sub qre(&;@) {
  my $block = shift;
  my $str = $block->(@_);
  return qr/$str/;
}
[download]

~~(not tested)~~

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)

Je suis Charlie!}

udpate

some functional code:

use Data::Dump;

sub qre(&;@) {
  my $block = shift;
  my $str = $block->(@_);
  return qr/$str/;
}

sub ored {
   return join '|', map {quotemeta} @_
}

sub oredraw {
   return join '|', @_
}

my @strings = qw/. | %/ ;


dd qre {join '|', map {quotemeta} @strings };

dd qre \&ored, @strings;

dd qre \&oredraw, @strings;
[download]

Comment on Re^2: Feature Idea: qr//e Select or Download Code

Replies are listed 'Best First'.
Re^3: Feature Idea: qr//e by haukex (Archbishop) on Jan 18, 2017 at 18:08 UTC
Hi LanX, `sub qre(&;@) { my $block = shift; my $str = $block->(@_); return qr/$str/; }` [download] Thanks, that's an excellent piece of inspiration! Just to take that idea a little further and add support for `/i` and the like: `sub qre (&;$) { my $re = shift->(); eval 'qr/$re/'.(shift//'') \|\| die $@ } my $regex = qre{ join '\|', qw/foo bar/ }'i'; print "$regex\n"; __END__ (?^i:foo\|bar)` [download] Not that I'm going to start using this right away, for now this is just to satisfy my curiosity ;-) Thanks, -- Hauke D	[reply] [d/l] [select]
Re^4: Feature Idea: qr//e by TheDamian (Vicar) on Jan 19, 2017 at 22:42 UTC
One extra tweak to the prototype would allow you to add trailing modifiers without requiring the pesky quotes around them: `sub qre (&;) { my $re = shift->(); eval 'qr/$re/'.(shift//'') \|\| die $@ } my $regex = qre{ join '\|', qw/foo bar/ }i; print "$regex\n"; __END__` [download] or, from Perl 5.20 onwards: `sub qre :prototype(&;) { my $re = shift->(); eval 'qr/$re/'.(shift//'') \|\| die $@ } my $regex = qre{ join '\|', qw/foo bar/ }i; print "$regex\n";` [download] Damian	[reply] [d/l] [select]
Re^5: Feature Idea: qr//e by choroba (Cardinal) on Jan 19, 2017 at 22:51 UTC
It works only for some of the modifiers: `my $regex = qre{ join '\|', qw/foo bar/ }m;` [download] Returns: `Global symbol "$regex" requires explicit package name at ./1.pl line 1 +1. Execution of ./1.pl aborted due to compilation errors.` [download] Similarly, `s` yields `Global symbol "$regex" requires explicit package name at ./1.pl line 1 +1. syntax error at ./1.pl line 14, at EOF (Might be a runaway multi-line ;; string starting on line 11) Execution of ./1.pl aborted due to compilation errors.` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^6: Feature Idea: qr//e by TheDamian (Vicar) on Jan 20, 2017 at 19:54 UTC
Re^6: Feature Idea: qr//e by haukex (Archbishop) on Jan 21, 2017 at 10:10 UTC
Re^6: Feature Idea: qr//e by AnomalousMonk (Archbishop) on Jan 19, 2017 at 23:25 UTC
Re^6: Feature Idea: qr//e by LanX (Saint) on Jan 20, 2017 at 12:38 UTC
Re^7: Feature Idea: qr//e by huck (Prior) on Jan 20, 2017 at 13:11 UTC
Some notes below your chosen depth have not been shown here
Re^5: Feature Idea: qr//e by AnomalousMonk (Archbishop) on Jan 19, 2017 at 22:57 UTC
Replacing the expression `(shift//'')` with `(@_ ? shift : '')` gives you 5.10 agnosticism. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]