使用perl的正则表达式对文件中的特定类型超链接里面的换行去掉，使其在一行

感谢大学里面的王仲老师，他给我的影响很大，他教给我很重要的一点是要学习使用perl，当时我只是借了一本图书学习了一下，不曾运行过一句代码。

现今遇到难题了，才想起perl的强大来。如果说就我熟悉的语言来做比较，js擅长正则，java擅长文件，那么perl就是两者兼之。

以前没用perl，我考虑过将js与java通过web连接起来，以取长补短，但感觉还是太麻烦，并且那对于单文件还可以应付，如果要遍历整个目录，肯定够呛，所以我将目光投向了perl，以前只是纸上谈兵，现在要开始实战了。

问题：将下面这段代码

<td background='${imagePath}tabbg.gif' class='Tab_ContentTd'>
<a href="<@ww.url action="listChildBizModules">s23234
<@ww.param name="parentBizModuleId" value="bizModule.id"/>
</@ww.url>">
${action.getText("child.bizmodule.list")}
</a>sldfjslkdfjlskfl

<a href="<@ww.url action="listChildBizModules">s
<@ww.param name="parentBizModuleId" value="bizModule.id"/>
</@ww.url>">${action.getText("child.bizmodule.list")}
</a>
</td>
<td><img src="${imagePath}tabright.gif" class="Tab_HotRight"></td>

换成下面的形式

<td><img src='${imagePath}tab_left.gif' class="Tab_HotLeft"></td>
<td background='${imagePath}tabbg.gif' class='Tab_ContentTd'>
<a href="<@ww.url action="listChildBizModules">s23234<@ww.param name="parentBizModuleId" value="bizModule.id"/></@ww.url>">${action.getText("child.bizmodule.list")}</a>sldfjslkdfjlskfl

<a href="<@ww.url action="listChildBizModules">s<@ww.param name="parentBizModuleId" value="bizModule.id"/></@ww.url>">${action.getText("child.bizmodule.list")}</a>
</td>
<td><img src="${imagePath}tabright.gif" class="Tab_HotRight"></td>

即只对形如<a href="<@ww.url action超链接进行处理，使整个标签放到一行上（目的是为了让双引号的内容不至于错行，使js脚本可以正常运行），页面中的其它部分保持原样。看起来简单，实际上我所了解的任何编辑器都不能完成这项工作

下面说一下perl中的解决办法：

my $addr = 'D:\perltest\extcomponent\bizmoduleconfig\bizModule_header.ftl';
# my $addr = "c:\22.log";

if (open(FILE, $addr)) {
# here's what to do if the file opened successfully
print "open file \"$addr\" successful!\n";
}
else{
print "open file \"$addr\" unsuccessful!\n";
}

my $record;
{
local $/ = undef;// 一次性读取整个文件到变量中，参考http://perl.plover.com/local.html
$record=<FILE>;
}
close(FILE);

#找到超链接并且是使用双w的标签,使用e开关对结果进行处理再行替换
$record =~ s/<a href=\"<\@ww.*?<\/a>/subBlank($&)/esg;

open OUTFILE, ">", 'a.ftl' or die "Could not open file. $!";
print OUTFILE ($record);
close OUTFILE;

sub subBlank{
my $str = "$_[0]";
$str =~ s/\s*\R\s*//g;#去掉换行及换行前后的空格
return $str ;
}

必应了一天，终于找到对一个目录进行递归处理的方法（批量处理）

use File::Find;

my $dir = 'D:/perltest/new/extcomponent';# whatever you want the starting directory to be

find(\&do_something_with_file, $dir);

sub do_something_with_file
{
unless(-d){
# print $_ . "\n";
replaceww($_);
}
# print "\t"; #.....
}

sub replaceww{
if (open(FILE, $_)) {
# here's what to do if the file opened successfully
# print "open file \"$_\" successful!\n";
}
else{
print "open file \"$_\" unsuccessful!\n";
return;
}

my $record;
{
local $/ = undef;
$record=<FILE>;
}
close(FILE);

#找到超链接并且是使用双w的标签,使用e开关对结果进行处理再行替换
my $hasww =  $record =~ /<a href=\"<\@ww.*?<\/a>/sg;
if($hasww) {
print $hasww . "  " . $_ . "\n";

$record =~ s/<a href=\"<\@ww.*?<\/a>/subBlank($&)/esg;

# 将处理后的结果写回文件
open OUTFILE, ">", $_ or die "Could not open file. $!";
print OUTFILE ($record);
close OUTFILE;
}

sub subBlank{
my $str = "$_[0]";
$str =~ s/\s*\R\s*//g;#去掉换行及换行前后的空格
return $str ;
}

}

可以将上面的内容保存到一个文件replace_ww.pl中，然后在perl环境下执行即可，工具padre不错，也是perl官网推荐的IDE，虽然没有eclipse那样强大