Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Not Quite perl...

by Limbic~Region (Chancellor)
on May 09, 2003 at 13:23 UTC ( #256857=note: print w/replies, xml ) Need Help??


in reply to Not Quite perl...

Anonymous Monk,
While smitz has already pointed out you can do:

cat /root/james >> /var/mail/james

You can also do this with Perl.

#!/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; }
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.

You could always check CPAN - Mail::Box::Mbox and Mail::Box were both updated yesterday 8 May 03.

Cheers - L~R

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://256857]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (1)
As of 2022-11-28 07:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?