Listen to A Port For Data & Print The Data
Hi,
Some data is being pushed out on another UNIX server to a specific port. I am trying to put a Perl script together that will capture this data and print it out. So far I have the following;
#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $text = "";
my $port='the_port';
my $svr='the_host';
my $sock = new IO::Socket::INET (
PeerAddr => $svr,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM,
);
die "Could not connect to Port : $!\n" unless $sock;
binmode $sock;
$sock->autoflush(1);
print "Listening on $svr $port\n";
while (<$sock>) {
print;
}
close $sock;
The connect works as I get no error, but nothing is printed. I know data is there so have I misssed something ?
Some data is being pushed out on another UNIX server to a specific port. I am trying to put a Perl script together that will capture this data and print it out. So far I have the following;
#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $text = "";
my $port='the_port';
my $svr='the_host';
my $sock = new IO::Socket::INET (
PeerAddr => $svr,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM,
);
die "Could not connect to Port : $!\n" unless $sock;
binmode $sock;
$sock->autoflush(1);
print "Listening on $svr $port\n";
while (<$sock>) {
print;
}
close $sock;
The connect works as I get no error, but nothing is printed. I know data is there so have I misssed something ?
Who is Participating?
If you don't change the input record separator, the <$sock> will wait for the default input record separator (eg: "\n"). If the sending computer doesn't send this, your code will wait forever.
You can change the input record separator with:
$sock->input_record_separa
You can change the input record separator with:
$sock->input_record_separa
Hi, now I get the following error;
"Can't locate auto/IO/Socket/INET/input_
/usr/perl5/site_perl/5.005
e 30"
I have tried including libraries using;
BEGIN {
use lib qw( /sbcimp/run/pd/cpan/5.8.5-
my @paths = (
"/sbcimp/run/pd/cpan/5.8.6
"/sbcimp/run/pd/cpan/5.8.6
);
push @INC, @paths
}
I then get the error;
"Can't locate auto/IO/Socket/INET/input_
/usr/perl5/site_perl/5.005
e 30"
I have done a search and can not find "input_recor.al" in any of our library directories which as far as I am aware are all standard. Is this new error a red herring ?
"Can't locate auto/IO/Socket/INET/input_
/usr/perl5/site_perl/5.005
e 30"
I have tried including libraries using;
BEGIN {
use lib qw( /sbcimp/run/pd/cpan/5.8.5-
my @paths = (
"/sbcimp/run/pd/cpan/5.8.6
"/sbcimp/run/pd/cpan/5.8.6
);
push @INC, @paths
}
I then get the error;
"Can't locate auto/IO/Socket/INET/input_
/usr/perl5/site_perl/5.005
e 30"
I have done a search and can not find "input_recor.al" in any of our library directories which as far as I am aware are all standard. Is this new error a red herring ?
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
-
Course of the Month4 days, 1 hour left to enrollMonitoring and Operating a Private Cloud with System Center 2012 R2 273 lessons
Try this instead. Add this line right after your "use IO::Socket" line
replace $new_sep with whatever input record separator you want to use:
IO::Socket->input_record_s