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 ?
adlikonAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Adam314Connect With a Mentor Commented:
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_separator($new_sep);
0
 
Adam314Commented:
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_separator($new_sep);

0
 
adlikonAuthor Commented:
Hi, now I get the following error;

"Can't locate auto/IO/Socket/INET/input_recor.al in @INC (@INC contains: /sbcimp/run/pd/cpan/5.8.5-2004.09/lib /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503
 /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 . /sbcimp/run/pd/cpan/5.8.6-2005.03/lib /sbcimp/run/pd/cpan/5.8.6-2005.03/bin) at ./a.pl lin
e 30"

I have tried including libraries using;

BEGIN {
        use lib qw( /sbcimp/run/pd/cpan/5.8.5-2004.09/lib );
        my @paths = (
                "/sbcimp/run/pd/cpan/5.8.6-2005.03/lib",
                "/sbcimp/run/pd/cpan/5.8.6-2005.03/bin",
            );
            push @INC, @paths
}

I then get the error;

"Can't locate auto/IO/Socket/INET/input_recor.al in @INC (@INC contains: /sbcimp/run/pd/cpan/5.8.5-2004.09/lib /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503
 /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 . /sbcimp/run/pd/cpan/5.8.6-2005.03/lib /sbcimp/run/pd/cpan/5.8.6-2005.03/bin) at ./a.pl lin
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 ?


0
 
adlikonAuthor Commented:
Now that I have rethought my requirment I need to approach this differently, so technically this is not the answer I need anymore but that is not the fault of Adam314. My orginal question is no longer vaild for my needs.
0
 
molikjainCommented:
can you give me the complete perl code above, so that I know the complete answer at one place.
0
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.