Druckbare Version
Hi,
Ich lerne gerade Perl weiter, dabei hab ich aber 2 Probleme die ich in Google etc. nicht so ganz finde bzw. verstehe.
1. Wie programmiere ich in Perl das ich ins Internet will, oder in mein Home Lan Netzwerk?
2. Wie kann ich in Perl den Upload und Download bei Utorrent regeln?
mfg Eatfish :D
1. "Ins Internet will" ist etwas unpräzise... aber ich denk du willst einfach was downloaden.
use LWP::UserAgent;
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET','http://www.V-X.li'; # Schleichwerbung :D
$result = $agent->request($request);
@words = $result->content();
So speicherst du den Inhalt einer Webseite im Array @words.
use LWP::Simple;
getstore("http://beispiel.de/bsp.exe", "NeuerName.exe");
Und damit kannst du eine einzelne Datei downloaden.
Ein bisschen mehr kannst du mit dem Modul IO::Socket machen. Siehe CPAN: http://search.cpan.org/~gbarr/IO-1.2301/IO/Socket.pm
2. Utorrent kenn ich nicht. Hab jetzt grad bei google gelesen das es einfach so ein BitTorrent-Client ist.
Ich denke mal da gibts auch ein Ordner wo das Programm alles reinschmeisst was du zum upload anbietest oder so.. Das war glaub bei Bearshare so.. ka ich benutzt schon lang kein Torrent mehr.
ok danke
Ich will eig. nichts downloaden! Da ich meistens auf ALT Trackern unterwegs bin, schimpft immer die ganze Familie weil das Internet so langsam geth^^. Deswegen will ich ein Script schreiben, das den Download verringern wenn jemmand anderes ans Netz geth :D
Da sollte ja ein Ping, zur Überprüfung ob der Host onine ist, reichen.
http://search.cpan.org/~chorny/Net-P...12/External.pm
Generell solltest du dir mal Cpan.org anschauen.