Re^3: 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]

Comment on Re^3: Validate newline delimited email list Select or Download Code

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]
Re^5: Validate newline delimited email list by ikegami (Patriarch) on Jan 12, 2007 at 22:52 UTC
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]
Re^5: Validate newline delimited email list by ikegami (Patriarch) on Jan 12, 2007 at 22:31 UTC
Sounds like you added the call to the function, but not the function itself??	[reply]
Re^6: Validate newline delimited email list by philosophia (Sexton) on Jan 12, 2007 at 22:33 UTC
i've added the function. adding 'sub trim;' to the top of my script gets rid of this error.	[reply]
Re^7: Validate newline delimited email list by ikegami (Patriarch) on Jan 12, 2007 at 22:52 UTC
Re^8: Validate newline delimited email list by philosophia (Sexton) on Jan 12, 2007 at 23:07 UTC
Some notes below your chosen depth have not been shown here


Your skill will accomplish what the force of many cannot
	PerlMonks