Perl学习笔记-6

字符串函数操作

1. 搜索子串

• 搜索第一次出现的位置

找出子串在母串中的相对位置
$where=index($big, $small);
$where=index($big, $small,$start_with);

返回位置从0算起。无法找到返回-1。

• 搜索最后一次出现的位置

my $last_slash=rindex("/etc/passwd", "/");

2. 求子串

my $part=substr($str, $first_pos, $len);

省略“ $len ”参数将直接取到结尾。
当“ $first_pos ”小于0的情况。-1表示最后一个字符的位置。

my $out=substr("some very long string", -3, 2); # $out为 “in”

子串替换

my $str="Hello, world!";
substr($str, 0, 5)="Goodbye";

正则处理
substr($str, -20) =~ s/bee/beeworkshop/g;

被替换的子串长度不一定要与赋值串的长度相同，母串会自行调整长度。

3. 求字符串的长度

如果length后边没有参数，则作用于默认变量$_。
my $len=length $str;

排序

1. 三路比较

• 数值的三路比较
  “ <=> ” 这个运算符会比较两个数字，根据大小关系返回-1（<），0（=），1（>）。

$result = $a <=> $b;

数值排序的例子

正序
my @numbers = sort { $a <=> $b } @some_numbers;
逆序
my @descending = sort { $b <=> $a } @some_numbers;
或者
my @descending = reverse sort { $a <=> $b } @some_numbers;
命令行验证
perl -e '@no=qw( 1 2 3 4 5 6 );my @numbers = sort { $b <=> $a } @no; print @numbers;print "\n"'

• 字符串的三路比较
  使用的运算符为cmp。

sub case_insensitive { "\L$a" cmp "\L$b" }

2. 按哈希值排序

#!/usr/bin/perl

my %score=("poly"=> 185, "voly"=> 111, "soly"=> 121, "dali"=> 135);
print join(", ",%score);
print "\n";
my @winners=sort by_score keys %score;
sub by_score { $score{$b}<=>$score{$a} }
print join(", ", @winners);
print "\n";

如果哈希的value相等，那么就对键的ASCII值排序，怎么写？

my @winners=sort by_score_and_name keys %score;
sub by_score_and_name {
	$score{$b}<=>$score{$a}
	or
	$a cmp $b
}