a socket example in perl
From: bad_knee (bl8n8r_at_yahoo.com)
Date: 04/13/04
- Next message: Tony Curtis: "Re: a socket example in perl"
- Previous message: Sherm Pendley: "Re: die-ing within functions"
- Next in thread: Tony Curtis: "Re: a socket example in perl"
- Reply: Tony Curtis: "Re: a socket example in perl"
- Reply: Sherm Pendley: "Re: a socket example in perl"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 13 Apr 2004 14:27:15 -0700
This is an example for all the folks new to perl that are
looking for a way to connect to a server and retrieve some
data.
This program will connect to a newserver, download the list
of newsgroups, and then print it to the screen.
Note: You may not want to do this on a dialup connection.
cheers,
bl8n8r
###############################################################################
#!/usr/bin/perl -w
use strict;
use IO::Socket;
#
# server to contact must be first arg from command line
# eg: getnews news.creativelabs.com
#
my $NewsServer = $ARGV[0];
# make sure an argument was given
if (length ($NewsServer) < 1)
{
die ("arg0 == server to connect to. quitting");
}
# the main subroutine returns the list of newsgroups
sub Main()
{
my $buf = "";
my $sock = new IO::Socket::INET (PeerAddr => $NewsServer, PeerPort
=> '119', Proto => 'tcp') || die "$!\n";
my $data = "";
my $bytes = 0;
# connect to news server
print "connecting to $NewsServer\n";
# send list command
$sock->send("list\r\n");
# read list
while (1)
{
# read a chunk of data
$data = "";
$sock->recv ($data, 1024, 0);
$bytes = length ($data);
# append data to buffer
$buf = $buf.$data;
# read until "dot" all by itelf as in RFC0977
# we search for \r\n.\r\n cuz the buffer itself
# may end with a dot in the middle of the listing
if ($data =~ m/\x0d\x0a.\x0d\x0a$/)
{
last;
}
}
# send quit command to server
$sock->send("quit\r\n");
# close socket to server
close($sock);
return ($buf);
}
# print buffer results
print "".Main();
- Next message: Tony Curtis: "Re: a socket example in perl"
- Previous message: Sherm Pendley: "Re: die-ing within functions"
- Next in thread: Tony Curtis: "Re: a socket example in perl"
- Reply: Tony Curtis: "Re: a socket example in perl"
- Reply: Sherm Pendley: "Re: a socket example in perl"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
