perl中substr函数的用法

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

substr EXPR,OFFSET,LENGTH,REPLACEMENT

其中，`EXPR`表示源字符串，`OFFSET`表示从哪个位置开始提取子字符串，`LENGTH`表示提取的子字符串的长度，`REPLACEMENT`表示替换原字符串中从`OFFSET`位置开始长度为`LENGTH`的子字符串。

如果没有指定`LENGTH`，则将从`OFFSET`位置开始提取到字符串末尾的所有字符。如果没有指定`REPLACEMENT`，则`substr`函数返回提取的子字符串。

以下是一些`substr`函数的例子：

my $str = "Hello, World!";
my $sub_str1 = substr($str, 0, 5);          # $sub_str1 = "Hello"
my $sub_str2 = substr($str, 7);             # $sub_str2 = "World!"
my $sub_str3 = substr($str, 7, 5);          # $sub_str3 = "World"
my $new_str = substr($str, 0, 5, "Hi");     # $new_str = "Hello", $str = "Hi, World!"

在第四个例子中，`substr`函数将原字符串中从0位置开始长度为5的子字符串替换为了"Hi"字符串，并返回了被替换的子字符串"Hello"。