文件处理，不会，听说perl处理可以。求助

mylusing

各位大神，我目前在做一个系统，要求把文件入库，但提供给我们的文件很不规则，如果规则的话入库很容易。但是给的文件很乱。如下：
May  7 00:00:00 192.168.2.201 ha_web_s1a2: WAP_GATEWAY_ID=XZ-WAPGW         BEARER_TYPE=2         USER_MSISDN=+8618091019685         Pesu_ID=         SP_Name=         UserType=         IMEI=         UserAgent=Mozilla/5.0 (HW-HUAWEI_C8500/C8500V100R001C92B234;U;Android/2.1;240*320;CTC/2.0) AppleWebKit/530.17 Mobile Safari/530.17         NatLocalIP=192.168.2.201         NatLocalPort=41764         UAProf=http://wap1.huawei.com/uaprof/HW_C8500_1_20100127.xml         NAS_IP_Address=115.168.90.99         Client_IP_Address=10.169.42.18         URL=http://shm.z.qq.com/phone2.0/vaction.jsp?sid=ARaAU8udVQQ38WXlMnyET4v-&ac=131&buid=919755317&pid=1         PULL_Method=1         Destination_Address=180.153.3.178         Destination_Port=80         Operation_Type=3         Incoming_Request_TIME=1336320009704         Outgoing_Request_TIME=1336320009715         Incoming_Response_TIME=1336320010011         Outgoing_Response_TIME=1336320010011         CDR_STATUS=00         Uplink_CONTENT_LENGTH=0         

==============================================================================================
上面是其提供的文件。我想通过perl对其进行处理成很规则的文件。比如：
May  7 00:00:00 192.168.2.201 ha_web_s1a2: |XZ-WAPGW|2|+8618091019685|||||Mozilla/5.0 (HW-HUAWEI_C8500/C8500V100R001C92B234;U;Android/2.1;240*320;CTC/2.0) AppleWebKit/530.17 Mobile Safari/530.17|192.168.2.201|41764|http://wap1.huawei.com/uaprof/HW_C8500_1_20100127.xml|115.168.90.99  等等这种很规则的，请问，我需要如何写，如何处理。具体的文件请见附件。

kk861123

试试吧

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open(my $fh,"<","eg.txt") or die($!);
   
6. while (<$fh>) {
   
7.         chomp;
   
8.         my @fields = split;
   
9.         print join(q{ },@fields[0..4])," ";
   
10.         print join(q{|},map { /.*=(.*)/? $1 : $_ } @fields[5..$#fields] ),"\n";
    
11. }
    
12. close($fh);

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. while (<DATA>) {
   
4.     s/\s+\w*?=/\|/g;
   
5.     print;
   
6. }
   
7. 
   
8. __DATA__
   
9. May 7 00:00:00 192.168.2.201 ha_web_s1a2: WAP_GATEWAY_ID=XZ-WAPGW BEARER_TYPE=2 USER_MSISDN=+8618091019685 Pesu_ID= SP_Name= UserType= IMEI= UserAgent=Mozilla/5.0 (HW-HUAWEI_C8500/C8500V100R001C92B234;U;Android/2.1;240*320;CTC/2.0) AppleWebKit/530.17 Mobile Safari/530.17 NatLocalIP=192.168.2.201 NatLocalPort=41764 UAProf=http://wap1.huawei.com/uaprof/HW_C8500_1_20100127.xml NAS_IP_Address=115.168.90.99 Client_IP_Address=10.169.42.18 URL=http://shm.z.qq.com/phone2.0/vaction.jsp?sid=ARaAU8udVQQ38WXlMnyET4v-&ac=131&buid=919755317&pid=1 PULL_Method=1 Destination_Address=180.153.3.178 Destination_Port=80 Operation_Type=3 Incoming_Request_TIME=1336320009704 Outgoing_Request_TIME=1336320009715 Incoming_Response_TIME=1336320010011 Outgoing_Response_TIME=1336320010011 CDR_STATUS=00 Uplink_CONTENT_LENGTH=0

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. $^I = '.bak';
   
4. 
   
5. while (<>) {
   
6.     s/\s+\w*?=/\|/g;
   
7.     print;
   
8. }
   

复制代码

mylusing

kk861123 发表于 2012-06-27 21:52
试试吧

谢谢你哈。我再问一下，如果我想把输出的记录写到一个新的文件中，该如何写。
我还没有入门呢，请多多包涵

xiyoulaoyuanjia

管道重定向 应该可以   lianxi.pl  > resualt.txt

mylusing

貌似不行样，和shell不一样
回复 6# xiyoulaoyuanjia


   

xiyoulaoyuanjia

1. ./lianxi.pl > 1.txt
   
2. cat 1.txt
   
3. May 7 00:00:00 192.168.2.201 ha_web_s1a2:|XZ-WAPGW|2|+8618091019685|||||Mozilla/5.0 (HW-HUAWEI_C8500/C8500V100R001C92B234;U;Android/2.1;240*320;CTC/2.0) AppleWebKit/530.17 Mobile Safari/530.17|192.168.2.201|41764|http://wap1.huawei.com/uaprof/HW_C8500_1_20100127.xml|115.168.90.99|10.169.42.18|http://shm.z.qq.com/phone2.0/vaction.jsp?sid=ARaAU8udVQQ38WXlMnyET4v-&ac=131&buid=919755317&pid=1|1|180.153.3.178|80|3|1336320009704|1336320009715|1336320010011|1336320010011|00|0
   

复制代码

xiyoulaoyuanjia

上面是在命令行上重定向的，在代码中可以重定项标准输出！

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open STDOUT,">1.txt" or die "open stdout error!";
   
6. while (<DATA>) {
   
7.     s/\s+\w*?=/\|/g;
   
8.     print;
   
9. }
   

复制代码

mylusing

谢谢大家，这个问题已经处理了。