1. 跨行模式匹配
传统的正则表达式是用来匹配单行文本的,不过perl可以处理任意长度的字符串,处理多行文本和处理单行文本没啥实质性的差别
$_ = "I'm much better\nthan Barney is\nat bowling, \nWilma.\n";
^
和$
用于匹配整个字符串的开始和结束的锚位
当模式加上m//
修饰符后,可以用^
和$
来匹配字符串内的每一行(m:multiple lines),现在,它们代表的位置是每行的开头和结尾
print "Found 'wilma' at start of line" if /^wilma\b/im; # 匹配成功
可以对多行文本逐个进行替换
open FILE, $filename or die "Can't open '$filename': $!";
my $lines = join '', <FILE>;
$lines =~ s/^/$filename: /gm;
2. 一次更新多个文件
通过程序自动更新文件内容时,常见的做法是先打开一个和原来一样的新文件,然后在需要的位置进行修改,最后用修改后的文件替换原来的文件。
要在perl中直接修改文件内容可以使用钻石操作符<>
#!/usr/bin/perl -w
use strict;
chomp(my $date = `date`);
$^I = ".bak";
while(<>){
s/\AAuthor:.*/Author: Randal L. Schwartz/;
s/\APhone:.*\n//;
s/\ADate:.*/Date: $date/;
print;
}
钻石操作符会读取命令参数指定的那些文件。程序的主循环一次会读取、更新及输出1行。更新过的内容如何写回文件?$^I
变量的默认值是undef,表示什么都不会发生。如果$^I
中是个字符串,该字符串就会变成备份文件的扩展名。
假设钻石操作符正好打开了fred03.bat文件,除了像以前一样打开文件外,它还会把文件名改成fred03.bat.bak,接着,钻石操作符会打开一个新文件并将它命名为fred03.bat。现在钻石操作符会把默认的输出设定为这个新打开的文件(fred03.bat),所以输出来的所有内容都会被写进这个文件。这样,wilhe循环会从旧文件读进1行输入,做一些改动,然后把新的内容写进新文件。在普通的机器上,这样的程序可以在几秒内更新上百个文件。
钻石操作符也会尽可能赋值原文件的所有者权限以及所有者设定
有人会把$^I
的值设为~这个字符,因为emacs在处理备份文件的文件名时也是这么做的。如果把$^I
设成空字符串,就会直接修改文件的内容,但不会留下任何备份。
3. 从命令行直接替代文件内容
$ perl -p -i.bak -w -e 's/Randall/Randal/g' fred*.bat
-p
选项类似以下代码
while(<>){
print;
}
-n
选项类似以下代码
while(<>){
}
-i.bak
在程序开始运行前将$^I
设为“.bak”,如果不想要备份,可以直接写-i,不加扩展名
-w
选项开启警告功能
-e
告诉perl后面跟着的是可供执行的程序源代码,s/Randall/Randal/g
这个字符串会被直接当成perl程序代码
fred*.dat
表示@ARGV
的值应该是匹配此文件模式的所有文件名
#!/usr/bin/perl -w
$^I = ".bak";
while(<>){
s/Randall/Randal/g;
print;
}