in reply to Re^2: Validate newline delimited email list
in thread Validate newline delimited email list

"test@test.com " is indeed bad. Notice the trailing space? It's easy to fix the address, though. 

sub trim {
   my ($s) = @_;
   for ($s) {
      s/^\s+//;
      s/\s+$//;
      return $_;
   }
}

...
my @other_addresses = map trim, split( /\n/, $email_list );
...

[download]

Replies are listed 'Best First'.
Re^4: Validate newline delimited email list
by philosophia (Sexton) on Jan 12, 2007 at 22:20 UTC
    i put the above in my code and

    sub trim;

    at the top of my script.

    I get 
    address() = error 1
address() = error 2
There was an error with your form submission.

    [download]
[reply]
[d/l]
Re^4: Validate newline delimited email list
by philosophia (Sexton) on Jan 12, 2007 at 22:44 UTC
    shouldn't chomp() remove the trailing space? i've tried chomp($_) and it looks like the space is still there.

    i've tried your suggestion above, and it doesn't seem to populate $_
[reply]
      No. chomp doesn't remove trailing spaces.
[reply]
[d/l]
Re^4: Validate newline delimited email list
by philosophia (Sexton) on Jan 12, 2007 at 22:08 UTC
    this gave me a software error, not sure how to deal with it:

    Bareword "trim" not allowed while "strict subs" in use at...
[reply]
      Sounds like you added the call to the function, but not the function itself??
[reply]
        i've added the function. adding 'sub trim;' to the top of my script gets rid of this error.
[reply]

In Section Seekers of Perl Wisdom