ZloY TEaM : [Perl] torrent_renamer

system('cls');

##########################################################################
##########################################################################
##########################################################################

 $dir	        = '.';			#without /
 $pr	 	= '[torrent]';

##########################################################################
##########################################################################
##########################################################################

sub saveFile
{
	open(myFILE,">$_[0]") || die "error: $!";
	print myFILE $_[1];
	close(myFILE);
} 

sub cyr
{
	$phrase = shift;
	$phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	return $phrase;
}


sub read_str
{
	if ($_[0] =~ /:$_[1](\d{0,4}):/)
	{return substr($_[0], index($_[0],$_[1])+length($_[1])+length($1)+1, $1)}
	else {return '';}
}

sub read_num
{
	if ($_[0] =~ /$_[1]i(\d{0,64})e/)
	{return $1} else {return ''}
}

sub rename_torrent
{
	local $new_name,$old_name;

	$old_name=$_[0];	
	$new_name=cyr(read_str($_[0],'name'));
	$new_name=~s/\[torrents.ru\]//ge;
	return $new_name.'.torrent';
	#rename old new
}

##########################################################################
##########################################################################
##########################################################################

system('cls');

print "--====--=--=- eLWAux -=-==-====--\n";
print "--===-== torrent renamer -=-===--\n";
print "--====-==-=-=-=-=-=-=-=--==-===--\n\n";

opendir(TEMPDIR,$dir) or die("[-] Error ($!)..");
@FILES=grep(/\.torrent$/i, readdir TEMPDIR);
closedir(TEMPDIR);

print '[i] '.@FILES." *.torrent's found\n";
print '[i] '.localtime(time())."\n";

print "--====-==-=-=-=-=-=-=-=--==-===--\n\n";

$g=0;$bef='';$aft='';$nren='';
for ($i=0;$i<@FILES;) {
	$res='';
        open(DESC, @FILES[$i]);
        while (<DESC>) {$res.= $_;}
        close(DESC);

	print '    '.cyr(@FILES[$i])."\n";
	$n = $pr.rename_torrent($res);
	if ($n eq @FILES[$i])
		{ print '[-] '.$n."\n";
		  $nren.=$n."\n";
		} else
		{ $g++;
		  rename @FILES[$i],$n;
		  $bef.=@FILES[$i]."\n";
		  $aft.=$n."\n";
		  print '[+] '.$n."\n";
		}	
	$i++;
	}
print '[i] renamed: '.$g."\n";
print '[%] '.int(($g/@FILES)*100).'% renamed!';

saveFile('result_rename.txt',
	"renamed: $g files\n".
	"         ".int(($g/@FILES)*100)."% of all file(s)\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"before:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$bef."\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"after:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$aft."\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"\nnot renamed:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$nren."\n");
<STDIN>;