实例解析Perl substr函数应用

开发 架构
本文向大家简单介绍一下Perl substr函数应用,在编写perl程序的时候,我们有时需要截取一个字符串中的部分内容,Perl substr函数就可以实现此功能。

本文和大家重点讨论一下Perl substr函数应用,在编写perl程序的时候,我们有时需要截取一个字符串中的部分内容,这个时候通常会使用substr函数实现这个功能。

Perl substr函数应用

在编写perl程序的时候,我们有时需要截取一个字符串中的部分内容,这个时候通常会使用Perl substr函数实现这个功能。
 

  1. viewplaincopytoclipboardprint?  
  2. $str="testtest";  
  3. printsubstr($str,0,5);  
  4. $str="testtest";  
  5. printsubstr($str,0,5);  

 运行上面的程序,输出结果"testt",这个是我们想要的结果。再看看下面的程序:
 

  1. viewplaincopytoclipboardprint?  
  2. $str="测试文本";  
  3. printsubstr($str,0,1);  
  4. $str="测试文本";  
  5. printsubstr($str,0,1); 

这时候输出了一个"?",这显然不是我们想要的结果。因为在perl中,所有从外部输入的字符串(包括写在程序里的字符串)都会当成字节来处理,"printsubstr($str,0,1);"这句话只是把"测试文本"的***个字节取出来,并且用print输出,然而单个字节是不能表示一个中文字符的,所以就输出了"?"。

如果想要上面的程序输出正确的结果,就需要使用decode函数把"测试文本"转换成perl内部字符串,让perl把"测试文本"当成字符串来处理,这样再用"substr($str,0,1);"截取的就不是一个字节,而是一个汉字。

◆下面看一下Perl substr函数的用法:

指令:substr

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

  1. $s=substr("perl5",2,2);#这时$s="rl";  
  2. $s=substr("perl5",2);#这时$s="rl5";  
  3. $s=substr("perl5",-2,2);#这时$s="er"

【编辑推荐】

  1. Perl函数参数中传递数组和引用的使用
  2. 全面认识Perl进程处理函数
  3. 学习笔记 Perl grep函数使用揭秘
  4. 学习笔记 Perl split函数用法指导
  5. Perl多进程及其和多线程的关系解析

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-15 13:13:21

Perl多进程

2010-07-20 09:45:04

Perl继承

2010-07-16 08:47:53

Perl if语句

2010-07-19 13:49:17

Perl函数

2010-07-15 15:54:10

Perl守护进程

2010-07-19 14:20:57

Perl函数

2010-07-21 10:18:41

Perl map函数

2010-07-19 14:13:41

Perl函数

2010-07-16 16:56:01

Perl构造函数

2009-09-03 09:16:35

C#递归函数

2010-07-16 16:23:23

Perl文件系统

2010-07-19 13:32:55

Perl用户函数

2010-07-19 14:37:01

Perl进程启动函数

2010-07-20 09:23:30

Perl构造函数

2010-07-16 13:45:41

Perl引用

2010-07-13 10:13:35

Perl内部函数

2010-07-16 17:04:38

Perl方法

2010-07-20 11:37:00

Perl函数返回值

2010-07-15 11:08:23

Perl命令行

2010-07-14 11:14:48

Perl多进程
点赞
收藏

51CTO技术栈公众号