Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
COURSE of the MONTH
14 days, 7 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Listen to A Port For Data & Print The Data
Posted on 2007-12-03
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 ?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
-
2
5 Comments
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 ?
Sorry, that was a mistake on my part.
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
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
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Email validation in proper way is very important validation required in any web pages.
This code is self explainable except that Regular Expression which I used for pattern matching.
I originally published as a thread on my website : http://www…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads), installed and started the daemon, and had a console window open.
After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions.
Consider email address RFCs:
Look at HTML5 form input element (with type=email) regex pattern:
T…
Suggested Courses
Course of the Month14 days, 7 hours left to enroll
771 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.