perl正则表达式|顺序?

perl正则表达式|顺序?

perl正则表达式 ([a-z]{1})\. 替换成 $1

完整的perl语言的程序如下

#!/usr/bin/perl$string = 'q.';

$string =~ s/([a-z]{1})\./$1/g;

print "$string\n";

运行结果

q