perl substr 获取子字符串

Question

#!/usr/bin/perl

my $str = "abc def yyy ghi";

print substr($str, 0 , index($str,' '));

我要 substr 打印 def yyy

print substr ($str, index ($str, ' '), rindex($str, ' ') does not work?

有什么想法吗？

Answer 1

就逻辑而言，您没有明确指定您想要的内容，但最好的猜测是您想要在第一个和最后一个空格之间打印字符。

您的示例代码会打印太多字符，因为它会在最后一个空格之前打印 # 个字符(在您的示例中是 10 个而不是 7 个)。要解决此问题，您需要通过减去第一个空格前的字符数来调整打印的字符数。

此外，您需要在“索引”值的右侧开始一个字符以避免打印第一个空格 - 下面示例中的“+1”和“-1”

$cat d:\scripts\test1.pl
my $str = "abc def yyy ghi";

my $first_space_index = index ($str, ' ');
my $substring = substr($str, $first_space_index + 1, 
                             rindex($str, ' ') - $first_space_index - 1);
print "|$substring|\n";


test1.pl
|def yyy|