【IT168 服务器学院】利用index 和 rindex 函数遍历搜索

　　从左向右

　　#!/usr/bin/perl
　　$a="aa ab ac abc ab";

　　sub searchstr {
　　    return index ($a, $char,$search);
　　}

　　print "Input search sub string:";
　　$char=<STDIN>;
　　chomp $char;
　　print "Search start:";
　　$search=<STDIN>;
　　chomp $search;

　　while (($search=searchstr($a,$char,$search)) != -1) {
　　    print " ",searchstr($a,$char,$search);
　　    $search=$search+1;
　　}

　　从右向左

　　#!/usr/bin/perl
　　$a="aa ab ac abc ab";
　　$search=length($a);
　　sub searchstr {
　　    return rindex ($a, $char,$search);
　　}

　　print "Input search sub string:";
　　$char=<STDIN>;
　　chomp $char;
　　while (($search=searchstr($a,$char,$search)) != -1) {
　　    print " ",searchstr($a,$char,$search);
　　    $search=$search-1;
　　}