曲径通幽论坛

标题: s/// 替换模式 [打印本页]

作者: beyes 时间: 2011-10-3 11:21
标题: s/// 替换模式
和 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

欢迎光临曲径通幽论坛 (http://www.groad.net/bbs/)