From 54536a410fa3963774ea81f75663b815eb8bc802 Mon Sep 17 00:00:00 2001
From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Tue, 10 Apr 2012 15:47:14 +0000
Subject: [PATCH] * parse .torrent file and print list of files * this
script couldn't many .torrent file because of
Convert::Bencode bugs like below {{{ Use of uninitialized
value $item in string eq at
Perl/site/lib/Convert/Bencode.pm line 127. Use of
uninitialized value $item in string eq at
Perl/site/lib/Convert/Bencode.pm line 138. Use of
uninitialized value $item in string eq at
Perl/site/lib/Convert/Bencode.pm line 148. }}}
git-svn-id: https://lab.mitty.jp/svn/lab/trunk@135 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---
misc/torrent2filelist.pl | 27 +++++++++++++++++++++++++++
1 file changed, 27 insertions(+)
create mode 100644 misc/torrent2filelist.pl
diff --git a/misc/torrent2filelist.pl b/misc/torrent2filelist.pl
new file mode 100644
index 0000000..09eb51d
--- /dev/null
+++ b/misc/torrent2filelist.pl
@@ -0,0 +1,27 @@
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Net::BitTorrent::File;
+use Data::Dumper;
+
+my $torretfile = shift @ARGV;
+my $torrent = Net::BitTorrent::File->new($torretfile) or
+ die "$0: cannot load torrent file: $torretfile";
+
+my $files = $torrent->files;
+if ($files) {
+ foreach my $file (@$files) {
+ if (exists $file->{'path.utf-8'}) {
+ print $torrent->name, "/", join ("/", @{ $file->{'path.utf-8'} }), "\n";
+ }
+ else {
+ print $torrent->name, "/", join ("/", @{ $file->{'path'} }), "\n";
+
+ }
+ }
+}
+else {
+ print $torrent->name, "\n";
+}
--
1.7.9.5