How to get rid of the empty string in the array in perl?

Question

I have a string of many zeroes and '1' but I just want the value of zeroes from the string. So, I use split function to split the '1' but it seems like it will produce the undef or empty string in the array. So, I try to scan through each array element using foreach and compare if there is empty string that i thought was "undef" will be ignored. In return, those in the not empty string will not be ignored and will be placed into another variable. The problems seem like it does not recognized my "undef" variable.

OR there is another better method to scan the string in order to pull off the number of '0' in the string?

Please help out on this matters. This the coding:

#!/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;

Thanks a lot.

Regards, Nicky

simbabque · Accepted Answer · 2012-11-05 20:22:24Z

5

Try using tr. It transliterates all occurrences of 0 to an empty string and returns the number of changes it made. That's your number of zeroes.

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

Take a look at this blog post for a benchmark of different approaches.

edited Nov 5, 2012 at 20:22

answered Nov 5, 2012 at 11:41

simbabque

54.4k8 gold badges77 silver badges141 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

Dave Sherohman Over a year ago

You can use tr/0/0/ to avoid modifying the original string: perl -E '$d = 10101; say $d =~ tr/0/0/; say $d; output: 2, 10101

Jim Davis Over a year ago

It doesn't modify the string. Use your sample line with tr/0//. You'd need tr/0//d to tell it to remove the zeros. (Zeroes?)

simbabque Over a year ago

@JimDavis you're right, thank you. I edited my answer. Wiktionary says both zeros and zeroes is correct. My Collins says the same, no AE/BE here, just both. ;-)

simbabque Over a year ago

@user1799941 what kind of error? Post the error message please.

Guru · Accepted Answer · 2012-11-05 11:41:29Z

1

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

Using the matching operation, all 0's can be fetched into an array, and the length of the array will give the count of zero's.

answered Nov 5, 2012 at 11:41

Guru

17.1k2 gold badges37 silver badges47 bronze badges

2 Comments

simbabque Over a year ago

You could also use the goatse-operator to shorten it: my $count =()= $data =~ m/0/g;

Nick Over a year ago

Thanks for sharing .. this really solve the question. Glad that you help :D

cdarke · Accepted Answer · 2012-11-05 11:48:33Z

Not certain precisely what you need, but a regular expression might be useful:

#!/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";

Gives:

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

Dave Sherohman · Accepted Answer · 2012-11-05 13:43:04Z

0

Although a regex match will probably be the most efficient way to do this, as Guru and cdarke already suggested, you can do it with split by splitting on groups of 1s instead of single 1s:

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

answered Nov 5, 2012 at 13:43

Dave Sherohman

46.4k14 gold badges67 silver badges104 bronze badges

Collectives™ on Stack Overflow

How to get rid of the empty string in the array in perl?

4 Answers 4

4 Comments

2 Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

4 Comments

2 Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related