Wie kann ich den Inhalt eines verfolgten Links in WWW::Mechanize erhalten?

Question

Dies ist meine letzte Frage für diese ich hoffe. Ich verwende $mech->follow_link, um eine Datei herunterzuladen. Aus irgendeinem Grund ist die gespeicherte Datei jedoch nur die Seite, die ich zuerst aufrufe, und nicht der Link, dem ich folgen möchte. Ist dies der richtige Weg, um die Datei von dem Link herunterzuladen? Ich möchte nicht wget verwenden.

    #!/usr/bin/perl -w
    use strict;
    use LWP;
    use WWW::Mechanize;
    my $now_string = localtime;
    my $mech = WWW::Mechanize->new();
    my $filename = join(' ', split(/\W++/, $now_string, -1));
    $mech->credentials( '***********' , '************'); # if you do need to supply     server and realms use credentials like in [LWP doc][2]
$mech->get('http://datawww2.wxc.com/kml/echo/MESH_Max_180min/') or die "Error: failed to load the web page";
$mech->follow_link( url_regex => qr/MESH/i ) or die "Error: failed to download content";
$mech->save_content("$filename.kmz");

Answer 1

Schritte zum Ausprobieren

1. Drucken Sie zunächst den Inhalt Ihrer get um sicherzustellen, dass Sie eine gültige HTML-Seite erreichen
2. Vergewissern Sie sich, dass der Link, den Sie aufrufen, der dritte Link mit der Bezeichnung "MESH" ist (Groß- und Kleinschreibung beachten?)
3. Drucken Sie den Inhalt Ihres zweiten get
4. Drucken Sie den Dateinamen, um sicherzustellen, dass er wohlgeformt ist.
5. Prüfen Sie, ob die Datei erfolgreich erstellt wurde

Zusätzliche

• Sie brauchen es nicht, es sei denn, es funktioniert, oder es stirbt.

---

Beispiel

#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;

   sub main{

      my $url    =  qq(http://www.kmzlinks.com);
      my $dest   =  qq($ENV{HOME}/Desktop/destfile.kmz);

      my $mech   =  WWW::Mechanize->new(autocheck => 1);

      # if needed, pass your credentials before this call
      $mech->get($url);
      die "Couldn't fetch page" unless $mech->success;

      # find all the links that have urls to kmz files
      my @links  =  $mech->find_all_links( url_regex => qr/(?:\.|%2E)kmz$/i );

      foreach my $link (@links){               # (loop example)

         # use absolute URL path of the link to download file to destination
         $mech->get($link->url_abs, ':content_file' => $dest);

         last;                                 # only need one (for testing)
      }     
   }

   main();

Answer 2

Sind Sie sicher, dass Sie den 3. Link 'MESH' nennen wollen?

Answer 3

Ändern Sie if à unless .