in reply to Not Quite perl...
Anonymous Monk,
While smitz has already pointed out you can do:
While smitz has already pointed out you can do:
cat /root/james >> /var/mail/james
You can also do this with Perl.
Of course - don't do this - you would be in a race condition. If any other process were writing to the second mailbox, information would become inter-leaved. Yes, there is locking, but I do not believe Sendmail respects locks on mailboxes.#!/usr/bin/perl -w use strict; open (MBOX1,"/root/james") or die "unable to open mailbox : $!"; open (MBOX2,">>/var/mail/james") or die "unable to append to mailbox : + $!"; select MBOX2; while (<MBOX1>) { print; }
You could always check CPAN - Mail::Box::Mbox and Mail::Box were both updated yesterday 8 May 03.
Cheers - L~R
In Section
Seekers of Perl Wisdom