Hi

Let me first say that I am using Active Perl 5.6 on Win2K, and have only
been doing perl for about 3 hours at this time.. I have however already
mannaged to get a very good understanding of the whole system, but not good
enough for me to know where to look for help with this problem, that is whre
you kind people come in...

I am currently trying to control a netcat session through perl.

I have used the open2() command like this:
    $pid = open2(*Reader, *Writer, "nc -v -l -p 1025");

All this does is run netcat as a server, and set it up to listen on port
1025.

The next thing I do is

$got = <Reader>

This prints out the first line that netcat spits out when you run it, and
does work properly...

Now comes my problem. As soon as I have done this, I cannot get anything
from the <Reader> again... ie.

$gota = <Reader>;
print "A: " . $gota;
$gotb = <Reader>;
print "B: " . $gotb;

will give me tho output:

A: blah blah blah

but no B: blah blah blah.

Why? What am I doing wrong?

Thanks in advance for any help

Mark Howell





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to