Re^2: Bug with "last successfully matched regular expression" (empty regex)

Good catch, but the whole implementation is annoyingly inconsistent.

I thought I could make this more obvious by implementing functions like nodege(), noflip(), and noflop() to write something like

grep { noedge(/DBIC/ .. /DANCER/) }@list;

but try guessing which magic behavior hinders that:

  DB<52>  @list= ("a".."c","DBIC","A".."C","DANCER","a".."c");
 
  DB<53> sub ff { print $_[0]}
 
  DB<54>  grep { ff(/DBIC/ .. /DANCER/)  } @list;
0000000000
  DB<55>  grep { my $x=(/DBIC/ .. /DANCER/); ff($x) } @list;
12345E0
[download]

Of course I could also use something like compiled regexes for EDGE, FLIP, FLOP to be able to type something like:

grep { (/DBIC/ .. /DANCER/) !~ EDGE } @list;

but that doesn't seem to be trivial, too :-(

Thanks anyway!

Cheers Rolf

Comment on Re^2: Bug with "last successfully matched regular expression" (empty regex) Select or Download Code

Replies are listed 'Best First'.
Re^3: Bug with "last successfully matched regular expression" (empty regex) by LanX (Saint) on Feb 24, 2012 at 15:32 UTC
ARGH!!!!!!!!! `DB<52> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c"); DB<53> sub ff { print $_[0]} DB<54> grep { ff(/DBIC/ .. /DANCER/) } @list; 0000000000 DB<55> grep { my $x=(/DBIC/ .. /DANCER/); ff($x) } @list; 12345E0` [download] `ff()` evaluates the range operator in list context! applying prototypes solves this "problem": `DB<182> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c"); DB<183> sub ff ($) { print $_[0]} DB<184> grep { ff(/DBIC/ .. /DANCER/) } @list; 12345E0` [download] Cheers Rolf ( ...banging his head against the table...)	[reply] [d/l] [select]
Re^4: Bug with "last successfully matched regular expression" (empty regex) (list context) by tye (Sage) on Feb 24, 2012 at 20:49 UTC
Sorry, I thought your "guess which magic" was "an exercise for the reader" and that you already knew the answer or else I would've told you that when you posted. - tye	[reply]
Re^4: Bug with "last successfully matched regular expression" (empty regex) by choroba (Cardinal) on Feb 24, 2012 at 15:40 UTC
You can also use `scalar` to force scalar context: `grep { ff(scalar(/DBIC/ .. /DANCER/)) } @list;` [download]	[reply] [d/l] [select]
Re^5: Bug with "last successfully matched regular expression" (empty regex) by LanX (Saint) on Feb 24, 2012 at 15:48 UTC
sure but the idea here was to have a utilityfunction simplifying the use of indices returned by flip-flops: like `ff(/start/../stop/,"first")` or `ff(/start/../stop/,"last")` or `ff(/start/../stop/,"inner")` see also Re: Bug with "last successfully matched regular expression" (empty regex) Cheers Rolf	[reply] [d/l] [select]