Question

perl 正则表达式

想要把任意一个小写英文字母后面加.的字符串后面的.去掉，用perl正则表达式中的替换（s） 怎么写？

例如，q.替换为q

我写了如下的perl文件：

#!/usr/bin/perl

$string = 'q.';

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

print "$string\n";

输出结果为：[a-z]

请高手指教。

Answer 1

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

完整的perl语言的程序如下

#!/usr/bin/perl
$string = 'q.';
$string =~ s/([a-z]{1})\./$1/g;
print "$string\n";

运行结果
q