perl 字符串处理函数
来源:互联网 发布:进销存数据库表结构 编辑:程序博客网 时间:2024/06/05 11:03
=================================================================================
From: http://forgerock.blog.163.com/blog/static/163139316201032815710595/
這裡主要說明截取子字串、字串的長度、大小寫轉換、尋找某子字串等操作
子字串
比如:$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";
=================================================================================
From: http://blog.chinaunix.net/u/20754/showart_223337.html
---------------------------------------
#!/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*#-----------------------------
=================================================================================
From: http://blog.chinaunix.net/u/25264/showart.php?id=1412747
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
为了您的安全,请只打开来源可靠的网址
来自: http://hi.baidu.com/sulyin/blog/item/bc764a64d25c7efef73654d9.html 打开网站 取消
- perl字符串处理函数
- perl 字符串处理函数
- perl 字符串处理函数
- perl字符串处理函数
- 转:perl字符串处理函数
- Perl字符串处理函数大全
- Perl如何处理字符串
- Perl字符串处理
- perl 字符串处理(1)
- Perl 字符串处理
- Perl字符串处理
- Perl字符串处理
- perl学习(10) 字符串处理函数和排序
- Perl-04---字符串函数
- perl字符串函数
- perl字符串映射函数
- Perl进程处理函数
- perl 常用处理函数
- java.lang.IllegalAccessException Action中的方法调用了,却不出现结果 spring注入值为null
- perl模式匹配中用含特殊字符的变量?(using a variable as a pattern which contains special characters?)
- m.***.com:strutsDEMO(第二天)
- java中 wait 和notify
- m.***.com:strutsDEMO(第二天)
- perl 字符串处理函数
- perl 字符串处理函数
- Diffie-Hellman 密钥交换协议
- sliverlight3.0 离线安装
- 一步一图一代码,一定要让你真正彻底明白红黑树
- 算法设计与分析课
- Android JSON 介绍
- Core Java总结(二)
- routeapi.***.com:(第一天)