Perl Empty Strings inside Arrays

Question

I want to loop over an array of strings, but sometimes if the string is empty, it still gets added as an item.

my $forename = $service->getValue('forename');
my $surname = $service->getValue('surname');

my @selectedNames = ( $forename, $surname );

foreach my $name (@selectedNames) {
    # do something

    if ($trackedName) {
         # log the name
    } else {
         # log a FATAL
    }
}

If the string is empty for $surname, then it shouldn't loop the second time at all, but it always does. How do I prevent this?

What do you mean, "sometimes"? If you make an array out of $forename and $surname, it always has two elements. — melpomene
– melpomene, Commented Jan 31, 2018 at 21:35
my @selectedNames = grep {defined and length } ( $forename, $surname ); — mpapec
– mpapec, Commented Jan 31, 2018 at 21:40
Yes, length is enough. perl 5.10 complains though stackoverflow.com/a/1481979/223226 — mpapec
– mpapec, Commented Jan 31, 2018 at 21:45

Silvar · Accepted Answer · 2018-02-01 17:02:31Z

1

Concerning Frank Förster's response (I don't have enough reputation to reply directly):

Wouldn't grepping using $_ also strip any numeric item with the value 0, and the string "0"? I realize you're not likely to get them as "surnames", but not being prepared for such an eventuality may lead to bugs that are hard to track.

Edit: Here's my solution (after prompting by PerlDuck):

my $forename = $service->getValue('forename');
my $surname = $service->getValue('surname');

my @selectedNames = ( $forename, $surname );

foreach my $name (@selectedNames) {
    next  if (not defined $name  or  $name eq '');

    # do something

    if ($trackedName) {
        # log the name
    } else {
        # log a FATAL
    }
}

Alternately you can just use the original code, but substitute

foreach my $name (@selectedNames)

with

foreach my $name (grep { defined and $_ ne '' } @selectedNames)

If you're worried your "empty" names may include stuff with just whitespace in them, you can use $name =~ /^\s*$/ instead of $name eq ''.

edited Feb 1, 2018 at 17:02

answered Feb 1, 2018 at 16:32

Silvar

7053 silver badges8 bronze badges

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

3 Comments

PerlDuck Over a year ago

I'd love to upvote this, but as it stands it's not a complete answer. And, yes, "0" and 0 would be skipped with the grep {$_} @array code.

daotoad Over a year ago

Nice work. grep { defined $_ && /\S/ } @names is an easy way to require non-whitespace elements in your filter. You can also just say grep {defined && /\S/} @names, because $_ is assumed for defined.

Silvar Over a year ago

Nice! /\S/ is quite elegant. I rarely think to use the negative character class escapes - more often than not I end up using ridiculously complicated constructs with the positive ones, in the style of /(?!\s)./. I definitely need to work on this.

Frank Förster · Accepted Answer · 2018-02-01 15:40:24Z

Just use next unless ($name); as first line of your loop.

Perl handles the values undef and empty string ('') as false and will therefore enter the next loop.

my $forename = $service->getValue('forename');
my $surname = $service->getValue('surname');

my @selectedNames = ( $forename, $surname );

foreach my $name (@selectedNames) {
    next unless ($name);

    # do something

    if ($trackedName) {
         # log the name
    } else {
         # log a FATAL
    }
}

If you want to use grep to filter the list actually you neither need length nor defined: grep { $_ } (@selectedNames) would be enough. Therefore your code would look like

my $forename = $service->getValue('forename');
my $surname = $service->getValue('surname');

my @selectedNames = ( $forename, $surname );

foreach my $name (grep { $_ } @selectedNames) {
    # do something

    if ($trackedName) {
         # log the name
    } else {
         # log a FATAL
    }
}

Collectives™ on Stack Overflow

Perl Empty Strings inside Arrays

2 Answers 2

3 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related