Perl中substr函数的定义是什么

在Perl中，substr函数用于提取字符串的子字符串。其语法如下：

substr($string, $offset, $length, $replacement) 

其中，$string是要操作的字符串，$offset是要提取的子字符串的起始位置（从0开始计数），$length是要提取的子字符串的长度，$replacement是可选的替换字符串。

如果省略$length参数，则提取从$offset位置开始到字符串末尾的所有字符。如果指定了$replacement参数，则会用替换字符串替换提取出的子字符串。

示例：

my $string = "Hello, world!"; my $substr = substr($string, 7, 5); # 提取从第7个字符开始的5个字符 print $substr; # 输出 "world"  substr($string, 7, 5, "Perl"); # 替换从第7个字符开始的5个字符为"Perl" print $string; # 输出 "Hello, Perl!"