일부 값에 =가 있으면 필드와 값을 =로 나눌 수 있습니까?

Question

가능한 중복 :
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 ? 

Answer 1

두 번째 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"; 
}