HTTP_GET

I need a small perl script that will sit on my dos machine that can do an HTTP_GET.

I need it to be able to resolve the following style of URL and return to the screen what it found.  Short sweet and simple..

https://user:pass@123.123.123.123/somepage.html

Please and thanks..
LVL 4
PalamedesAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ozoCommented:
use LWP::Simple;
$rc = getprint('http://user:pass@123.123.123.123/somepage.html');
die status_message($rc) unless is_success($rc);
0
PalamedesAuthor Commented:
What?! You couldn't make it any simpler?!!!  =p hehe


Okay.. gonna try that...
0
PalamedesAuthor Commented:
Okay that doesn't work as LWP::Simple doesn't support HTTPS.

*sigh*  Any other ideas?

-Pal
0
ozoCommented:
HTTPS is not so short sweet and simple, you probably need to
use Net::SSL; #or IO::Socket::SSL
0
elambCommented:
Use the Net::SSLeay mod. It provides the same functions (get for example) for SSL pages as LWP has for standard web pages. Here is the CPAN link to that mod;

http://search.cpan.org/search?dist=Net_SSLeay.pm 

The command would be;

use Net::SSLeay, qw(get_https);
($page) = get_https('http://user:pass@123.123.123.123/somepage.html', 443, '/');

Still pretty short and sweet!
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Perl

From novice to tech pro — start learning today.