如何计算数字中的偶数？

Question

我的电话号码格式如下：

$number = '06-20-459-3698';

我需要计算其中至少有5位偶数的电话号码的数量。

我认为我可以使用像/.*[.*[02468]]{5}.*/这样的正则表达式，但是如何在一个[]对中包含两个不同的项目列表？

我正在使用perl。

提前致谢。

Answer 1

使用perlop：

中显示的音译

print $number if $number =~ tr/24680// >= 5;

Answer 2

要查找字符串中偶数个数的计数，您可以执行以下操作。

my $number = '06-20-459-3698';
my $count  = () = $number =~ /[02468]/g; 
print $number if $count >= 5;

Answer 3

感谢HamZa以下的伎俩：

 /(.*[02468]){5}/