in reply to Regular expression not working

"[^"]" should be "[^"]*". I make that error all the time. But why aren't you using a JSON or YAML module to parse JSON? (JSON is a subset of YAML.)

I always get an empty string in each scalar variable.

No, you get undef in each of them.

Replies are listed 'Best First'.
Re^2: Regular expression not working
by oakb (Scribe) on Jan 04, 2010 at 17:41 UTC

    Oh man, do I feel stupid!  Adding the asterisk makes everything work as desired.  I guess that's one of the few times that Perl will do what you tell it to, instead of what you want it to.  Thank you for helping ease my shame with your kind remark.

    Is it worth the added complexity to use a JSON module, if all I want are the two strings listed here?

[reply]

      Is it worth the added complexity to use a JSON module, if all I want are the two strings listed here?

      You have it backwards. Calling a function is much simpler than developing a long regex pattern. As it is, your parser is highly incomplete. It can't even handle simple things like strings with quotes in them.

[reply]
      Is it worth the added complexity to use a JSON module, if all I want are the two strings listed here?
      Considering that you had to go to perlmonks and ask before you had a correct solution, I believe the answer is yes.
[reply]
Re^2: Regular expression not working
by oakb (Scribe) on Jan 04, 2010 at 17:50 UTC

    By the way, if you're feeling incredibly altruistic today, I would appreciate any input you might offer on another thread of mine, dealing with JSON that's been chunked and gzip'ed....

[reply]
      Corion has already posted what I'd do. Recreate the stream (somehow), create an HTTP::Response object from it (->parse), and let HTTP::Response remove the transfer encoding (->decoded_content).
[reply]
[d/l]
[select]

        Yeah, it's the "somehow" of recreating the stream that has me boggled at this point....

[reply]

In Section Seekers of Perl Wisdom