On Wed, Apr 20, 2011 at 23:50, Joe Perches <joe@xxxxxxxxxxx> wrote:
> + Â Â Â my ($recipient_name, $recipient_addr) = ($recipient =~ /^\s*(.*?)\s*(<[^>]+>)/);
In Perl you can write (<.*?>) instead of (<[^>]+>)
> + Â Â Â Â Â Â Â if ($recipient =~ /^\s*(.+\@\S*).*$/) {
If this program doesn't have some extract_emails_from_string()
function already it probably should.
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html