字符串

使用索引寻找子串
查找的方法依赖于查找的地方。如果在一个大字符串中查找，那很幸运的，index 函数可以帮你的忙。其看起来如下：
$where = index($big, $small);
Perl 查找子串第一次在大字符串中出现的地方，返回第一个字符的位置。字符位置是从0 开始编号的。如果子串在字符串
的开头处找到，则index 返回0。如果一个字符后，则返回１，依次类推。如果子串不存在，则返回-1
my $stuff = “Howdy world!”;
my $where = index($stuff, “wor”); #得到6
你可能想知道某个子串最后出现的位置◆。可以使用rindex 函数来做到。my $last_slash = rindex(“/etc/passwd”, “/”); #值为4

使用substr 操作子串
substr 只处理部分的字符串。看起来如下：
$part = substr($string, $initial_position, $length);
它有三个参数：一个字符串，一个从0 开始编号的初始位置（类似于index 的返回值），以及子串的长度。返回值是一个子串：
my $mineral = substr(“Fred J. Flintstone”, 8, 5); #得到“Flint”
my $rock = substr“Fred J. Flintstone”, 13, 1000; #得到“stone”
my $out = substr (“some very long string”, -3, 2); # $out 得到“in”

使用sprintf 格式化数据