<Date: 2009-07-11>
<Author: Tsian>
<Category: 软硬兼施>
<5,757 Views>
最近因为工作需要用 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. |