Ergebnis 1 bis 2 von 2
  1. #1
    Fortgeschrittener
    Registriert seit
    17.09.2007
    Beiträge
    40

    Standard Kleines Problemchen :)

    Hey, ich hatte vor mit einem Perl-Script eine Seite(in dem fall Schuelervz) auszulesen, und dann daraus bestimmte daten auszulesen(in diesem fall bloß ein Datum). Ich habe mir, da ich noch anfänger bin, das "getproxyservers script" von ]=-antr4xx-=[(Danke nochmal an dich dafür ) als "vorlage" genommen, und dies für meine Machenschaften etwas verändert. Mein Problem ist nun das ich die Proxys, welche ich weis, nicht in die anfrage reinbekomme. Also werde ich bei Schuelervz immer auf eine andere seite gebracht, wo steht "Ja noch nicht eingeloggt"-blaablaa...
    Ich habe außerdem durch googlen erfahren das man mit LWP gar keine Cookies einbinden kann :/...

    Kurz: Ich komm nicht darauf die cookies in den request einzubinden.

    Ich fänds hilfreich wenn mir wer weiterhilft.

    Hier mal mein aktueller code.
    Code:
    #! /usr/bin/perl
    
    use strict;
    use warnings;
    use LWP::UserAgent;
    use CGI qw/:standard/;
    use CGI::Cookie;
    
    
    
    
    sub get_proxys {
    
    #cookies einleiten
    .hier definiere
    .ich die cookies
    .(z.b. cookie_1 usw. )
    #coockies eingeleitet
        my ($ua, $req, $res, @ret, $cook);
        my $url = $_[0];    
        $ua = new LWP::UserAgent();
        $ua->agent("Mozilla Firefox");
         header(-cookie=>[$cookie_1, $cookie_2, $cookie_11, $cookie_3, $cookie_4, $cookie_5, $cookie_6, $cookie_7, $cookie_8, $cookie_9, $cookie_10]);
        $req = new HTTP::Request(GET => $url);
        $req->content_type('application/x-www-form-urlencoded');
    $res = $ua->request($req);   
        if($res->is_success) {
            $_ = $res->content();
            
            my @results = split "<dd>";
            my $i;
            open(datei2, ">svz2-grab.txt") || die "Error \n";    
            foreach $i (@results) {
            print datei2 "$i \n";
            print "$i \n";
                if($i =~ /([0-9]{1,2}\.[0-9]{1,2}\.[0-9]{1,4})/) {
                    push @ret, $1;
                    }
            }
        }
        if(@ret == 0) {
            exit;
        }
        return @ret;
    }
    my @ger;
    my @data;
    open(datei, ">svz-grab.txt") || die "Error \n";    
        @data = get_data("http://www.schuelervz.net/Profile/eMsIpD4vqyGO6vTuE4l9MD1wjCbHf7_TEt39VABkDjM");
        foreach (@data) {    
            print $_."\n";
        print datei $_."\n";
        
        }
    Geändert von MasterB (02.06.2010 um 14:38 Uhr)

  2. #2
    Fortgeschrittener
    Registriert seit
    17.09.2007
    Beiträge
    40

    Standard

    hmm, also muss ich ich mich wohl nochmal in das ganze rund um cgi einlesen hmm..naja hät ich früher oder später wohl eh gemacht, danke!

Ähnliche Themen

  1. I900 Omnia Problemchen
    Von kevin4445 im Forum Mobile Devices
    Antworten: 13
    Letzter Beitrag: 25.02.2009, 19:08
  2. Zähler problemchen? VB 2008
    Von Tyc0rc im Forum .NET Sprachen - Techniken
    Antworten: 7
    Letzter Beitrag: 01.11.2008, 20:39
  3. Kleines FAQ
    Von Xypro im Forum PayTV/FreeTV/Receiver
    Antworten: 3
    Letzter Beitrag: 12.08.2008, 18:17

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •