in reply to Re^2: List::MoreUtils before, after and ... between?
in thread List::MoreUtils before, after and ... between?

...This should be close..

UPDATE:

Still not sure what the requested output is, but if it's only about eliminating the edges try

   DB<101> @list= ("a".."c","DBIC","A".."C","DANCER","a".."c")
 => ("a", "b", "c", "DBIC", "A", "B", "C", "DANCER", "a", "b", "c")
 
  DB<102> grep { /DBIC/ .. /DANCER/ and ! /DBIC/ and ! /DANCER/ } @lis
+t
 => ("A", "B", "C")

[download]

not DRY but effective.

Replies are listed 'Best First'.
Re^4: List::MoreUtils before, after and ... between?
by Boldra (Curate) on Feb 22, 2012 at 10:36 UTC
    That looks very readable and produces the output I said I need, but not for some of the edge cases that other monks thought of: 
    say for grep { /DBIC/ .. /Dancer/ and !/DBIC/ and !/Dancer/ } qw<eval 
+DBIC::3 eval DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dan
+cer::2 Dancer::1>;

    [download]
    and 
    say for grep { /DBIC/ .. /Dancer/ and !/DBIC/ and !/Dancer/ } qw<MyApp
+::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>;

    [download]
    I hadn't thought of these edge cases when I posted, but the first one is a distinct possibility. The example code with reverse before works ok for these.

    Thanks for showing me a new way of using the flip-flop.



    - Boldra
[reply]
[d/l]
[select]
Re^4: List::MoreUtils before, after and ... between?
by ikegami (Patriarch) on Feb 22, 2012 at 00:12 UTC

    The code is not even close to what it should be, and it's totally irrelevant if it's simply the output that is close to what it should be.

[reply]
      close enough ...see update.

      Cheers Rolf

[reply]
        I wish I could tell my boss that 1/3 of the work is close enough to call something done.
[reply]

In Section Seekers of Perl Wisdom