On Dec 3, 2003, at 7:44 AM, [EMAIL PROTECTED] wrote:
how can I dup file handles
do you mean:
open(LOG, ">>/tmp/logfile");
open(STDERR, ">&LOG");hence you code is One $ over the line?
#!/usr/bin/perl -w
use strict; # this would help you with finding those
# nasty bits where you have variables not set... $file="./text";
$|=1;
use Fcntl;
use IO::Handle;$D_LOG = $ENV{MHCONTEXTFD};
open(LOG, "< logfile");
open($D_LOG, "<&LOG");
$LOG->autoflush(1);
$D_LOG->autoflush(1); $line1=<$LOG>;
$line2=<$D_LOG>;print "1:$line1 2:$line2";
HTH.
ciao drieux
---
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
