神奇的Perl-正则表达式(4)

 

1.     替换

2 

3 

1、语法格式:

$字符串变量名=~s/<pattern>/<replacement/

<pattern>为需要替换的匹配模式串，<replacement>为替换的字符串。 把符合 <pattern>模式的字符串替换为 <replacement>。

比如：将$myinfo字符串中的广东替换成北京。

$myinfo=~s/广东/北京/;

1、 示例：

1)    不使用匹配修饰符

#perl4-4.pl

my $mycity="广东湛江";

$mycity =~s/湛江/深圳/;#将湛江替换成深圳

print $mycity;

输出结果如下：

广东深圳

2)    使用匹配修饰符

#perl4-5.pl

#将字符串中深圳或湛江替换成广东

my $userlist="深圳刘发#上海李慧#北京张兵#湛江张济#湛江黄明";

$userlist =~s/湛江|深圳/广东/g;#将湛江和深圳替换成广东。

print $userlist;

运行结果如下：

广东刘发#上海李慧#北京张兵#广东张济#广东黄明

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载