perl常用语法

一、常用字符串处理函数

1、$position = index(string，substring，skipchars)；该函数返回子串substring在字符串string中的位置，如果不存在，则返回-1；参数skipchars是可选参数，表示查找之前跳过的字符数，即：从该位置处开始查找；

2、rindex(string，substring，skipchars)：功能与index()类似，不同的是它从string的右端开始查找；

3、$Len = length(string)：求字符串的长度；

4 、 $offset = pos(string)：返回最后一次模式匹配的位置；

5、$substring = substr(string，skipchars，length)：该函数在字符串string中跳过skipchars个字符的位置(从skipchars位置处)开始抽取长度为length的子串；第一个字符的位置为0；

6、study(string)：用一种内部格式提高变量的访问速度，同一个时刻仅对一个变量起作用；

7、lc(string)：把string中的所有字母都转换成小写字母；

8、uc(string)：把string中的所有字母都转换成大写字母；

9、lcfirst(string)：把string中的第一个字母转换成小写字母；

10、ucfirst(string)：把string中的第一个字母转换成大写字母；

11、join(sepatorstring，list)：把列表list中的所有元素串联到同一个字符串中，相邻两个元素之间使用sepatorstring分隔；

12、sprintf(formatstring，field1，field2，。。。，fieldn)：该函数的功能同C语言中的sprintf()函数；都是多字符串进行格式化，不同的是该函数返回格式化后的结果字符串；

 

二、使用join函数
join该函数使用EXPR的值将LIST的元素组合为单个字符串，以分隔每个元素。实际上，这与拆分相反。
注意，EXPR仅插在LIST中的成对元素之间；它不会放置在字符串的第一个或最后一个元素之前。要在没有分隔符的情况下将字符串连接在一起，请提供一个空字符串而不是undef。
基本语法：
join EXPR, LIST

$string = join("-","1","2","3");

print $string;

结果：1-2-3

 

三、字符串拼接

$string1 = "abc";

$string2 = "vnm";

$string3 = $string1 .  "-" . $string2;

print $string3;

结果:abc-vnm

 

四、数组长度

$array = scalar @array;
$hash = scalar key %hash;

 

五、perl 字符串比较和整数比较

字 符串比较操作符
操作符         描述         　
lt         小于         　
gt         大于         　
eq         等于         　
le         小于等于         　
ge         大于等于         　
ne         不等于         　
cmp         比较，返回 1, 0, or -1         　

 

if($1 eq $2){

  print "equal/n";

}

 

PS：切记不可以用整数比较操作符来比较字符串

整数比较操作符
操作符         描述
<         小于
>         大于
==         等于
<=         小于等于
>=         大于等于
!=         不等于
<=>         比较，返回 1, 0, or -1

 

 

六、字符串长度补齐

$num = 23;

$string = sprintf "%04s",$num;

print $string;

 

结果：0023。