How can I split fields and values by = when some values contain =?

Question

Possible Duplicate:
converting multline string to array

    my $text = "a=10|b=20|c=20|d=\' I am multing line string  A=10
dfasd fas
d
as df
asd
f a
sd
fas
d fsd \'|e=10"

 foreach my $pairing (split(/\|/,$text)) {
        print "$pairing ";
        my ($field,$value)=split(/=/,$pairing);
         print "**$field,$value**";
        }


its not printing  a= 10 , b=20 , c=20 , and 
d=I am multing line string  A=10 dfasd fas
    d
    as df
    asd
    f a
    sd
    fas
    d fsd , e =10 ?

Also, it works fine after I fix the missing semicolon on the first line and delete the extra `}`. — cdhowie, Nov 19 '10 at 17:32
This is just a mildly tweaked re-post of http://stackoverflow.com/questions/4226042/converting-multline-string-to-array — Zaid, Nov 19 '10 at 17:34
Posted code doesn't compile. But if I add a semicolon to the first line and take off the extra `}`, it does what I expect. — aschepler, Nov 19 '10 at 17:35
`use strict; use warnings;` and check your code before posting, or no one can help you. — Ether, Nov 19 '10 at 17:42

score 2 · Accepted Answer · answered Nov 19 '10 at 18:02

2

Specify a limit for the second split:

#!/usr/bin/perl

use strict; use warnings;

my $text = "a=10|b=20|c=20|d=\' I am multing line string  A=10
dfasd fas
d
as df
asd
f a
sd
fas
d fsd \'|e=10";

foreach my $pairing (split qr{\|}, $text) {
    my ($field, $value) = split /=/, $pairing, 2;
    print "**$field,$value**\n";
}

answered Nov 19 '10 at 18:02

Sinan Ünür

116,958
15
196
339

2

+1 just for demonstrating psychic powers for WTF this question is about – mob Nov 19 '10 at 18:10

How can I split fields and values by = when some values contain =?

1 Answers1