Marc Qantins > BitTorrent > BitTorrent

Download:
BitTorrent-V0.1.zip

Dependencies

Annotate this POD (1)

CPAN RT

New  2
Open  0
View/Report Bugs
Module Version: 0.10   Source  

NAME ^

BitTorrent - Perl extension for extracting, publishing and maintaining BitTorrent related things

SYNOPSIS ^

        use BitTorrent;
        my $torrentfile = "http://www.mininova.org/get/620364";
        my $obj         = BitTorrent->new();
        my $HashRef1 = $obj->getHealth($torrentfile);
        my $HashRef = $obj->getTrackerInfo($torrentfile);
        
        print "Seeder: " . $HashRef1->{seeder};
        print "Leecher: " . $HashRef1->{leecher};

        print "Size: $HashRef->{'total_size'}\n";
        print "Hash: $HashRef->{'hash'}\n";
        print "Announce: $HashRef->{'announce'}\n";

        foreach my $f ( $HashRef->{'files'}) {
                
                foreach my $_HashRef( @{$f} ) {
                
                        print "FileName: $_HashRef->{'name'}\n";
                        print "FileSize: $_HashRef->{'size'}\n";
                
                }; # foreach my $_HashRef( @{$f} ) {
                
        }; # foreach my $f ( $HashRef->{'files'}) {

DESCRIPTION ^

BitTorrent: Minor Update Release: + get Seeder and Leecher Infos from given torrent url file. + extraction of important information from tracker including filenames, filesize, hash string, announce url

EXPORT

getHealth(): get Seeder and Leecher Infos getTrackerInfo(): get filenames, filesize, hash string, announce url from given torrent file

SEE ALSO ^

http://search.cpan.org/author/ORCLEV/Net-BitTorrent-File-1.02-fix/lib/Net/BitTorrent/File.pm http://search.cpan.org/author/JMCADA/Net-BitTorrent-PeerPacket-1.0/lib/Net/BitTorrent/PeerPacket.pm

http://www.zoozle.net http://www.zoozle.org http://www.zoozle.biz

AUTHOR ^

Marc Qantins, <qantins@gmail.com<gt>

COPYRIGHT AND LICENSE ^

Copyright (C) 2007 by M. Quantins, Sebastian Enger

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.

syntax highlighting: