[mdk-re] perl need help

[cornet]

Korshunov Ilya wrote:
> 
> Надобно сделать скрипт написть на perl (можно и на bash в принципе)
> который будет заходить на ftp (запароленый), логиниться и перекачивать
> оттуда всё новое что там появилось. То бишь типа mirror'a. Что то ни как
> не соображу как это осуществить. Не подскажет никто  ?

Для этого есть перловый модуль
Net::FTP


<BEGIN>
#!/usr/bin/perl
use Net::FTP;
$addres=shift(@ARGV);
$file=shift(@ARGV);
$login='vasya';
$passw='vasyapass';
$prefix='/pub';
$ftp = Net::FTP->new($addres, Debug => 0) or die '';
$ftp->login($login, $passw) or die '';
$ftp->cwd($prefix);
$ftp->get($file, *STDOUT);
$ftp->quit;
<EOF>

ну и далее в таком стиле.

-- 
Власенко Олег.
Отдел технической поддержки ALT Linux Team.
mailto:cornet на altlinux.ru