use Perl

• Try this instead: (Score:2)

  by Damian (784)

  my $VALUE  = do {
      use re 'eval';
      qr/(?>($QUOTED|$NUM))(??{'.' eq $^N ? FAIL : SUCCEED})/;
  };
  
  my $text = 'name => "foo", fav.num => 3';
  my @text = split /$VALUE/ => $text;
  print Dumper \@text;
  • Re:Try this instead: (Score:2)

    by Ovid (2709)

    Very interesting. I suspect it would take me a while to debug, but I've discovered that while this passes my test case wonderfully, it fails miserably when using that in the Lexer.pm [plover.com] example from HOP. My test case is clearly not representing the problem as well as I thought since others are having this problem on the Perlmonks site.
• A more natural way? (Score:1)

  by Aristotle (5147)

  Do you really need a deferred pattern there? I’d write it like so:

  qr/(?:$QUOTED|$NUM)(?(?{ '.' eq $+ })$FAIL)/;

  (which of course implies variables rather than constants.)

  Now given that, you get a zero-length match:

  $VAR1 = [
            'name => ',
            '"foo"',
            ', fav',
            '',
            '.num => ',
            '3'