perl基础-9 (Perl编程24学时教程)

#!usr/bin/perl -w

$string = "one fish,two fish,three fish";
$start = -1;

while (($start = index($string,"fish",$start))!= -1)
{
	print $start;
	print "n";
	$start++;
}

print  rindex($string,"fish");
print "n";


print substr($string,4),"n";
print substr($string,4,-1),-10),"n";

print "replacen";
substr($string,0) = "some";
print $string;