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
