Re: How do I alphabetize a list of email addresses by domain?

my @emails = qw/bob@a.com adam@c.com bob@c.com ralph@b.a.com/;
{
    local $,="\n";
    print @emails, $n;
    print map { scalar reverse } sort( map { scalar reverse } @emails 
+), $/;
}
[download]

prints:

bob@a.com
adam@c.com
bob@c.com
ralph@b.a.com

ralph@b.a.com
bob@a.com
bob@c.com
adam@c.com
[download]

$, and $/ are merely for printing. you'd probably want something like

@sorted_emails = map { scalar reverse } sort( map { scalar reverse } @
+emails );
[download]

~Particle ;Þ

Comment on Re: How do I alphabetize a list of email addresses by domain? Select or Download Code

Replies are listed 'Best First'.
Re: Re: How do I alphabetize a list of email addresses by domain? by japhy (Canon) on Apr 20, 2002 at 15:06 UTC
This will break down when you encounter domain names not ending in ".com". _____________________________________________________ Jeff`[japhy]`Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job `s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;`	[reply]