[Perl]字符串拼接

                                 Perl字符串拼接 

 

     在perl字符串處理中，經常會用到字符串拼接，本文将介绍两种字符串拼接的案例。

 

一、使用字符串拼接符

#!/usr/bin/perl -w

$line = "System";
$line .= "Verilog";
print("line = $line\n");

#line = SystemVerilog

 

二、使用join函数

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

   join EXPR, LIST

4.  使用案例

#!/usr/bin/perl -w

$string = join( "-", "one", "two", "three" );
print"Joined String is $string\n";

$string = join( "", "one", "two", "three" );
print"Joined String is $string\n";

• 结果

Joined String is one-two-three
Joined String is onetwothree

 

三、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()函数；都是多字符串进行格式化，不同的是该函数返回格式化后的结果字符串；

13、quotemeta(string)：把string中非单词的字母前加上反斜杠"/"；

14、hex(string)：把字符串形式的十六进制数据转换成十进制的整数；

15、int(floatnum)：把浮点数去掉小数部分而转换成整数；

16、oct(ocunum)：把字符串形式的八进制(0)或十六进制(0x)数据转换成十进制数；

17、ord(char)：返回字符char的ASCII值(整数)；

18、chr(ASCII_VALUE)：返回与整数ASCII_VALUE对应的字符；0 <= ASCII_VALUE <= 255；

19、defined(expr)：判断一个变量、数组或数组中的一个元素是否已经被赋值；expr为一个变量名、数组名或一个数组元素；如果已经定义或赋值，则返回true，否则返回false；

20、undef(expr)：取消变量、数组或数组中元素的定义，甚至可以取消子程序的定义，并回收其所占用的空间。返回值始终为未定义值，此值与空串等效；如：$RetValue = undef(expr) ;