Perl中除0和1之外的所有字符的正则表达式

Question

我尝试在二进制字符串中找到由任何其他（例如11100011/100010-01110a0011100b）字符分隔的011的出现次数。所以我需要在我的代码中的某个地方说出所有字符 - [0,1]来使用split函数。我怎么能用正则表达式说出来......

Answer 1

您可以通过在^前面添加字符集来反转字符集：

[^01]

但是，在这种情况下，您根本不需要使用split：

my @binary_strings = $input =~ m{[01]+}g;