Forum • Instalacja, optymalizacja, aktualizacja, porady, dodatki, aktualności
•
•
•

Ciekawy skryp active pearla na Demotywatory.pl

Odpowiedz

Tryb drzewa | Tryb normalny

Ciekawy skryp active pearla na Demotywatory.pl

 
MAciachPaN
User systemu
Liczba postów: 255
Post: #1

Ciekawy skryp active pearla na Demotywatory.pl


Kod:
#!/usr/bin/perl -w
use strict;
use locale;
use LWP;
#plik ze strony   icoder.pl
#skrypt wyciagaj1cy linki do grafiki ze strony i pobiera
#skrypt ma charakter pokazowy, oryginalne domoty ogl1daj na stronie demotywatory.pl ;]
    my $ua = LWP: UserAgent->new;
    $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv: 1.9.1.5) Gecko/20091102 Firefox/3.5.5'); #podszywamy sie pod tak1 przegl1darke
    $ua->show_progress(1); #pokazuje postep aktualnego pobierania
    my @linki=undef;
    
    foreach my $id (1..884) #wartosc sprawdzona na stronie, tzn ilosc stron ;]
    {
        my $res = $ua->get('http: //demotywatory.pl/page/'.$id);
        if(!$res->is_success) {redo;}
        $_ = $res->decoded_content;
        my @tmp_tab = /"demot_pic"><a href=.+?><img src="(.+?)_500.jpg" class="demot"/ig; #grafika wystepuje w dwoch jakosciach (sprawdz), linki do grafiki na stronie maja na koncu "_500"
                                                                                          #nas interesuje lepsza jakosc wiec wycinamy z nazwy "_500" na koncu
        foreach (@tmp_tab) { push(@linki, $_.'.jpg') }; #dopisanie do globalnej zmiennej rozszerzenia po obcieciu
    }

    open(OUT, ">demoty_linki.txt");
    foreach (@linki)
    {
        /.+\/(.+?\.jpg)/i; #obciecie linku i utworzenie nazwy
        my $nazwa=$1;
        $ua->mirror($_, 'demoty/'.$nazwa); #pobieranie, parametry to link i nazwa pliku
        print OUT $_."\n"; #zapisanie linków do pliku, je?i wolisz uzyc innego programu do pobierania, to mozesz skorzystac z samych linkow
    }
    close(OUT);

    my $zm=<STDIN>; #pobranie znaku, tzn wcisniecie klawisza

Powyższy skrypt wyciąga demoty ze strony demotywatory.pl tylko w lepszej jakości Kozak znalazłem gdzieś w sieci Zacieszacz
[Obrazek: tarjaturunenbyharleshin.jpg]

03.02.2010 23:29
Róża Podziękowania od: damian-Win2000
Znajdź wszystkie posty użytkownika
Odpowiedz cytując ten post
Odpowiedz

Podobne wątki
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
Ciekawy test dla trochę starszych userów (16+) LadyInBlue 4 2.551 14.11.2011 20:05
Ostatni post: DonWiorek
Ciekawy blog Kuba93 17 3.911 25.03.2010 22:27
Ostatni post: andamarius
« Starszy wątek | Nowszy wątek »

Temat został oceniony na 0 w skali 1-5 gwiazdek.
Zebrano 0 głosów.


Regulamin for | Polityka Prywatności | Oznacz wszystkie działy jako przeczytane | Ekipa forum | Statystyki | Wersja mobilna | Użytkownicy | Wersja Lo-Fi | Mapa strony | RSS