A problem in socket programming in perl

Question

I write this code :

 #!/usr/local/bin/perl
 use strict;
 use LWP::UserAgent;

 my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
 $ua->proxy([qw(http https)] => 'http://203.185.28.228:1080' #that is just socks:port);
 my $response = $ua->get("http://www.google.com");
 print $response->code,' ', $response->message,"\n";

but when i execute it i get this error: 500 Can't connect to 203.185.28.228:1080 (connect: timeout)

what am i going to do ?

First, use -w OR 'use warnings'. Next: What about your internet connectivity. is that working fine? — Space
– Space, Commented May 11, 2010 at 10:13

Space · Accepted Answer · 2010-05-11 10:49:02Z

1

I tested your script, its fine, however I got the only error is with

$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080' #that is just socks:port);

The comments should be out of '()' i.e.

$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080'); #that is just socks:port

Also, please check your internet connectivity. Below is the output i got from your script.

200 Assumed OK

edited May 11, 2010 at 10:49

answered May 11, 2010 at 10:14

Space

7,2997 gold badges51 silver badges68 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

DVK · Accepted Answer · 2010-05-11 10:15:02Z

0

Is it SOCKS5? Does it require you to authenticate? (take a look at your Firefox/IE settings if they use the same proxy)

answered May 11, 2010 at 10:15

DVK

130k33 gold badges219 silver badges337 bronze badges

Collectives™ on Stack Overflow

A problem in socket programming in perl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related