Perl substr 函数

描述

此函数返回 EXPR 的子字符串，从字符串中的 OFFSET 开始。如果 OFFSET 为负，从字符串末尾开始该字符数。如果指定了 LEN，则返回该字节数，如果没有指定，则返回到字符串末尾的所有字节。如果 LEN 为负，则在字符串末尾留下该字符数。

如果指定了 REPLACEMENT，则用 REPLACEMENT 字符串替换子字符串。

如果指定的子字符串超出了字符串的末尾，它将仅返回原始字符串的有效元素。

语法

以下是该函数的简单语法 -

substr EXPR, OFFSET, LEN, REPLACEMENT

substr EXPR, OFFSET, LEN

substr EXPR, OFFSET

返回值

此函数返回字符串。

示例

以下示例代码显示基本用法 -

#!/usr/bin/perl -w

$temp = substr("okay", 2);
print "Substring valuye is $temp\n";

$temp = substr("okay", 1,2);
print "Substring valuye is $temp\n";

执行完上述代码后，它将产生以下结果 -

Substring valuye is ay
Substring valuye is ka