=pod
第十四章 字符串与排序
用index查找子字符串:
my $where = index($big, $small);
eg:my $stuff = "Howdy world";
my $where = index($stuff, "wor"); #$where = 6
index函数还能指定位置开始搜索
my $where2 = index($stuff, "w", $where+1);
查询字符串最后出现的位置用rindex函数
用substr操作子字符串:
substr函数只处理较长字符串中的一小部分内容,大致用法如下:
my $part = substr($string, $initial_position, $lenght);
一个原始字符串,一个从零开始算起的起始位置(类似index的返回值)以及子字符串的长度,找到的子字符串会被返回
用sprintf格式化字符串:
my $date_tag = sprintf "%4d/%02d%02d %02d:%02d:%02d", $yr, $mo, $da, $h, $m, $s;
用sprintf函数格式化金额数字:
my $money = sprintf ".2f", 2.4999; #得到2.50
非十进制数字字符串的转换:
hex,oct
高级排序:
飞船操作符 <=>
sub by_number { if($a > $b){1} elsif($a < $b){ -1 } else { 0 }};
sub by_number { $a <=> $b};
sub by_number { $a cmp $b };
my $result = sort by_number @some_numbers;
五级排序:
@patron_IDs = sort {&fines($b)<=>&fines($a) or
$items{$b}<=>$items{$a} or
$family_name{$a} cmp $family{$b} or
$personal_name{$a} cmp $family{$b or
$a<=>$b
}@patron_IDs;
=cut
Perl语言入门笔记 第十四章 字符串与排序
最新推荐文章于 2021-09-25 14:36:47 发布