Re^2: Appending to filenames, system mv, using MIME::Lite and other fun

Obviously that makes a huge difference. There is a correspondence between each file. One file goes to one address. Thanks for the POSIX suggestion. I'll give that a try.

Comment on Re^2: Appending to filenames, system mv, using MIME::Lite and other fun

Replies are listed 'Best First'.
Re^3: Appending to filenames, system mv, using MIME::Lite and other fun by Nkuvu (Priest) on Jul 26, 2005 at 22:00 UTC
In that case you can create a simple lookup. Something akin to (using my previously named examples): `my %csv_recipients = ( 'john_q_public@foobar.com' => 'a.csv', 'jane_q_public@xyz.com' => 'b.csv', 'some_other_address@example.com' => 'c.csv' # and so on );` [download] Then to send it out just change your call to archive_results: `while (my ($recipient, $filename) = each %csv_recipients) { archive_results($recipient, $orig_file, $filename, $subject); }` [download] or similar. Code untested, void where prohibited by law, et cetera et cetera ad nauseum.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Appending to filenames, system mv, using MIME::Lite and other fun
by Nkuvu (Priest) on Jul 26, 2005 at 22:00 UTC

my %csv_recipients = ( 
    'john_q_public@foobar.com' => 'a.csv',
    'jane_q_public@xyz.com' => 'b.csv',
    'some_other_address@example.com' => 'c.csv'
    # and so on
);
[download]

Then to send it out just change your call to archive_results:

while (my ($recipient, $filename) = each %csv_recipients) {
    archive_results($recipient, $orig_file, $filename, $subject);
}
[download]

[reply]
[d/l]
[select]