perl学习-第九章

   前两天在公司加班学习perl,自己比较熟悉C语言，学习perl还是比较容易理解。看的书是《24学识perl教程》，书写得不错，自己边看书边写一些小程序，学习学习，要学更要习，这样掌握得会比较快。现在学到第九章，昨晚敲了一些代码，不多，先发上来。

      #!c:/perl/bin -w
print “好好努力学习perl,祝你成功/n";



#第九章
$a="my name is chgx09";
$ret=index($a,"chen");
$ret=index($a,"gx",3);
print "$ret/n";
$fish="one fish two fish three fish four fish";
$startpos=0;
$ret=index($fish,"fish",$startpos);
while($ret!=-1)
{
   print "found a fish at position $startpos  $ret/n"; 
   $startpos=$ret;
   $startpos=$startpos+1;
   $ret=index($fish,"fish",$startpos);
}
$startpos=length($fish);
print"$startpos/n";
while(($startpos=rindex($fish,"fish",$startpos))!=-1)
{
   print "found a fish at position $startpos  $startpos/n";
   $startpos--;
}

print substr($fish,5);
print "/n";
print substr($fish,10,20);
print "/n";
print substr($fish,10,-3);
print "/n";

$_="one fishs two fishs three fishs four fishs";
 tr/fishs/dottr/;
#print $dogg;
print "$_";
print "/n";
exit 0;