use strict;
use warnings;
use Try::Tiny;
use Regexp::Common qw /number/;
use Encode;

my $linecount = 0;
		
open(DATA, qq(dumptorrent.exe "$ARGV[0]"|));
binmode(DATA, ":raw");
binmode(STDOUT, ":encoding(UTF-8)");
foreach my $line (<DATA>)
{
	$line = DecodeRawLine($line);
	# Discard the 5 lines of output before the list of filenames
	if (++$linecount > 5)
	{
			last if (length($line) == 0);
			$line =~ s/^ *//;
			$line =~ s/ +\(${RE{num}{real}}[KMG]\)$//; # e.g. " (8.22M)" 
			my $sizeindex = rindex($line, ' ') + 1;
			my $filesize = substr($line, $sizeindex);
			# Ignore zero-length files in torrents. 
			if (defined $filesize && length($filesize) > 0 && $filesize > 0)
			{
				# Remove the extra spaces between the file name and size
				(my $filekey = $line) =~ s/ +(\d+)$/ $1/;
				print "$filekey\n";
			}
	}
}

sub DecodeRawLine
{
	# IMPORTANT! Any arguments in @_ that are needed in 'try' must be COPIED!
	my $line = substr($_[0], 0, length($_[0])-2); # remove CR-LF
	try
	{
		$line = Encode::decode('UTF-8', $line, Encode::FB_CROAK);
	}
	catch
	{
		$line = Encode::decode('cp1252', $line);
	};
	return $line;
}