Perl中的替换(七)

在Perl中使用s///进行替换操作，与m//进行查找操作类似。

s/with (\w+)/against $1's team/; ##第一个双斜线，表示被替代的文本。第二个双斜线，表示将替代为的文本。

s///可以有不同的定界符，但是必须保证两对字符。一对包住模式，一对包住替换字符串。

s#^https://#http://#; ##使用#号，分别包住模式和替换字符串。

s{}(); ##使用{}包住模式，()包住需要替换的字符串。

s///默认对$_进行替换操作。

$_ = "green scaly dinosaur";

s/(\w+) (\w+)/$2, $1/; ##匹配两个单词后，交换次序。$_= "scaly green dinosaur";

s/^/huge,/; ##$_ = "huge, scaly, green dinosaur";

s/^\s+//; ##将开头的空白替换为空字符串;

s/\s+$//; ##将结尾的空白替换为空字符串;

s///也可以使用绑定操作符：

$file_name =～ s#^.*/##s; ##指定左侧为操作的字符串。替换后，字符串直接改变，存储在左侧的标量变量中。

my $copy = $original =~ s/\d+ ribs?/10 ribs/r; ##使用/r修饰符，不改变原字符串，返回新的字符串给$copy。

s///也可以使用模式修饰符，/g表示全局替换，/i表示不区分大小写，/x表示用空格作为分隔符，/s表示增大"."的范围。

字符串的大小写转换。

\U将之后的所有字符转换为大写。

\L将之后的所有字符转换为小写。

\u将之后的首字符转换为大写。

\l将之后的首字符转换为小写。

\E关闭大小写转换功能。

$_ = "I saw Barney with Fred";

s/(fred|barney)/\U$1/gi; ##$_ = "I saw BARNEY and FRED"

s/(fred|barney)/\L$1/gi;

s/(\w+) with (\w+)/\U$2\E with $1/i ##$_ = "I saw FRED with barney"

s/(fred|barney)/\u$1/ig; ##$_ = "I saw FRED with Barney"

字符串的一些操作符。字符串分割与合并。

my @fields = split /separator/, $string;

my @fields = split /:/, "abc:def:g:h";

my $result = join $glue, @piece;

my $i = join ":",4,6,8,10;

m//的返回值，在列表上下文，表示捕获变量的列表。

my $data = "Barney Rubble Fred Flintstone Wilma Flintstone";

my %last_name = ($data =~ /(\w+) \s+ (\w+)/g); ##由m//直接生成哈希。

直接从命令行运行简短的perl程序。

perl -p -i.bak -w -e 's/Random/Rand/g' fred*.dat

其中-p表示自动化生成一段读再输出的小程序。不需要带输出时，可以选择-n。

-i.bak对原文件做备份。

-w开启warning。

-e表示之后是直接执行的程序代码。

fred*.dat进行ARGV参数表，表示需要处理的文本。