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

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
[download]

(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...

Comment on Re: open a socket and print from stdin....i think Download Code

Replies are listed 'Best First'.
Re^2: open a socket and print from stdin....i think by rvosa (Curate) on Oct 05, 2004 at 21:58 UTC
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; } } [download] Not (really) tested.	[reply] [d/l]
Re^3: open a socket and print from stdin....i think by hsinclai (Deacon) on Oct 05, 2004 at 23:38 UTC
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 ?	[reply]
Re^4: open a socket and print from stdin....i think by rvosa (Curate) on Oct 06, 2004 at 07:13 UTC
On second thought, I think that's what it meant too. Oops.	[reply]
Re^4: open a socket and print from stdin....i think by stevenrh (Beadle) on Oct 06, 2004 at 13:36 UTC
Yes. I have a list of links (with session ID, etc) i need to hit on a website. Contrary to my first post, I actually need to issue the POST command. example..I can: nc -vvv website.org 80 and then put in my command: POST http://website.org/action2?sessionid /HTTP/1.0 then i hit return a few times...and i get the html output. BUT as most have pointed out, I think LWP is the easiest, and best way, especially for me.. also note, the "http://website.org/action2?sessionid" is coming from an array, because it's a bunch of links in a file.	[reply]
Re^5: open a socket and print from stdin....i think by hsinclai (Deacon) on Oct 06, 2004 at 13:53 UTC


Your skill will accomplish what the force of many cannot
	PerlMonks