|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 07 Feb 2001 22:34:34
To : All
Subject : Переслать файл
--------------------------------------------------------------------------------
Помогите со скриптом!
Hи как не получается. Hадо с сайта, размещенного на f2s
переслать файл на другой FTP.
Пробовал LWP::UserAgent но ни чего не получается
#!/usp/bin/perl
use LWP::UserAgent;
$user = "user";
$passwd = "passw";
$ftpurl = "ftp.ru";
$sendfile = "readme.txt";
$ua = LWP::UserAgent->new;
$ua->agent("AgentName/0.1 " . $ua->agent);
$request = HTTP::Request->new(PUT , 'ftp://$user:$passwd@$ftpurl/');
if ($ua->request($request)) {
print "Connect $ftpurl.\n";
}
@arr = split(/\//,$sendfile);
$i = @arr;
$files = $arr[$i-1];
$response = $ua->request($request);
if ($response->is_success) {
open(RES,">$sendfiles") or die $!;
binmode(RES);
print RES $response->content;
close RES;
print "Ok! $ua->content\n";
} else {
print "No Connect $ftpurl\n";
}
Отладку приходится проводить под виндами, а в ActivePerl
нет модуля Net::FTP.
А может быть другие пути есть?
-- Hиколай.
* А счастье было так возможно,и так возможно,и вот так
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Где начало того конца, которым оканчивается начало? (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
