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

mylusing

现在要将文件中的每条记录中的指定字符串截取出来具体如下：
记录:
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=       
现在，我想要的是
第一条记录：XZ-WAPGW，2+8618091019685， ， ， ，
第二条记录（第二条记录中没有Pesu_ID= 这个内容但是我想取的是如果没有这个内容，
我就将它自动补一个空格XZ-WAPGW，2+8618091019685， ， ， ，  
像这种正则表达式如何写呢？我才开始学习。请各位指导一下。谢谢1

cdtits

1. while (<DATA>) {
   
2.     if (/WAP_GATEWAY_ID=(\S+)\s+BEARER_TYPE=(\d+)\s+USER_MSISDN=(\+\d+)\s+(?:Pesu_ID=(\S*?)\s+)?SP_Name=(\S*?)\s+UserType=(\S*?)\s+IMEI=(\S*?)/i) {
   
3.         print "$1, $2$3, $4, $5, $6, $7\n";
   
4.     }
   
5. }
   
6. __DATA__
   
7. WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019685         Pesu_ID=         SP_Name=         UserType=         IMEI=         
   
8. WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019686         SP_Name=         UserType=         IMEI=        

复制代码

yinyuemi

回复 1# mylusing

1. perl -le '$str="WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019685         Pesu_ID=         SP_Name=         UserType=         IMEI=
   
2. WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019686         SP_Name=         UserType=         IMEI=   ";
   
3. $str=~/([^=]+)=(\S+)*\s+(\s)(?{printf (($2||" ").",".$3)})(*SKIP)(*FAIL)/;
   
4. '
   
5. XZ-WAPGW, 2, +8618091019685,  ,  ,  ,  ,
   
6. XZ-WAPGW, 2, +8618091019686,  ,  ,  ,
   

复制代码

rubyish

1. #!/usr/bin/perl
   
2. 
   
3. my @k = qw/WAP_GATEWAY_ID BEARER_TYPE USER_MSISDN Pesu_ID SP_Name UserType IMEI/;
   
4. 
   
5. while (<DATA>) {
   
6.     my %h = map { /(.*)=(.*)/; $1, $2 } split;
   
7.     my @a = map { $h{$_} ||= '' } @k;
   
8.     print join( ', ', $a[0], $a[1] . $a[2], @a[ 3 .. $#a ] ), "\n";
   
9. }
   
10. __DATA__
    
11. WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019685         Pesu_ID=         SP_Name=         UserType=         IMEI=        
    
12. WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019686         SP_Name=         UserType=         IMEI=
    

复制代码

mylusing

回复 2# cdtits


    麻烦能给我讲一下 $1 $2 $3 $4 等，这几个参数的对应关系么？

cdtits

回复 5# mylusing


    正则表达式中捕获小括号，从左向右数，第一个为 $1，第二个为 $2，依次类推

mylusing

回复 4# rubyish


你能否给我一个联系方式，我想继续问一下这个问题


   

xmchenb

2L正解！！！

rubyish

mylusing 发表于 2012-06-29 12:06
回复 4# rubyish
你能否给我一个联系方式，我想继续问一下这个问题

在这里你可以继续问问题
这里有很多大师

mylusing

回复 9# rubyish


my %h = map { /(.*)=(.*)/; $1, $2 } split;
my @a = map { $h{$_} ||= '' } @k;
print join( ', ', $a[0], $a[1] . $a[2], @a[ 3 .. $#a ] ), "\n";



这几句中的%h 这个我知道，是哈希函数，但是后面的map是什么意思，另外/(.*)=(.*)/ 写在map里面是什么意思?
后面的基本上知道。 我不熟悉perl，但是我理解是将数据放到一个数组中，然而如果这些数据中有些数据有空格，
但是又需要将这些空格放在数组中，该如何处理。
比如:
mylusing cd me811
把上面这些数据放在数组中的一个元素中，又该怎么写呢？