I hope you don't mind, but I am posting this back to the list so that others with a
similar
question can see this. I have blocked out your name and BCCd you on this.
--- *** <***@***.com> wrote:
> What are LWP and Data?
LWP (Library for WWW access in Perl) is a suite of modules to handle Web automation.
LWP::UserAgent is a module that allows your Perl script to pretend to be a User Agent
(e.g. Web
browser).
Data::Dumper is a very useful debugging tool. One can pass variable to it and the
Dumper routine
will create a nicely formatted display of the variable information. Try running this
code:
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my %hash = ( one => "First",
two => "Second" );
print Dumper( \%hash );
That should give you a rough idea of how Data::Dumper is typically used.
For more information, use Perldoc on the command line:
perldoc LWP
perdoc Data::Dumper
Hope this helps.
Cheers,
Curtis Poe
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
>
> >Generally, with a situation like this, I telnet to port 80 and view
> >the headers directly. I'm not
> >as familiar with doing this programatically, but you can try the
> >following (note where you need to
> >insert your URL!):
> >
> >#!/usr/bin/perl -w
> >use strict;
> >use LWP::UserAgent;
> >use Data::Dumper;
> >
> >my $ua = LWP::UserAgent->new;
> >
> ># insert the URL here
> >my $request = HTTP::Request->new( HEAD => 'http://some.server.name/' );
> >
> >my $response = $ua->request($request);
> >$Data::Dumper::Indent = 1;
> >print Dumper $response;
> >
> >The output will be the data contained in the response object. If
> >you have difficulty
> >understanding it (it can be a bit confusing), post the output to
> >this list and we can take a look
> >at the data for you.
> >
> >If anyone else knows of a cleaner way of printing just the headers
> >(short of using IO::Socket),
> >I'd love to see it!
=====
#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)
http://online.offshore.com.ai/arms-trafficker/
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
