perl字串的操作

最新推荐文章于 2023-07-29 00:35:03 发布
最新推荐文章于 2023-07-29 00:35:03 发布
阅读量1.5k 收藏 1
点赞数
分类专栏： perl 文章标签： perl string 正则表达式 google rest 测试

字串的操作

這裡主要說明截取子字串、字串的長度、大小寫轉換、尋找某子字串等操作

子字串

比如：$str="mynameis"; "myn" 就是 "mynameis" 的子字串。

Perl 提供 substr 這函式，可以幫我們截取子字串。

語法：



傳回子字串 = substr 字串, 開始位置, [截取長度]



註：開始位置由 0 計數起，若開始位置之值為負整數，則由字串結尾開始計算截取位置，

比如：-1 表示最後一個字元開始截取，-3 表示倒數第三個字元開始截取。若省略了截取

長度，則表示由開始截取位置一直到字串結束。



例：



$str = "ABCDEFG1234567";



$a = substr $str, 0, 5;   # 由第一個字元開始截取 5 個字元長度



print $a;



# 得：ABCDE





$a = substr $str, 3, 4;   # 由第 4 個字元開始截取 4 個字元長度



print $a;



# 得：DEFG





$a = substr $str, 5;   # 第6個字元開始截取至字串結束



print $a;



# 得：FG1234567





$a = substr $str, -1;   # 最後一個字元



print $a;



# 得：7





$a = substr $str, -4, 2;   # 最後第四個字元開始截取2個字元長度



print $a;



# 得：45

字串的長度

Perl 提供 length 函式，可用來計算字串的長度。

語法：



$str="我們一起看雲去";

$str_len = length($str);



print $str_len, "/n/n";

轉換大小寫

Perl 提供 uc / lc 函式，可轉字串為大寫/小寫。

語法：



# 轉成大寫

$str = uc(字串);



# 轉成小寫

$str = lc(字串);



$str="abCD99e";

$str = uc($str);   # 此時 $str 為 ABCD99E

$str = lc($str);   # 此時 $str 為 abcd99e

找尋子字串

Perl 提供 index 函式，可在字串中找尋某一子字串的起始位置。

語法：



$pos = index($str1, $str2);



# 找尋 $str2 在 $str1 中的起始位置

找尋子字串的最後位置

Perl 提供 rindex 函式，可在字串中找尋某一子字串最後的起始位置。

語法：



$pos = rindex($str1, $str2, $pos);



# 由 $str1 的 $pos 位置開始找起，找尋 $str2 在 $str1 中最後的起始位置

# 若 $pos 省略，則由字串的最後面開始找。

傳回 ASCII 值

Perl 提供 ord 函式，可傳回某一字元的 ASCII 值。

語法：



$num = ord(字元);





用例：



$num = ord('a');



print "$num/n";

chr 函式，則可將 ASCII 值轉成字元。

語法：



$char = chr(數字);





用例：



$char = chr(48);

http://linux.tnc.edu.tw/techdoc/perl_intro/x348.html



print "$char/n";


---------------------------------------
#!/usr/bin/perl

#-----------------------------
#substr用来存取子串，可以修改子串，主要用法如下：
#$value = substr($string, $offset, $count);
#$value = substr($string, $offset);

#substr($string, $offset, $count) = $newstring;
#substr($string, $offset) = $newtail;
#-----------------------------
# 首先得到一个5个字符的字符串，然后跳过三个字符，分别得到2个8字符的字符串，最后剩下的给$trailing
#unpack/pack的用法以后会讲到，或者参见google 一下 ‘perl函数 unpack’
( $ leading , $ s1 , $ s2 , $ trailing ) =
    unpack ( "A5 x3 A8 A8 A*" , $ data ) ;

# 将字符串分成每5个字符一个串，存入数组@fives
@ fivers = unpack ( "A5" x ( length ( $ string ) / 5) , $ string ) ;

# 将字符串打散成单个字符，存入数组@chars
@ chars = unpack ( "A1" x length ( $ string ) , $ string ) ;
#-----------------------------
$ string = "This is what you have" ;
# +012345678901234567890 Indexing forwards (left to right)
# 109876543210987654321- Indexing backwards (right to left)
# note that 0 means 10 or 20, etc. above
#下面是一些例子：
$ first = substr ( $ string , 0, 1) ; # "T"
$ start = substr ( $ string , 5, 2) ; # "is"
$ rest = substr ( $ string , 13) ; # "you have"
$ last = substr ( $ string , - 1) ; # "e"
$ end = substr ( $ string , - 4) ; # "have"
$ piece = substr ( $ string , - 8, 3) ; # "you"
#-----------------------------
$ string = "This is what you have" ;
print $ string ;
#This is what you have

substr ( $ string , 5, 2) = "wasn't" ; # 改变 "is" 为 "wasn't"
#This wasn't what you have

substr ( $ string , - 12) = "ondrous" ; # 替换最后12个字符
#This wasn't wondrous

substr ( $ string , 0, 1) = "" ; # 删除首字符
#his wasn't wondrous

substr ( $ string , - 10) = "" ; # 删除最后10个字符
#his wasn'
#-----------------------------
# 你可以用 =~ 来测试子串，=~为正则表达式匹配运算符，后面会讲到，还可以google Perl 正则表达式
#主要是匹配则为True；否则为False。 pattern可以自己根据需要构造。
if ( substr ( $ string , - 10) = ~ / pattern/ ) {
    print "Pattern matches in last 10 characters/n" ;
}

# 将 "is" 换为 "at", 限制在最后五个字符；=~ s/// 为替换表达式。
substr ( $ string , 0, 5) = ~ s/ is/ at/ g;
#-----------------------------
# 将字符串$a的第一个和最后一个字符交换
$ a = "make a hat" ;
( substr ( $ a , 0, 1) , substr ( $ a , - 1) ) = ( substr ( $ a , - 1) , substr ( $ a , 0, 1) ) ;
print $ a ;
# take a ham
#-----------------------------
# 抽取某些子串
$ a = "To be or not to be" ;
$ b = unpack ( "x6 A6" , $ a ) ; # 跳过6个字符，抽取6个字符
print $ b ;
# or not

( $ b , $ c ) = unpack ( "x6 A2 X5 A2" , $ a ) ; # 跳过6个字符, 抽出2个字符的子串;后退5个字符,抽出2个字符的子串
print "$b/n$c/n" ;
# or
#
# be
#-----------------------------
#下面是一个综合的例子，主要是一个函数，实现了
#一种模板格式的输出。
sub cut2fmt {
    my ( @ positions ) = @ _ ;
    my $ template = '' ;
    my $ lastpos = 1;
    foreach $ place ( @ positions ) {
        $ template . = "A" . ( $ place - $ lastpos ) . " " ;
        $ lastpos = $ place ;
    }
    $ template . = "A*" ;
    return $ template ;
}

$ fmt = cut2fmt( 8, 14, 20, 26, 30) ;
print "$fmt/n" ;
# A7 A6 A6 A6 A4 A*
#-----------------------------
http://blog.chinaunix.net/u/20754/showart_223337.html
---------------------------------------------
perl字符串处理函数
1，index
position = index (string, substring, position)
返回子串substring在字符串string中的位置，如果不存在则返回-1。参数position是可选项，表示匹配之前跳过的字符数，或者说从该位置开始匹配。

例子如下：
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a"); print $rev,"/n";'
2
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 1); print $rev,"/n";'
2
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 3); print $rev,"/n";'
6
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 7); print $rev,"/n";'
-1


2，rindex
position = rindex (string, substring, position)
与index类似，区别是从右端匹配。

例子如下：

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 11); print $rev,"/n";'
2
[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 12); print $rev,"/n";'
12
[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 1); print $rev,"/n";'
-1
[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 2); print $rev,"/n";'
2


3，length
num = length (string)
返回字符串长度，或者说含有字符的数目。

例子如下：

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=length($_); print $rev,"/n";'
17
[root@localhost ~]# echo -n '/var/ftp/tesa/123 ' | perl -ne '$rev=length($_); print $rev,"/n";'
19


4，substr
substr (expr, skipchars, length)
抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，或者说从位置skipchars开始抽取子串（第一个字符位置为0），子串长度为length，

此参数可忽略，意味着取剩下的全部字符。
当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。

substr() 函数的作用有两个：替换一部分子串。 删除一部分子串。

例子如下：

[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9,);print $rev,"/n";'
test/123
[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4);print $rev,"/n";'
test

替换：
[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4)="hello"; print $rev,"/n";'
hello
删除：
[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4)=""; print $rev,"/n";'




5，lc，uc，lcfirst，ucfirst
lc，将字符串改为小写
uc，将字符串改为大写
lcfirst，改变字符串首字母小写
ucfirst，改变字符串首字母大写

例子如下：

[root@localhost ~]# echo -n 'hello, hanli' | perl -ne '$rev=uc($_); print $rev,"/n";'
HELLO, HANLI
[root@localhost ~]# echo -n 'HELLO, hanli' | perl -ne '$rev=lc($_); print $rev,"/n";'
hello, hanli
[root@localhost ~]# echo -n 'hello, Hanli' | perl -ne '$rev=ucfirst($_); print $rev,"/n";'
Hello, Hanli
[root@localhost ~]# echo -n 'hello, Hanli' | perl -ne '$rev=lcfirst($_); print $rev,"/n";'
hello, Hanli

book2016
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Perl中的字符串
SHark专栏
12-22 3577
字符串的概念:字符串就是一连串的字符。 字符串可以包含各种字符的任意组合。最短的字符串是空字符串（即不含字符），最长的可填满所有可用的内存。字符串的表示形式：在Perl中， 字符串直接量有两种表示形式：单引号内的字符串与双引号内的字符串。  1：单引号内的字符串， 单引号内的所有字符都代表它本身（单引号和反斜线除外）。    要表示反斜线或单引号，需要在它之前加一个反斜线转义， 如：    th
Perl 字符串处理备忘录
weixin_30273175的博客
11-09 120
1. chop和chomp函数 　　两个函数都以字符串作为参数，并去除其末尾最后一个字符。区别是，无论最后一个字符是什么，chop都会去除，并在返回值中返回；而仅当字符串最后一个字符与特殊变量$/保存的字符一样时，chomp才会将其去除。默认情况下$/保存换行字符，当然可以重设。 　　1）如果函数参数是一个字符串数组，那么函数会分别对数组中的每个元素调用。 　　2）如果函数参数是一...
[Perl]字符串处理函数
元直的博客
08-05 221
Perl字符串处理函数总结 前言：字符串处理是脚本开发中使用的最多的功能，熟练掌握字符串处理函数将会极大地提高脚本开发能力，应对文本处理中的各种问题。 一、字符串处理函数列表 No. Name Syntax Description 1 index position = index(string, substring, position); 返回子串substring在字符串string中的位置，如果不存在则返回-1。 ...
perl中关于字符串的一些函数
随风奔跑的专栏
01-08 2712
查找子串：index（）和 rindex（）这两个函数用来在字符串中查找字串。rindex功能同index相同，只不过就是从后面开始找。主要有两种用法，index（$string,$subString);index($string,$subString,$skip);$skip参数表示跳过多少字符，用于指定开始位置，对rindex()函数来说是从字符串最后开始计算的。substr（）参数：subs
Perl字符串处理函数大全
北雨南萍
02-17 1451
本文重点讨论Perl字符串处理函数的用法,每种函数都有各自的特点和作用, 下面请看本文详细介绍. Perl字符串处理函数 1. index 语法: position=index(string,substring,position); 语义: 返回子串substring在字符串string中的位置,如果不存在则返回-1。 参数position是可选项,表示匹配之前跳过的字符数,或
Learn Perl　Perl_排版
03-29
Scalar 是 Perl 里最基本的一种数据类型，它可以代表一个字元、字串、整数、甚至浮点数。 Scalar Scalar 变量是 Perl 里最基本的一种数据类型，它可以代表一个字元、字串、整数、甚至浮点数。例如： ```perl my $x...
Perl高级教程人称“大骆驼”(免费)
10-11
第一章 Perl概述............................................................................................................................10 1.1 从头开始.................................................
PERL语言编程
06-24
Perl 对你的数据没有任何限制--你的字串和数组可以要多长就多长（只要你有足够的内存），而且它们都会自动增长。Perl 不会强迫你学习新的语法和语意，Perl 改从许多其它你已经熟悉的语言里（比如 C, awk, BASIC 和 ...
perl基本用法.doc
06-22
Perl 手册页提供了大量的信息，包括数据类型、语法、操作符和优先级、正则表达式、预定义变量、子过程、内建函数等。例如，使用 `perldata` 可以查看数据类型，使用 `perlsyn` 可以查看语法，使用 `perlre` 可以...
sFlow流量监控的perl编码程序
03-23
在用户输入接收器地址后，脚本将IPv4地址转换为十六进制格式，并用`pack`函数创建一个符合ASN.1 OCTET_STRING格式的字串。然后，它使用`s->set_request`方法设置sFlow接收器地址。 之后，用户输入的接收器名称和...
perl函数substr
saghir的专栏
05-30 4240
把DNA序列经过整合成一行，然后去除所有的空白字符以后，又把$DNA通过split函数变成了数组，然后进行统计，那有没有更好的办法呢？ 其实perl里有一个函数，substr。 我们先来看一看这个函数的用法，substr是针对一个大字符串的操作符（The substr function works with only a part of a larger string )言外之意就是对一个很长
perl 拼接字符串
最新发布
u010100466的专栏
07-29 1274
函数则是用来方便地打印字符串并自动添加换行符。你可以根据具体的需求选择适合的方法进行字符串拼接。运算符是最常见的字符串拼接方式。使用双引号内插法可以在字符串中插入变量值，而。在Perl中，你可以使用不同的方法来拼接字符串。函数则适用于将数组元素连接成一个字符串。函数会自动添加换行符。
Perl_截取字符串_substr($string,0,4)
热门推荐
BBka要黑化！
04-20 1万+
Perl_截取字符串_substr($string,0,4)   my $string="123456789"; my $b=substr($string,0,4); print $b; #1234 #0代表起始位置，也就是1，而4代表取多少个。 my $b=substr($string,-10); #表示取序列倒数十个 my $b=substr($string,-9
perl一次性替换多个串字符串
lordmr的专栏
09-12 1505
最近策划非要搞一堆一样的脚本，然后其中的一些效果ID需要替换成别新的， 这样的ID总共有50多个，替换软件的话只能一个一个搞，还担心中间搞错了，比如，复制粘贴过程中，只复制了原ID，新的ID没有换，那就把原ID替换成了上一个要替换的新ID. 于是网上搜搜看一次性替换多个字符串的方法，这个方法如下： #!/usr/bin/perl use strict; use warnings; my %replace = ( quick => "slow", lazy =&gt..
perl 中的字符串
weixin_38599718的博客
09-24 764
1. 字符串连接 点号连接 #!/usr/bin/perl use warnings; print "go! ".4; 输出 go! 4 乘号连接 #!/usr/bin/perl use warnings; print "go! "x4; 输出 go! go! go! go! 2. 字符串比较 获取字符的 ASCII 码 函数 ord() #!/usr/bin/perl use warnings; print "a ascii is ". ord("a")."\n"; print "
perl中的字符串和数值
caz28的专栏
07-27 1万+
$string = "11"; $number = 22; $result = $string + $number; # $result = 33 perl 中字符串和数值可以互相转换，但是只是十进制的字符串。 对于字串中有非十进制字符的，从左边到第一个非十进制字符的字符串将被转换: $result = "12a34" +1; # $result = 13 如果左边第一个也不是
perl对于encode的用法
weixin_30689307的博客
03-15 334
转载：http://lynsead.spaces.live.com/Blog/cns!1pN1cYMeTzpoDjzM1P1IqDFg!135.entry perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！ Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的...
Perl编程基础：从自然语言到复杂操作
"Perl语言编程(大骆驼)"是一本深入浅出的Perl语言教程，它旨在帮助读者掌握这门强大的脚本...通过阅读这本书，读者将能够熟练地进行文件处理、数据操作、条件判断和字符串匹配，从而在实际项目中发挥出Perl的强大功能。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值