正则表达式
组号 在正则表达式中用()可以对匹配内容进行分组,并且可以用\1,\2之类的来引用所匹配的组。新的perl还支持\g{N}的方式应用匹配的组号
选择匹配,用|可以选择匹配左边或右边, /fred|barrey|betty/
字符集合,用[]可以描述待匹配的字符的集合比如[abcdef12345]字符集合,也有些字符集合的简写形式如\w表示[A-Za-z],\d表示[0-9],还有\s表示所有空白符,\S表示非空白字符。 字符集合的反向集合,表示除字符集外的其他所有字符集合。[^\d]
匹配符/ /是m/ /的简写,当显示用m//时,/可以替换成别的成对的符号,类似qw()。
符号/i修饰符表示进行大小写无关的匹配,/s表示匹配任意字符,包括换行符。
瞄位,行瞄位^,$,词瞄位\b,词瞄位只匹配\w+的字符串。
邦定符~=, //默认用$_进行匹配,通过邦定符~=可以指定要匹配的字符串$line ~= /$what pattern/x $what可以是带双引号的内插字符串变量。匹配后的捕获变量\1,\2之类的 有生命周期。捕获变量的生命周期从此次匹配成功开始,到下次匹配成功后被重置,失败的匹配不会被替换。安全做法匹配后将捕获变量重新赋值给新的变量。
my $names = "fred or barney"; if ($names ~= m/(\w+) (or|and) (\w+)/) { say "I saw $1,$2";} #错,应该是$1,$3} 如果觉得$1,$2这样的名字很费劲可以这么写 if ($names ~= m/?<$name1>(\w+) (?:or|and) (?<$name2>\w+)/) { say "I saw $name1, $name2";} #这是命名的捕获变量
通用量词,可以用+表示大于等于1个,*表示大于0次,?表示0或1次。而通过{,}指定指定重复次数,比如+可以用{1,}表示,?用{0,1}
替换s/pattern/replacement/ ,默认是对匹配的第一个进行替换,如果加上/g可以进行全局替换,即匹配所有进行替换。
s/ / /和m// ,qw//一样用不同的界定符代替/
大小写替换,在替换过程中可以通过\U,\L对其后面修饰的所有字符串进行大小写的转换,也可以用\E结束大小写转换。当然\u,\l可以对后面的一个字符进行大小转换。
split 根据分割符拆分一个字符串为列表。@friends = splite/,/,"larrey,fred,banery"; split默认一空白分割$_,所以未指定要分割的字符串或分割符的时候,就要知道干嘛哦。
join是split的相反功能的函数,将列表用指定的字符连接起来。join又叫胶水函数,用胶水把碎片沾起来。$result = join $glue,@pices;
列表上下文环境中的匹配m// ,如果匹配成功返回所有捕获变量的列表,否则返回空列表
$_ = "hello there, neighbor" my($first, $second, $third) = /(\S+) (\S+) (\S+)/; 还可以将匹配的结果变成hash my $data = "Barney Jimy Fred Larry Wilam Filance" my $last_name = ($data ~= /(\w+) (\w+)/gi
贪婪量词和非贪婪的量词。像*,+直接使用的时候一般使用贪婪的方法尽量匹配多的后序字符,而有时候希望非贪婪的匹配,这时候在*,+后用?修饰,比如*?,.*。
批量更新文件,在用钻石符<>对命令行参数对应的文件进行处理(不如替换,删除)时,如果有多个文件处理,如果我们希望处理前进行备份,而这个备份的后缀可以通过修改变量$^I的值。在$^I为空时,表示直接处理,不备份。
通过perl命令直接处理文件。perl -p -i.bak -w -e "s/\bRandall\b/\bRandal\b/g/" *.txt -p表示对每一行处理 -i.bak修改前将原文件备份以.bak为原文件新后缀,-w打开警告,-e指示所要执行的命令。