ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     03 Apr 2000  20:43:46
 To : All
 Subject : Re: ftp
 -------------------------------------------------------------------------------- 
 

 Valeri Streltsov wrote:
 
 > Hужно скриптик на Perl'е чтоб подсоединялся к нужному FTP и выкачивал
 > n-килобайт от заданного файла (без докачки, просто взял и первые n-килобайт
 > выкачал). От скрипта нужно чтобы он опознавал наличие по заданному url'у файла
 > или его отсутствие, а так же выкачивал, скажем, 10 килобайт. Больше ничего не
 > нужно. Ковырял разные модули, типа ftp.pl и т.п. - ничего не понял :(
 > Если это можно сделать на C, C++ то скажите как, иначе - как это сделать на
 
 Это можно сделать на любом языке. Hо только один здесь HЕ ОФФТОПИК.
 
 > Perl'е.
 
 #!/usr/bin/perl -w
 use Net::FTP;
 use strict;
 $#ARGV==5 or die "Usage: $0 host login pass dir file size >local\n";
 my $ftp = Net::FTP->new($ARGV[0], Debug => 0) or die;
 
 $ftp->login(@ARGV[1,2]) or die "Incorrect login/password\n";
 $ftp->cwd($ARGV[3]) or die "Cannot change directory\n";
 $ftp->binary;
 
 my $dch=$ftp->retr($ARGV[4]) or die "Cannot get file\n";
 my ($len,$data,$buf)=(0,'','');
 while($len<$ARGV[5]) {
     $len+=$dch->read($buf,$ARGV[5]-$len) || last;
     $data.=$buf;
 }
 
 $dch->abort;
 $ftp->quit;
 
 # ------------------------------
 print STDERR "Read $len bytes\n";
 print $data;
 Андрей
 --- ifmail v.2.15dev4
  * Origin: Chelindbank (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    ftp   Valeri Streltsov   02 Apr 2000 22:30:36   Re: ftp   Andrey Sapozhnikov   03 Apr 2000 20:43:46