FTP и скрипт на Perl

Хелпзонович:
Не уверен, что Вам это пооможет, но все таки.
Была похожая проблема, но файлы забирались по HTTP. Тоже приходили битыми. У хостера какой-то косяк с mime types был. Дабы не морочить голову и себе и хостеру, просто сменил расширение у файлов. Т.е. у Вас в скрипт должен заархивировать файлы в archiv.tar. Измените скрипт, что бы получился archiv.zip например.

use Net::FTP;

$host_name='host.ru';
$login='логин';
$password='пасс';

$dir='/дир';

open L,">>getp_log";
$time=Time();
print L "$time -> getp\n";


print "Устанавливаем соединение с сервером\n";
$s1=Net::FTP->new($host_name,'Passive'=>1) or die "Соединение НЕ установлено, проверте наличие связи.";
print "Соединение установлено\n";
print "Авторизация\n";
$s1->login($login,$password) or die "err login";

$time=Time();
print L "$time -> login ok\n";

print "Авторизация пройдена\n\n";
$s1->cwd($dir) or die "err cwd";

system 'deltree /Y дир2\\*';
chdir 'дир2' or die 'err chdir';

print "\n";

@ls=$s1->dir() or $s1->quit() and die "err ls";

foreach (@ls)
{
s/^.*\s+(.+)$/$1/;
if(/\.bz2$/)
{
print "Скачиваем $_\n";
$s1->get($_) or print "err get $_";

$time=Time();
print L "$time -> $_ ok\n";

++$i;
}
}

print "\nЗакрываем соединение\n";
$s1->quit() or print "err quit";

$time=Time();
print L "$time -> quit ok\n";

print "Соединение закрыто\n\n";

chdir '..';

system 'copy /Y obpz\\*.bz2 obp';
system 'bzip2 -dvf obp\\*.bz2';

print "\n\nСКАЧЕНО $i ФАЙЛОВ"; <STDIN>;


#==============================sub===================================

sub Time
{
my($y,$m,$d,$h,$mi,$s)=reverse((localtime)[0..5]);
$y+=1900; ++$m;
return sprintf "%04s/%02s/%02s %02s:%02s:%02s", ($y,$m,$d,$h,$mi,$s);
}

Хелпзонович:
Вставить -
$s1->binary;