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

最新推荐文章于 2019-07-17 21:09:49 发布

坏脾气的猪

最新推荐文章于 2019-07-17 21:09:49 发布

阅读量588

点赞数

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/ritazuozuo/article/details/8137914

版权

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文展示了Perl脚本中使用内置函数进行字符串搜索、替换、截取等操作的方法，包括查找特定子串的位置、计数、替换指定文本、获取字符串片段以及字符串的前后缀操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!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;