如何摆脱perl中数组中的空字符串？

Question

我有一个很多零和'1'的字符串，但我只想从字符串的零值。 所以，我使用拆分功能拆分'1'，但它似乎会产生数组中的undef或空字符串。 因此，我尝试使用foreach扫描每个数组元素，并比较是否有空字符串，我认为是“undef”将被忽略。作为回报，那些非空字符串中的字符串将不会被忽略，并将被放入另一个变量中。这些问题看起来好像不能识别我的“undef”变量。

或 还有另一种更好的方法来扫描字符串，以便取消字符串中'0'的数量？

请帮忙解决这个问题。 这个编码：

#!/usr/bin/perl 

    use strict; 
use warnings; 

    my $data = '111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000000000000011111 
'; 

    my @values = split('1', $data); 
    my $zero = "0"; 
foreach my $val (@values) 
{ 
    if (!defined$val) 
    { 
     $zero= $val; 
    } 

} 
    print "$zero\n"; 

    exit 0; 

非常感谢。

问候， 尼基

Answer 1

my $data = '111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000000000000011111 
';  
my @arr=$data=~/0/g; 
print scalar(@arr); 

使用匹配操作，所有的0的可提取到的阵列，并且该阵列的长度将给出零的计数。

Answer 2

尝试使用tr。它将所有出现的音译为空字符串并返回它所做的更改次数。这是你的零数。

my $data = '111100'; 
my $count = $temp =~ tr/0//; 
print $count; 

---

看看this blog post的不同方针的基准。

Answer 3

不能肯定正是你所需要的，但正则表达式可能是有用的：

#!/usr/bin/perl 
use strict; 
use warnings; 

my $data = '111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000000000000011111'; 

# If you want an array of zeros 

my @zeros = $data =~ /0/g; 
print "@zeros\n"; 

# If you want the zeros together 

my @multizeros = $data =~ /0+/g; 
print "@multizeros\n"; 

给出：

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
000000000000000 

Answer 4

虽然正则表达式匹配将可能是做到这一点的最有效方法，作为大师和cdarke已经建议，你可以做到这一点拆分组1 s而不是单个1 s：

$d = 101111001; 
say scalar split /1+/, $d; # prints 3