Perl程序设计中常用的函数之4

指令：length

语法：length($string)

说明：
求出字符串$string的字节(bytes)值。

示例：
$string="Perl5";
$size=length($string); -----------------------#这时$size=5;

指令：substr

语法：substr($string,offset,length)
offset代表起始字符的位置,length代表引用的字符串长度，如果省略length则代表从起始值到字符串 的最后一个字符长度。而offset如果是负值的话，就会从字符串右边开始指定字符。

示例：
$s=substr("perl5",2,2);---------------------- #这时$s="rl";
$s=substr("perl5",2);------------------------- #这时$s="rl5";
$s=substr("perl5",-2,2);--------------------- #这时$s="er";

指令：index

语法：index($string,$substring,position)
$substring是要寻找的字符；position代表从哪一个位置开始寻找，假如省略position就从头开始找 起。

说明：
返回所要找寻的字符在一字符串$string中的位置，如果在字符串中找不到字符的话，则会返回-1这个 值。

示例：
$s=index("perl5","p"); ----------------------#这时$s=0
$s=index("perl5","l",2); -------------------- #这时$s=3
$s=index("perl5","perl"); -------------------#这时$s=-1

指令：push

语法：push(@array,$string)

说明：
在数组@array的最后附加新的元素 ($string)到数组@array中。

示例：
@array=("one","two");
push(@array,"three"); ----------------------#这时$@array=("one","two","three")

指令：pop

语法：pop(@array)

说明：将数组(@array)的最后一个元素删除，并将删除的元素返回。

示例：
@array=("one","two");
$rm=pop(@array);---------------------- #这时@array=("one");而$rm="two";

指令：unshift

语法：unshift(@array,$string)

说明：在数组@array的第一个元素前附加新的元素$string到数组@array中。

示例：
@array=("one","two");
unshift(@array,"three"); -----------------#这时@array=("three","one","two")

……