针对未经过数据处理的数据的正则表达式 - Perl

Question

我有一些未经过处理的数据，我需要使用perl将其拆分为数组。理想情况下，我会用逗号分隔一系列值。在这种情况下，我将使用以下内容来分割数据：

/,\s*/

不幸的是，这是一个特例。以下是我的数据示例：

Cat Bag
Dog Hair
Turkey brown Caller
Thirteen,BoyXbox
Mac
LizardDinosaur 

最终的数组应该是：

[Cat Bag, Dog Hair, Turkey brown Caller, Thirteen, Boy, Xbox, Mac, Lizard, Dinosaur]

正如你所看到的，我需要拆分换行符，逗号，如果有两个单词彼此相邻，没有空格（例如：BoyXbox）。

谢谢！

Answer 1

这几乎是需求的文字实现

"Cat Bag", "Dog Hair", "Turkey brown Caller", "Thirteen", "Boy", "Xbox", "Mac", "Lizard", "Dinosaur", "J", "R", "Ainsley-", "Mc", "Ewan Class1", "C"

<强>输出

users
schema | 'id','email','pass'