刚刚看到一个兄弟要将所有的tab替换成与之对应同位数的空格,无意发现Perl内置常量的一些用法,主要是$&, $`,$'这三个的用法
$test = "before middle,after";
if ( $test =~ /\S(\w+),/)
{
print "命中目标为:$&\n";
print "目标左侧为:$`\n";
print "目标右侧为:$'\n";
}
从结果来看
$& 是匹配到的字符串
$` 是匹配到字符串其余左边的内容
$' 是匹配到字符串其余右边的内容