TCP module for perl

Paul J. Schinder schinder at pobox.com
Sun Sep 5 21:30:00 EST 1999


On Sun, 05 Sep 1999 01:12:50 -0500, John Bryan wrote:
>
>
>Howdy,
>
>I am looking for a TCP module to use with the Perl
>install that comes with LinuxPPC 1999.
>
>At work for Solaris I have it referenced as tcp.pl

This looks to be something that is homegrown, especially considering that
from the path below it's kept in a non-standard place.

>
>I am trying to do something like:
>
>-------
>#!/usr/bin/perl
>
>use Socket;
>
>require "/usr/local/bin/tcp.pl";  <----don't have

One solution is to simply grab a copy fron work. It's just a text file.

>
>if (open_TCP(F, $ARGV[0], 1411) == undef) {
>    print "Error connecting to server at $ARGV[0]\n";
>    exit(-1);
>}
>
>print F "GET http://some.domain.com HTTP/2.0\n\n";
>-------

An experienced Perl user would say:

use LWP::Simple;
get "http://some.domain.com";

>
>When I try without the 'require' it says the open_TCP
>subroutine is undefined, so I don't have the tcp.pl
>apparently.
>
>It is not on my Linux install, at least not under /usr,
>and the FAQ-o-matic didn't turn up anything on it.
>
>I will keep digging around 'the usual places' and see
>what I might turn up, but if anyone knows where I can
>pick this up for LPPC, I'd sure appreciate it.

When digging for things Perl, start at cpan.perl.org. Learn about CPAN and
how to use it. You'll almost always find what you need there.

>
>Thanks,
>JB
>
>



-------
Paul J. Schinder
schinder at pobox.com


** Sent via the linuxppc-dev mail list. See http://lists.linuxppc.org/





More information about the Linuxppc-dev mailing list