29、Perl 字符串处理与排序技巧

Perl 字符串处理与排序技巧

1. Perl 的文本处理能力

Perl 在处理文本方面表现出色，约 90% 的编程问题都与文本处理相关。即便不借助正则表达式，Perl 也具备强大的文本处理能力。有时候，正则表达式引擎过于复杂，此时需要更简单的字符串处理方法。

2. 使用 index 查找子字符串

• 基本用法 ： index 函数用于在大字符串中查找小字符串首次出现的位置，返回首字符的整数位置，位置从 0 开始计数。若未找到子字符串，则返回 -1。

my $stuff = "Howdy world!";
my $where = index($stuff, "wor");  # $where 为 6

这里的位置也可理解为找到子字符串前需跳过的字符数。
- 指定起始位置 ： index 函数可接受第三个可选参数，用于指定从字符串的某个位置开始搜索。

my $stuff  = "Howdy world!";
my $where1 = index($stuff, "w");               # $where1 为 2
my $where2 = index($stuff, "w", $where1 + 1);  # $where2 为 6
my $where3 = index($stuff, "w", $where