Do You Know How Hackers Steal Your Credentials? Join us and Skyport Systems to learn how hackers steal your credentials and why Active Directory must be secure to stop them. Thursday, July 13, 2017 10:00 A.M. PDT
Course Of The Month
2 days, 10 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
![[Webinar] Learn How Hackers Steal Your Credentials](https://filedb.experts-exchange.com/files/public/2017/5/21/e0b7778f-e79e-4b5d-9ec6-5496e40be42e.png)
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
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 …
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
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 Month2 days, 10 hours left to enroll
696 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.