#!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, 4), "\n"; print substr($string ,4,-1), "\n"; print substr($string ,-10), "\n"; print "replace\n"; substr($string ,0,0) = "some"; print $string;到此这篇perl基础-9 (Perl编程24学时教程)的文章就介绍到这了,更多相关内容请继续浏览下面的相关推荐文章，希望大家都能在编程的领域有一番成就！
版权声明：
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！
转载请注明出处，原文链接：https://www.xkablog.com/perlbc/1777.html