You haven't wasted your time. You got some help, eh? And
the people here are kinda gun-shy since we've been winged
a couple times before.
Also, if you are actually offended at glib assumptions
then you are far too thin-skinned to be walking around
without your rose-colored glasses on. They were right not
to help you if they didn't want and right to call you out
on the spam question and you were right to call em rude for
it. And there are indeed things you can't discuss here.
=) Just mention getting a TCL script to talk to your Scheme
code and then watch the fan get buried...
## tested now (had the sort backwards)
my %domain;
foreach my $address (@addresses) {
my ($name, $host) = split(/\@/, $address);
push @{$domain{$host}},$address
}
foreach my $host (sort { $#{$domain{$b}} <=> $#{$domain{$a}} } keys %d
+omain) {
mailout(@{$domain{$host}});
}
--
$you = new YOU;
honk() if $you->love(perl)