LWP::UserAgent & redirection (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]15927[/thread]

LWP::UserAgent & redirection [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+3 replies

conray

2011-02-06 21:14

User since
2010-02-19
52 Artikel
BenutzerIn
[default_avatar]

Guten Abend,

ich hänge schon den ganzen Tag an einem sicherlich simplen Problem fest.
Undzwar ich habe eine URL die nur auf eine andere URL verweist, redirection eben. Ich brauch eigendlich nur die endgültige URL rausfinden aber das will mir irgendwie nicht gelingen.

Ich habe schon mehrere Ansätze versucht und ergoogled aber entweder mach ich es grundlegend falsch odr es ist ein Verständnisproblem :P

Code (perl): (dl )

                #my $content = $ua->get("http://download.serienjunkies.org/go-$1");#->content();
                #my $tmp = $ua->request($content);
                #print $tmp->as_string;
                
                #my $res = $ua->request->$link;
                #print $res;    
                # my $req1 = HTTP::Request->new(GET => $link);
                # $req1->header('Accept' => 'text/html');
                # my $res1 = $ua->request($req1);
        # print $res1->as_string;
                


                my $request = HTTP::Request->new('GET', $link);
                my $response = $ua->request($request);
                print $response->header_as_string;#("Location");
        


                #my $content = HTTP::Request->new(GET => $link);
                #my $res = $ua->request($content);
                #print $content."\n";
                #my $res = $content->content();
                #print $res."\n";
                
                        
                #push @urls, $url;

Ja es ist im moment eher smellcode aber ich suche ja Prinzipiell erstmal nach einer Lösung und habe auch nocht nicht wirklich viel erfahrung in Sachen Netzwerkprogrammierung und Useragents etc ;)

Wäre einer von euch so freundlich mir zu helfen den Knoten in meinem Kopf zu lösen?^^

Das ganze soll mal ein Plugin für Tuxload werden falls das jemand kennt.

mfG
conray

+2 replies

conray

2011-02-06 23:31

User since
2010-02-19
52 Artikel
BenutzerIn
[default_avatar]

Erledigt!
Habs endlich rausgefunden:

Code (perl): (dl )

                my $request = HTTP::Request->new('HEAD', $link);
                $request->header('Accept' => 'text/html');
                my $response = $ua->request($request);
                if ($response->is_success) 
                {
                        my $url = $response->request()->uri();
                        logger( "### Found new URL: " . $url );
                        push(@urls, $url);
                }

mfg
conray

bianca

2011-02-07 07:13

User since
2009-09-13
6976 Artikel
BenutzerIn

Setzt Du dann auch bitte noch das Erledigt-Häkchen.
Danke Dir
10 print "Hallo"
20 goto 10

View all threads created 2011-02-06 21:14.