perl查找、截取字符的正则表达式

rubyish

比如:
mylusing cd me811
把上面这些数据放在数组中的一个元素中，又该怎么写呢？

liru:

1. WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019686         SP_Name=mylusing cd me811         UserType=very good         IMEI=
   
2. 
   
3. 复制代码

复制代码

是ma?

chichushanren

回复 9# rubyish


    卧虎藏龙！

hwhsmiple

my $str ="WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019685         Pesu_ID=         SP_Name=         UserType=         IMEI=         
WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019686         SP_Name=         UserType=         IMEI=  ";
my @arr = split /\s+/,$str;
my @arr2 = map {my @arr2 = split /\=/,$_;
                           if($#arr2>0)
                              {
                                   $arr2[1];
                              }
                            else
                               {
                                     "";
                                }
                          }  @arr;

foreach(@arr2)
{
print $_,",";
}

hwhsmiple

my $str ="WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019685         Pesu_ID=         SP_Name=         UserType=         IMEI=         
WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019686         SP_Name=         UserType=         IMEI=  ";
my @arr = split /\s+/,$str;
my @arr2 = map {$_ =~s/\w+\=//;$_}  @arr;
foreach(@arr2)
{
print $_,",";
}

jun277

回复 2# cdtits
请教一下perl脚本里面截取 sdfsdf{asd}.abc  cde  中}.后面的abc应该如何截取呢