perl对字段替换的小问题

浙江雁荡山

　　今天做一份东西需要对一些文件特定的字段进行修改，其实这改一下很方便，甚至不需要去写一个脚本，但是为了方便使用，同时也是巩固一下perl的知识，便写了这个小脚本。
　　但在写的过程中还是碰到了几个小问题，首先是perl目录切换的问题，我在当前目录readdir、opendir一个目录，并获得文件名以后，需要将这些文件打开处理，但是打开这些文件必然需要一个绝对路径或者是相对路径，所以导致直接打开这些文件会提示文件不存在的错误，当然打开文件的时候使用了open .... or warn "can not open file : $!";这样的处理。所以这个时候我采用了拼接一个目录的方法。



1 foreach my $myFile (readdir SCNDIR) {
2   my $localFile;
3   if ($scnDir =~ /\/$/) {
4     $localFile = $scnDir . $myFile;
5   } else {
6     $localFile = $scnDir . '/' . $myFile;
7   }
8   if (-f $localFile) {
9     editFileWord ($localFile);
10   }
11 }
　　其中$scnDir = $ARGV[0] 接收的，这里对$scnDir 做了一个判断，判断末尾是否加入了“/"符号。
　　这样就能解决文件路径的问题。
　　然后在匹配的时候发现自己犯了一个很大的错误。
　　就是通常使用open直接打开文件，然后就用while (<FILE>)的方式接收文件的每一句了，其中FILE是文件句柄。
　　然后对就收的到每一句进行匹配



$lines =~ s/$editWord/$editedWord/g
　　s表示搜索，g表示匹配所有，整句就标题把所有的$editWord替换成$editedWord
　　写完以后运行，查看文件，发现文件没有发生任何更改，想了一会发现自己真是蠢到家了。
　　$lines接收到了文件中读取的句子，但是我替换完以后并未将重新写回到文件中，开始想用seek的方法去写，发现如果替换的长短不一样，可能会造成一点问题。
　　也想过直接写入到一个新的文件，然后进行覆盖，不过终究感觉有点麻烦，然后搜了一个cpan，找到一个好模块
　　Tie::File
　　Tie::File - Access the lines of a disk file via a Perl array
　　用这个可以非常便捷地修改文件，方法如下：



sub editFileWord {
my $file = shift;
my $existWord = 0;
tie my @arrayLines, 'Tie::File', $file or die "can not open file : $!";
for (@arrayLines) {
if (s/$editWord/$editedWord/g) {
$existWord = 1;
}
}
if ($existWord) {
print $file . "\n";
}
}
　　这样就完成了字段的替换，很简单的一个小程序，但是却存在着不少的小问题。
　　Tie对文件的处理还是有神奇的作用的，有心的朋友可以去关注一下。
　　对perl还在摸索中，愿各位大神能留下宝贵的意见。