Perl语言入门（第8版）

256

第

14

章

字符串与排序

在

Perl

擅长处理的问题中，约有

90%

与文本处理有关，其余

10%

则覆盖了其他领

域。所以毋庸置疑，

Perl

的文本处理能力很强，之前我们用正则表达式解决的那些问

题就是明证。不过，有时正则表达式引擎对你而言可能太过复杂，多数时候只需要简

单的字符串处理就能完成常见任务。本章我们就来围绕这个主题谈一谈。

用

index

查找子字符串

查找给定的子字符串是否出现在某个字符串中，其实就是要找出它在字符串中的位

置。如果在某个比较长的字符串中，可以借助

index

函数解决这个问题。比如：

my $where = index($big, $small);

Perl

会在长字符串中寻找短字符串首次出现的地方，并返回一个整数表示第一个字符

的匹配位置，返回的字符位置是从

0

算起的。如果子字符串是在字符串最开始的位置

找到的，那么

index

会返回

0

；如果在第二个字符，则返回

1

；如果

index

无法找到

子字符串，就会返回

–

1

。下面的代码中，

$where

会得到

6

，因为这是

wor

开始的位

置：

my $stuff = "Howdy world!";

my $where = index($stuff, "wor");

另一种理解位置的方法，就是把它当成走到子字符串之前要跳过的字符数。因

为

$where

是

6

，所以我们知道，必须跳过

$stuff

的前

6

个字符，才会走到

wor

。

index

函数每次都会返回首次出现子字符串的位置。不过，你可以再加上可选的第三

字符串与排序 ...