#!/usr/local/bin/perl
use IO::Socket::INET;
$sock = IO::Socket::INET->new(PeerAddr => 'ironbark',
PeerPort => 'finger(79)',
Proto => 'tcp');
print $sock "pscott\n";
while(<$sock>) {
print;
}
On the other hand, a C program to perform
the same function is about 100 lines, not including comments...
[Previous Lecture] [Lecture Index] [Next Lecture]