in reply to perl program to write a perl program

try this:- 
 require LWP::UserAgent;

        my $ua = LWP::UserAgent->new;
        $ua->timeout(10);
        $ua->env_proxy;

        my $response = $ua->get(’http://search.cpan.org/’);

        if ($response->is_success) {
            print $response->content;  # or whatever
        }
        else {
            die $response->status_line;
        }

[download]

Replies are listed 'Best First'.
Re^2: url file download code
by electroman00 (Novice) on Dec 23, 2006 at 02:15 UTC
    Thanks again guys... got that part working.
    Now I have a faulty operater problem (me).... 
    sub calc_disk
{
    
    my $md5_disk = undef;
        open(FILE, "/tmp/dl_mods/$filename") or die "md5sum cannot fin
+d  /tmp/dl_mods/$filename !!";
        binmode(FILE);
$md5_disk = Digest::MD5->new->addfile(*FILE)->hexdigest,"\n";
    

    if ($@) {
        $errormessage = $@;
        $response_code = 0;

    return $response_code;
    }
    return ($md5_disk);
}

    [download]
    What I get is this
    Useless use of a constant in void context at dlfiles_sub.pl
    line 98.
    Digest::MD5->new->addfile(*FILE)->hexdigest,"\n";
    Other than stripping that line out nothing fixes it
    Well nothing between my ear's anyway.
[reply]
[d/l]
      Well there was a lot of trees but no forest. 
          $md5_disk = undef;
        open(FILE, "/tmp/dl_mods/$filename") or die "md5sum cannot fin
+d  /tmp/dl_mods/$filename !!";
        binmode(FILE);
        $md5_disk = Digest::MD5->new->addfile(*FILE)->hexdigest;

    close(FILE);

      [download]
[reply]
[d/l]
Re^2: url file download code
by liverpole (Monsignor) on Dec 27, 2006 at 15:31 UTC
    --lovekumar,

    It doesn't take much effort to cut-and-paste code from another site, and it's considered bad form (at best) NOT to attribute your sources.  If you're going to take code from an alternate source, you should state that up front.

    What you posted won't even compile in Perl.  That's because the string ’http://search.cpan.org/’ contains non-standard single quotes (ascii 146) which are often used in documentation, rather than the standard apostrophes "'" (ascii 39).

    So my guess is that you got it from some site other than CPAN's version, which uses the apostrophes for that line, but is identical otherwise: 

     require LWP::UserAgent;
 
 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 
 my $response = $ua->get('http://search.cpan.org/');
 
 if ($response->is_success) {
     print $response->content;  # or whatever
 }
 else {
     die $response->status_line;
 }

    [download]

    Update:  Okay, I admit I have to agree, mostly, with virtualsue's response below.  I did go overboard with my response, which comes across as a bit harsh/rigid.  Sorry about that.

    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
[reply]
[d/l]
[select]
      I think people should be allowed to cut & paste from pod without being hassled about it. A /msg to point out the problem with the single quote character would have been kind.
[reply]

In Section Seekers of Perl Wisdom