s/// 替换模式

beyes

和 vi/vim 里所用的替换一样，Perl 一样使用 s/// 模式来进行替换。最简单的用法如下：
[code=perl]#!/usr/bin/perl

$_ = "welcome to groad.net";

s/groad/GROAD/;

print "$_\n";[/mw_shl_code]
运行输出：

./instead.pl
welcome to GROAD.net

模式匹配里可以使用正则表达式：
[code=perl]#!/usr/bin/perl

$_ = "welcome to groad.net";

s/(\w+)\.(\w+)/www.groad.net/;

print "$_\n";[/mw_shl_code]
运行输出：

./instead.pl
welcome to www.groad.net

可以在替换模式后使用全局替换 /g 。

去除头尾的所有空格正则：

s/^\s+ | \s+$//g

使用不同的界定符：
习惯上可能会使用 / 作为界定符，但是也可以使用其他的：

[Plain Text] 纯文本查看 复制代码

#!/usr/bin/perl

$_ = "welcome to groad.net";

s#^welcome#WELCOME#;

print "$_\n";

s{WELCOME}{Welcome};
print "$_\n";

s[Welcome][Huanying];
print "$_\n";

s<Huanying><welcome>;
print "$_\n";

运行输出：

./instead.pl
WELCOME to groad.net
Welcome to groad.net
Huanying to groad.net
welcome to groad.net