[求助]将文件中的前后两行或者前后三行合为一行

小渔村

UID: 35768
帖子: 26
积分: 59
在线时间: 1 小时

1^# 小渔村发表于 2008-10-09 18:27

[求助]将文件中的前后两行或者前后三行合为一行

文件部分内容如下：

[Copy to clipboard] [ - ]

CODE:

.......
.......


<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfDailyStatAll.hbm.xml" />
<mapping
                     resource="cn/bestwiz/jhf/core/dao/bean/main/JhfLeverageGroup.hbm.xml" />
            <mapping
                     resource="cn/bestwiz/jhf/core/dao/bean/main/JhfSwapPoint.hbm.xml" />

.......
.......
<class-cache
                     class="cn.bestwiz.jhf.core.dao.bean.main.JhfCurrencyHolidayMaster"
                     usage="read-write" />
            <class-cache class="cn.bestwiz.jhf.core.dao.bean.main.JhfSwapPoint" usage="read-write" />

想要得到的结果：

[Copy to clipboard] [ - ]

CODE:

.......
.......


<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfDailyStatAll.hbm.xml" />
<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfLeverageGroup.hbm.xml" />
<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfSwapPoint.hbm.xml" />

.......
.......
<class-cache class="cn.bestwiz.jhf.core.dao.bean.main.JhfCurrencyHolidayMaster" usage="read-write" />
<class-cache class="cn.bestwiz.jhf.core.dao.bean.main.JhfSwapPoint" usage="read-write" />

然后再存回到文件中

我自己试了一下
open (F,"<log") or die ("can't open");
@old=<F>;
close F;
foreach (@old) {
   if ( /^--\>\s+/ ) {s/\s//g; print $_."\n";}
   if ( /^\<!--\s+/ ) {s/\s//g; print ;}

   if ( /^\s+resource=\w*/ ) {s/\s//g;print  $_;}
   if ( /^\s+\<mapping\s+/ )  {s/\s//g;print  $_;}
   if ( /^\s+\<class-cache/ ) {s/\s//g;print  $_;}
   if ( /^\s+class=\w*/ ) {s/\s//g;print  $_;}
   if ( /^\s+usage=\w*/ ) {s/\s//g;print  $_."\n";}
}
open (F,">log") or die ("can't open");
print  F @old;
close F;

}
比较繁琐而且格式有出入，而且会把原来必要的空格删除了。
各位大大帮帮出出主意

小弟刚学perl不久，请赐教,不慎感激

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

2^# hitsubunnu 发表于 2008-10-10 09:38

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;
my $data;

while(<DATA>){
$data .= $_;
}

$data =~ s/\s+/ /g;
$data =~ s/> </>\n</g;

print $data;

__END__


<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfDailyStatAll.hbm.xml" />
<mapping
                     resource="cn/bestwiz/jhf/core/dao/bean/main/JhfLeverageGroup.hbm.xml" />
            <mapping
                     resource="cn/bestwiz/jhf/core/dao/bean/main/JhfSwapPoint.hbm.xml" />

<class-cache
                     class="cn.bestwiz.jhf.core.dao.bean.main.JhfCurrencyHolidayMaster"
                     usage="read-write" />
            <class-cache class="cn.bestwiz.jhf.core.dao.bean.main.JhfSwapPoint" usage="read-write" />

[Copy to clipboard] [ - ]

CODE:

<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfDailyStatAll.hbm.xml" />
<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfLeverageGroup.hbm.xml" />
<mapping resource="cn/bestwiz/jhf/core/dao/bean/main/JhfSwapPoint.hbm.xml" />

<class-cache class="cn.bestwiz.jhf.core.dao.bean.main.JhfSwapPoint" usage="read-write" />

小渔村

UID: 35768
帖子: 26
积分: 59
在线时间: 1 小时

3^# 小渔村发表于 2008-10-10 11:59

谢谢你给了一个思路，

dream_one

UID: 7933
帖子: 113
积分: 259
在线时间: 17 小时

4^# dream_one 发表于 2008-10-10 12:33

佩服【精灵王】~~