6 my $exec = 'dumptorrent-1.2.exe';
8 my $torrent = shift @ARGV;
11 die "$0: file doesn't exit: $torrent";
14 my @output = `$exec "$torrent" 2>&1`;
18 while (my $line = shift @output) {
20 if (!$name and $line =~ /^Name:\s+(.*)$/) {
23 if ($line =~ /^Files:/) {
24 while ($line = shift @output) {
25 if ($line =~ /^\s+(.+\w)\s+\d+( \([0-9\.]+[KM]\))?$/) {
32 foreach my $file (@files) {
33 print "$torrent\t$name\t$file\n";