学习下perl语言中substr的用法。
substr substr (expr, skipchars, length) 抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，
或者理解为，从位置skipchars开始抽取子串（第一个字符位置为0），子串长度为length，此参数可忽略，意味着取剩下的全部字符。
当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。
substr() 函数的两个作用：替换一部分子串。 删除一部分子串。
例子：
复制代码 代码示例:
#!/bin/perl
#site: www.jb200.com
#
my $i; $str="ABCDEFGH";
for($i=0;$i<6;$i++)
{ $word=substr($str,$i,1);
$Q=ord($word)-64; ###字符型转化为ASCII码
$sum+=$Q;
}
print $sum;
截取字符串示例：
复制代码 代码示例:
substr($string, -12) = "ondrous";# 替换最后12个字符
substr($string, 0, 1) = ""; # 删除首字符
substr($string, -10) = ""; # 删除最后10个字符
