> OK, but how about:
>
> 1)where is $LOG being set?
$LOG is the first opened filehandle...
> 2)does it get past the dies shown below?
> 3)got strict? it's 'fer your own good, you know! ;)
>
Good question, good point....
> -Tom Kinzer
>
>
>
> #!/usr/bin/perl -w
>
> $file="./text";
> $|=1;
> use Fcntl;
> use IO::Handle;
>
> $D_LOG = $ENV{MHCONTEXTFD};
>
> open($LOG, "< logfile") or die "Unable to open 1st handle, stopped";
> open($D_LOG, "<& LOG") or die "Unable to open 2nd handle, stopped";
In the above (I believe) Perl does not know that LOG is a filehandle
rather than just the name of a file in the local directory or an
improper filehandle/file descriptor. If you intend to pass $LOG as a
filehandle you will need to do so properly. Whether you can use the 2
argument form with a $LOG in there I am not sure (it might get
stringified), you should definitely be able to use a 3 argument form and
then *not* quote $LOG. That or you should open your filehandle into a
named filehandle such as LOG rather than into a variable. (Regardless
you should add a $! to the error message to know *why* it failed not
just that it did) On top of this you set $file, but then open
'logfile'??? Are you supposed to be opening $file? And you said $D_LOG
to an environment variable, presumably an open file descriptor???, and
then clobber it by duping the other opened file handle into it? So
basically I have no idea what your actual intentions are... what are you
*really* trying to do?
perldoc perlopentut
perldoc -f open
perldoc -f pipe
> $LOG->autoflush(1);
> $D_LOG->autoflush(1);
>
> $line1=<$LOG>;
> $line2=<$D_LOG>;
>
> print "1:$line1 2:$line2";
>
<snip old worthless threads>
http://danconia.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
