open a socket and print from stdin....i think

[stevenrh]

Divine Monks, I currently have a file that is a list of HTTP statements. I want open a socket (or a socket for each HTTP statement), and print the http command:
GET http://website.org/session1?32612391862938&email=heythere%40dude.net /HTTP/1.0
so far, this is my direction...and this may be wrong (hence the post)
I plan to open the file

$file = '/home/steven/http.list';
open(INFO, $file);
@lines = <INFO>;
close(INFO);

then I was thinking use a "for, foreach"

foreach $i(@lines){

and this is where i need a socket???
I have heard that I could use IO::Socket, but not really knowing the semantics of perl, it's not quite as easy to piece together the scraps of sample code I've borrowed from all corners of the world....
here's my socket :

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $sock = new IO::Socket::INET (
                                PeerAddr => 'website.org',
                                PeerPort => '80',
                                Proto =>'tcp',
                                );
die "Could not create socket: $!\n" unless $sock;
print $sock ""this is where i need my http statement to go (from the f
+ile list";
close($sock);

my green horns are clearly poking through.....
I appreciate any help ..cheers..... stevenrh

UPDATE: Thanks all for your help, and for being so cool to a noob, who could've RTFM (for a while).
I really appreciate it

[NetWallah]

Could I gently suggest that you will get yourself into a lot of trouble as a newbie doing Socket programming, and complicating it with a protocol like HTTP ?

I recommend that you look at some abstractions of the socket that let you view your HTTP request as an HTTP object. Please look at

• HTTP::Request
• WWW::Mechanize

[ides]

I think you should look into the LWP modules. It will simplify this for you greatly by removing all of the networking complexity for you. Here is an example:

use LWP::Simple; 

# insert your code to populate @lines here 

foreach my $url (@lines) { 
  my $content = get($url); 
}

[hsinclai]

As mentioned, LWP is probably much better than what you're trying.. If you want to experiment, you might look at the LWP::UserAgent module.. it is cool because it has great options and you can politely identify yourself. However I found the documentation a bit abstruse.. so below is a quick example that might help..



use LWP;

my $finaldata;
my $query_url = 'http://www.bla.com/';

sub get_pagesum {                                                     
+                        
   my $ua       = LWP::UserAgent->new( agent => 'http://mysite.com/');
+        
   my $response = $ua->get("$query_url",                              
+                        
                              ':content_cb' => \&gen64,               
+                        
                             );                                       
+                        
}                                                                     
+                        
                                                                      
+                        
sub gen64 {                                                           
+                        
   my($data, $response, $protocol) = @_;                              
+                        
   return $finaldata .= $data;                                        
+                        
}

# whatever you got off the last request
# should now be contained in $finaldata

(In my case I was sending $finaldata off to be md5 checksummed.)

Of course, if your file contains a list of URLs you must fetch, then you'll be carrying out the procedure for each line in the file...

[rvosa]

I am working on the assumption that the question is about hosting a socket server that writes out responses with GET requests to whoever logs in (why???). Perhaps I am misunderstanding the original question because the responses suggesting LWP::UserAgent don't seem to address it? Anyway, something like this might work:

#!/usr/bin/perl
# startup with "scriptname localport redirect"
use warnings;
use strict;
use IO::Socket;

# port to listen on, stuff to write to clients
my ( $localport, $redirect ) = ( $ARGV[0], $ARGV[1] );

# setting up server
my $server = IO::Socket::INET->new(
    LocalPort => $localport,
    Proto => 'tcp',
    Listen => SOMAXCONN,
    Reuse => 1
) || die "couldn't be a tcp server on port $localport:$@\n";

# status
print qq{DAEMON LISTENING ON: $localport\n};

# new connections are instantiated like so
while ( my ($client, $c_addr) = $server->accept()) {

    # collecting details about new connection
    my ($client_port, $c_ip) = sockaddr_in($c_addr);
    my $client_ipnum = inet_ntoa($c_ip);
    my $client_host = gethostbyaddr($c_ip, AF_INET);

    # printing client info
    print qq{INCOMING: $client_host, $client_ipnum\n};

    # retrieving whatever the incoming connection is saying
    while(<$client>) {
        print;
        print $client $redirect;
    }
}

Not (really) tested.

[hsinclai]

Hm.. I think all who mentioned LWP understood the OP to intend to mean
open a socket to a remote server in order to execute the "command" found in a file

stevenrh ?