On Wed, Jul 11, 2007 at 02:38:11PM +0200, Alex Riesen wrote:
On 7/11/07, Uwe Kleine-König [off-list ref] wrote:
quoted
Try:
my $recipient = 'skimo@kotnet.org';
my ($recipient_name, $recipient_addr) = ($recipient =~
/^(.*?)(\s+<.*)/);
print "Hoppla\n" if (!$recipient_name);
Still wrong. Try it on "0 [off-list ref]"
I was going to suggest using defined($recipient_name) to make it clear,
but it won't affect correctness as "0" won't match the regexps in
sanitize_address_rfc822 anyway.
skimo