Kenton Brede wrote:
> I need some advice as to how to approach this problem.
> 
> I've got a mail alias file, space delimited and sorted on the second
> column like:
> 
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> [EMAIL PROTECTED] [EMAIL PROTECTED]
> 
> I need to send an email to each of the addresses on the right.  I
> could send this line by line but then jsmith would get two emails,
> when I want to send one.  The second thing I need to do is grab all
> these addresses to use as variables in the body of the email that will
> get sent.
> 
> The email would read something like:
> ----------------------------------------------------------------------------------------------------------------------
> 
> These are your email aliases: [EMAIL PROTECTED],  [EMAIL PROTECTED]
> This is your official email address: [EMAIL PROTECTED]
> ----------------------------------------------------------------------------------------------------------------------
> 
> 
> The part I need help with is how to grab lines in the file with the
> same email address (address on the right) and treat them as "one
> record" as well as treat those with a single email address as one
> record?
> 
> Maybe another way to state this is how do I get the lines with
> [EMAIL PROTECTED] into an array, process that, and then grab a
> line with a single address like [EMAIL PROTECTED] and process
> that?
> 
> Thanks for any pointers.  I'd include some code but I don't even know
> where to start.

Something like this should work (UNTESTED):

my $mail_alias_file = 'mail alias file';

open my $fh, '<', $mail_alias_file or die "Cannot open '$mail_alias_file' $!";

my %emails;
while ( <$fh> ) {
    my ( $alias, $email ) = split or next;
    push @{ $emails{ $email } }, $alias;
    }

for my $email ( keys %emails ) {
    local $" = ', ';
    print <<TEXT;
These are your email aliases: @{$emails{$email}}
This is your official email address: $email
TEXT
    }

__END__




John
-- 
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order.       -- Larry Wall

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to