Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

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

Моно сделать так

Код:

sub cyr
{
	($_)=@_;
	y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	return $_;
}

Цитата:

open(DESC, @FILES[$i]);
while (<DESC>) {$res.= $_;}
close(DESC);

Код:

 
open(DESC, $FILES[$i]);
read(DESC,$res,-s $FILES[$i]);
close(DESC);

Цитата:

for ($i=0;$i<@FILES

{

мне кажется так красивее

Код:

foreach my $file(@FILES) {

Цитата:

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
}

А зачем переменная $old_name ? зачем юзать local? в мануале вроде пишут что лучше my юзать...