正则表达式：检查逗号之间是否存在值

Question

在Perl中，我想确定给定的字符串是否有效，规则是检查逗号之间是否存在值。

e.g。 abc,abc是有效的案例，但abc,或abc,,abc不是。

Answer 1

m/^\s*,|,\s*,|,\s*$/

匹配所有无效组合，假设空格不算作“值”。