清源绿里

Perl字符串处理

最近因为工作需要用 Perl 脚本语言编写连接程序以实现几个专业程序间的外部耦合。就像三年前编写核电厂指标系统的 PHP语言 一样,连业余都算不上的我总得这些时候现学现卖,一边在网上找例子,一边写代码。留此系列文章仅为自己今后搜寻方便,假若也能为同道中人提供一些帮助,那最好不过。

1,字符串替换

1
2
3
4
5
6
7
8
9
10
11
12
# This is a string substituion sample.
# "" should be used before "$"

$array = "This is Tsian's \$blog.\n";
print $array;
$blog = "Para Sempre";
$array =~ s/\$blog/$blog/;
print $array;

# results:
# This is Tsian's $blog.
# This is Para Sempre.

Leave a Comment