Hello All,
I am trying to open a file once , and then duplicate it's File Handle. I am trying to
workout example straight from FAQ5, with no luck. I will basicly trying to open a
file, dup off a few handles and spread them across other processes. Here is the code
#!/usr/bin/perl -w
$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";
Thanks in Advance,
Mark G.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
