http://www.perlmonks.org?node_id=884006


in reply to Re: string parsing with split
in thread string parsing with split

This would seem to work if I literally had the word "key" in the string. I was using that as an example. The actual string has different words that are not the same.

Here's something that looks a bit closer to the actual string:

platform=linux hpfFamily=hwseries npsFamily=SWseries rackcnt=1 SPAs=1 SPUpSPA=6 CPUs=6 shrParts="/part1 /home/part2" maintIface="eth2" DEncpSPA=4 nDEncs=4 npsMName="SystemName" portnums="ports=(0 1 2 3)" ints=(eth0 eth1)

Replies are listed 'Best First'.
Re^3: string parsing with split
by BrowserUk (Patriarch) on Jan 24, 2011 at 21:33 UTC
    Here's something that looks a bit closer to the actual string:

    Then here's something that may be a bit closer to a working solution for you?

    $s = q[platform=linux hpfFamily=hwseries npsFamily=SWseries rackcnt=1 +SPAs=1 SPUpSPA=6 CPUs=6 shrParts="/part1 /home/part2" maintIface="eth +2" DEncpSPA=4 nDEncs=4 npsMName="SystemName" portnums="ports=(0 1 2 3 +)" ints=(eth0 eth1)];; print for split ' (?=\w+=)', $s;; platform=linux hpfFamily=hwseries npsFamily=SWseries rackcnt=1 SPAs=1 SPUpSPA=6 CPUs=6 shrParts="/part1 /home/part2" maintIface="eth2" DEncpSPA=4 nDEncs=4 npsMName="SystemName" portnums="ports=(0 1 2 3)" ints=(eth0 eth1)

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
      @a = split ' (?=\w+=)', $s;;

      That was just what I needed! Thank you!