streaming data over socket

This is something I have little pratical experience with, but you can look into using the IO::Socket module to set up the socket communication.

http://perldoc.perl.org/IO/Socket.html

I assume there does not have to be another perl script, but there has to be something to recieve and process whatever data you send to the server.

use File::Tail;
use IO::Socket;

# init host and port
my $host = 'ip_addr';
my $port = 7777;
my $name = 'C:\requestDiag.log';
my $sock = new IO::Socket::INET( PeerAddr => $host, PeerPort => $port, Proto => 'tcp');
$sock or die "no socket: $!";

$file=File::Tail->new(name=>$name, maxinterval=>300, adjustafter=>7);

while (defined($line=$file->read)) {

$sock->send('$line');
print "$line";
}
close($sock);

Here si what I think from ready should work to send each tail of a log file over a socket. However, this does not seem to be working.

Any one have any ideas?

if everything else is OK, changing this ine:

$sock->send('$line');

to:

$sock->send($line);

should work.

When you put single-quotes around a scalar it literally means what is inside the quotes: $line, and not whatever value the scalar $line interpolates to. Is File::Tail installed?

Thanks for the help there.

Yes file tail module is installed, but the socket closes what seems to be every time the tail stream tries to send over that socket. I need to keep the socket open and continuously send a 1 way stream over it to a client. the connection is "established" according to netstat at both ends but the data streaming does not work.