Perl的. Regexp只工作一次

我需要用 regexp处理字符串,如果是数字则更改x-> y.

字符串:2x2x2 2x 2x2x 2x2x2x2x2

正则表达式:s /([0-9])x([0-9])/ $1y $2 / g

my $string = "2x2x2 2x 2x2x 2x2x2x2x2";

$string =~ s/([0-9])x([0-9])/$1y$2/g;

print "$string\n";

我期待:2y2y2 xx 2x 2y2x 2y2y2y2y2

但结果:2y2x2 2x 2y2x 2y2x2y2x2(并非所有2×2都改变了)

我该怎么办?

解决方法

试试下面的正则表达式:
s/(?<=\d)x(?=\d)/y/g

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...