匹配perl中一行的句子

Question

我有以下问题.你如何匹配一个被逗号(,)包围的句子,但句子的大小和单词数量可能不同.例如:

嗨,你好吗,再见

谢谢,我很好,再见

所以我想要匹配"你好吗"和"我很好"我尝过类似的东西

 $_ =~ /,([\w\s\w\s\w,])/;

但这似乎非常错误,并且"可能"匹配由空格分隔的3个单词.

Answer 1

不是一件简单的/,(.+?),/事吗？或者,/,([\w\s]+?),/如果你想确定你只有单词和空格？

my $str = "Hi,How are you,bye";

$str =~ /,([\w\s]+?),/;
print "$1\n";

$str = "Thanks, I am very good,bye";

$str =~ /,([\w\s]+?),/;
print "$1\n";