Perl中的字符串跳过字符

Question

我有这个字符串：

my $string = "Stuff1, stuff2, stuff3, stuff4";

我想将子字符串“ stuff3”保存在另一个字符串中。 例如，要保存stuff1，请使用以下命令：

$substring = substr($string, 0, index($string, ','));

基本上，这需要所有字符，直到有一个',' char，这样，我将stuff1保存在另一个字符串中。 如何保存字符串3？

谢谢，

Answer 1

您可以使用index遍历，但是最好将整个内容拆分为一个数组。

my @words = split /\s*,\s*/, "Stuff1, stuff2, stuff3, stuff4";
print $words[2];