1#!./perl 2 3# $RCSfile: index.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:59 $ 4 5print "1..20\n"; 6 7 8$foo = 'Now is the time for all good men to come to the aid of their country.'; 9 10$first = substr($foo,0,index($foo,'the')); 11print ($first eq "Now is " ? "ok 1\n" : "not ok 1\n"); 12 13$last = substr($foo,rindex($foo,'the'),100); 14print ($last eq "their country." ? "ok 2\n" : "not ok 2\n"); 15 16$last = substr($foo,index($foo,'Now'),2); 17print ($last eq "No" ? "ok 3\n" : "not ok 3\n"); 18 19$last = substr($foo,rindex($foo,'Now'),2); 20print ($last eq "No" ? "ok 4\n" : "not ok 4\n"); 21 22$last = substr($foo,index($foo,'.'),100); 23print ($last eq "." ? "ok 5\n" : "not ok 5\n"); 24 25$last = substr($foo,rindex($foo,'.'),100); 26print ($last eq "." ? "ok 6\n" : "not ok 6\n"); 27 28print index("ababa","a",-1) == 0 ? "ok 7\n" : "not ok 7\n"; 29print index("ababa","a",0) == 0 ? "ok 8\n" : "not ok 8\n"; 30print index("ababa","a",1) == 2 ? "ok 9\n" : "not ok 9\n"; 31print index("ababa","a",2) == 2 ? "ok 10\n" : "not ok 10\n"; 32print index("ababa","a",3) == 4 ? "ok 11\n" : "not ok 11\n"; 33print index("ababa","a",4) == 4 ? "ok 12\n" : "not ok 12\n"; 34print index("ababa","a",5) == -1 ? "ok 13\n" : "not ok 13\n"; 35 36print rindex("ababa","a",-1) == -1 ? "ok 14\n" : "not ok 14\n"; 37print rindex("ababa","a",0) == 0 ? "ok 15\n" : "not ok 15\n"; 38print rindex("ababa","a",1) == 0 ? "ok 16\n" : "not ok 16\n"; 39print rindex("ababa","a",2) == 2 ? "ok 17\n" : "not ok 17\n"; 40print rindex("ababa","a",3) == 2 ? "ok 18\n" : "not ok 18\n"; 41print rindex("ababa","a",4) == 4 ? "ok 19\n" : "not ok 19\n"; 42print rindex("ababa","a",5) == 4 ? "ok 20\n" : "not ok 20\n"; 43