Never mind. I got it straightened out. I just had to
...
my $pieces = $info->{'pieces'};
$pieces =~ s/(.)/sprintf("%02x",ord($1))/egs;
...
On 1/11/07, Andy Greenwood <[EMAIL PROTECTED]> wrote:
I'm trying to extract the SHA1 hashes out of a .torrent file using
Net::BitTorrent::File, among other
I'm trying to extract the SHA1 hashes out of a .torrent file using
Net::BitTorrent::File, among other information, but can't seem to
figure out how to get them. I keep getting binary data, not the ascii
hash. Can anyone tell me what I'm doing wrong here?
#!/usr/bin/perl
use strict;
use warnings;
