使用 Perl 脚本做文件内容替换

本人是Perl语言初学者,仅仅是读完 Perl语言入门(第四版).pdf,工作中写过几个小脚本。

感觉Perl语言处理文本任务确实很强大,准备写些个笔记用于知识积累。


最近工作中需要更新很多个文件,每个文件只需要更新字符串资源的字符串 id ,文件是 xml 格式的(Perl有强大的xml处理能力,这里直接当成文本文件处理了)。

基本上就是用新的id更新掉老的id,但是其他内容都是保持不变的。

直接使用文本比较工具进行更新的话,将会是个有着大量重复劳动的体力活。

我的办法是,使用比较工具把需要更新的内容摘取出来,形成两个文件,from 和 to ,分别是老的 id 和 新的 id。然后用脚本自动去执行更新这个动作,我们就可以去悠闲的去品咖啡了。

脚本内容相当简单:把 from 和 to 分别读取到两个数组存放。依次读取输入文件的每一行,如果是在 from 数组里面,就替换成 to数组里面的内容。(超级简单啊,甚至都不需要用到正则表达式哦)


#!perl -- update xml files

# open from.txt
open (FROM,";
close FROM;

# open to.txt
open (TO, ";
close TO;

# open input file
open (TOPROCESS, ";
close TOPROCESS;

# open output file
open (OUT, ">String.xml.txt");
select OUT;

# do the replace!
$counter = 0;
foreach $line(@ToProcess)
{
    if( $line eq $From[$counter])
    {
        $line = $To[$counter];
        $counter++;
    }
    print $line;
}
close OUT;


你可能感兴趣的:(Perl)