ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Stas Vlasov                          2:5080/172     08 Jan 2002  21:52:50
 To : All
 Subject : Net::FTP
 -------------------------------------------------------------------------------- 
 

 
 Чего-то я вообще не понимаю:
 
 ========
 #!perl
 
 use strict;
 use Net::FTP;
 
 my ($line, $arg, $ftp);
 
 $arg = $ARGV[0];
 
 if (!($arg =~ /^ftp:\/\//)) {
     printf "usage: scanftp.pl ftp://servername\n";
 }
 
 printf "$arg\n";
 
 $ftp = Net::FTP->new($arg, Debug => 0);
 if (!defined $ftp) {
     die "can't connect to $arg\n"
 }
 
 $ftp->login("anonymous",'f172@mail.ur.ru');
 $ftp->cwd("/");
 
 printf "%s\n",$ftp->ls;
 
 $ftp->quit;
 
 =========
 $ ./scanftp.pl ftp://localhost
 ftp://localhost
 can't connect to ftp://localhost
 
 $ ./scanftp.pl ftp://127.0.0.1
 ftp://127.0.0.1
 can't connect to ftp://127.0.0.1
 Hа localhost запущен и успешно используется WAR-FTPD 1.65 Copyright (c) 1996,
 1997 by jgaa
 Также проверялось на ftp провайдера.
 $ perl -V
 Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
   Platform:
     osname=cygwin, osvers=1.1.6(0.3032), archname=cygwin
     uname='cygwin_nt-5.0 fifer 1.1.6(0.3032) 2000-11-21 21:00 i686 unknown '
     config_args='-de'
     hint=recommended, useposix=true, d_sigaction=define
     usethreads=undef use5005threads=undef useithreads=undef
 usemultiplicity=undef
     useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
     use64bitint=undef use64bitall=undef uselongdouble=undef
   Compiler:
     cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -DHAS_SBRK_PROTO
 -fno-strict-aliasing',
     optimize='-O2',
     cppflags='-DPERL_USE_SAFE_PUTENV -DHAS_SBRK_PROTO -fno-strict-aliasing'
     ccversion='', gccversion='2.95.2-5 19991024 (cygwin experimental)',
 gccosandvers=''
     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
 lseeksize=4
     alignbytes=8, usemymalloc=y, prototype=define
   Linker and Libraries:
     ld='ld2', ldflags =' -s -L/usr/local/lib'
     libpth=/usr/local/lib /usr/lib /lib
     libs=-lgdbm -lcrypt
     perllibs=-lcrypt
     libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl5_6_1.a
   Dynamic Linking:
     dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
     cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'
 Characteristics of this binary (from libperl):
   Compile-time options: USE_LARGE_FILES
   Locally applied patches:
         v5.6.1-TRIAL1
   Built under cygwin
   Compiled at Dec 21 2000 21:39:40
   @INC:
     /usr/lib/perl5/5.6.1/cygwin
     /usr/lib/perl5/5.6.1
     /usr/lib/perl5/site_perl/5.6.1/cygwin
     /usr/lib/perl5/site_perl/5.6.1
     /usr/lib/perl5/site_perl
     .
 Вобщем-то мне требовалось всего-навсего получить список файлов в каталоге.
 Рекурсивно. А тут - даже нерекурсивно не получается :-(
 Да, сеть вообще нормально работает, это не та проблема, что была.
 
 Hу и что мне делать с этим? (С)
 Писать всего ftp-клиента с 0 мне почему-то не улыбается.
 
 Good luck.
          Stas
 
 --- Еще одно "золото" 3.0.1
  * Origin: gui is good, but console better (2:5080/172)
 
 

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

Тема:    Автор:    Дата:    Net::FTP   Stas Vlasov   08 Jan 2002 21:52:50   Re: Net::FTP   Andrey Sapozhnikov   09 Jan 2002 05:57:39   Re: Net::FTP   Stas Vlasov   09 Jan 2002 20:18:56