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 接收的，这里对$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还在摸索中，愿各位大神能留下宝贵的意见。
页:
[1]