Ignore undef elements for array count

[David]

Dear all,

How does one get the number of non-empty elements in an array? The
following snippet prints '3', I only want to count the non-empty
elements.

Thanks!

#!/usr/bin/perl

use strict;

local $\ = "\n";
my @arr = qw ( sissors paper undef );
print scalar @arr;

 

[Jürgen Exner]

How does one get the number of non-empty elements in an array? The
following snippet prints '3', I only want to count the non-empty
elements.

local $\ = "\n";
my @arr = qw ( sissors paper undef );
print scalar @arr;

But this array does not contain any undefined elements. The first element
contains the text 'sissors', the second the text 'paper', and the third the
text 'undef', all three of them well defined strings.

If you are talking about actual undefined values then just filter for
defined values before counting them:

print scalar grep defined, @arr;

jue