Perl 中的 substr 应用

    今天看 Pleac Perl 中关于字符串函数 substr(). substr() 函数的作用有两个：替换一部分子串。 删除一部分子串。 1. 替换子串: substr($string,begin,end) " 把字= "With string符串 $string 由 begin开始到end结束的内容用 "With string"替换. 2. 删除部分子串: substr($string,begin,end) = "" ; 把 begin and end 之前的字串删掉. 3. 其中 begin and end 可以用一个负数表示,表示从后边起的多长的内容会被删掉!