substr() 函数：在 Perl 中截取字符串182

Perl 中的 substr() 函数用于从字符串中截取指定部分。它是一个功能强大的工具，可用于各种字符串处理任务，例如提取子字符串、删除字符或格式化输出。

语法substr() 函数的语法如下：
```
substr(STRING, OFFSET, LENGTH);
```
* STRING：要从中截取部分的字符串。
* OFFSET：指定截取开始的偏移量（从 0 开始）。
* LENGTH（可选）：指定要截取的字符数。
如果未指定 LENGTH，将截取从 OFFSET 到字符串结尾的所有字符。

使用方式要使用 substr() 函数，请按照以下步骤操作：
1. 确定要从中截取部分的字符串。
2. 确定偏移量，从该偏移量开始截取。
3. （可选）确定要截取的字符数。
4. 使用以下语法调用 substr() 函数：
```
my $substring = substr(STRING, OFFSET, LENGTH);
```
例如，以下代码从字符串中截取从第 5 个字符开始的 3 个字符的子字符串：
```
my $str = "Hello World";
my $substring = substr($str, 5, 3); # "rld"
```

OFFSET 和 LENGTH 参数* OFFSET：偏移量可以是正数或负数。正偏移量从字符串开头算起，而负偏移量从字符串结尾算起。例如：
```
# 从字符串开头截取前 5 个字符
my $substring = substr("Hello World", 0, 5); # "Hello"
# 从字符串结尾截取最后 3 个字符
my $substring = substr("Hello World", -3); # "rld"
```
* LENGTH：如果没有指定 LENGTH，将截取从 OFFSET 到字符串结尾的所有字符。例如：
```
# 从字符串开头截取所有字符
my $substring = substr("Hello World"); # "Hello World"
```

其他用法除了解析子字符串外，substr() 函数还可用于：
* 删除字符：使用 OFFSET 和 LENGTH，可以从字符串中删除特定字符。例如：
```
my $str = "Hello World";
$str = substr($str, 0, 5); # 删除字符串中的 "World"
```
* 格式化输出：substr() 函数可与 sprintf() 函数一起用于格式化输出。例如：
```
my $name = "John";
my $message = sprintf("Welcome, %s!", substr($name, 0, 3)); # "Welcome, Joh!"
```

练习尝试使用 substr() 函数完成以下任务：
1. 从字符串中提取前 10 个字符。
2. 删除字符串中的最后一个字符。
3. 格式化输出，将字符串中的前 3 个字符大写。

substr() 函数是 Perl 中用于截取字符串的强大工具。它提供了一种灵活的方法来提取字符串的特定部分、删除字符或格式化输出。通过了解它的语法和使用方式，你可以有效地处理字符串并在各种应用程序中充分利用它。

2024-12-22

上一篇：Perl变量替换字符串

下一篇：Perl 文件最后一行