perl 能否不使用net::ftp模块而直接像shell那样使用ftp命令

87607042

我想能不能不使用perl的net：：ftp模块，使用ftp自己的cmd命令，就像使用shell一样，

ftp -n $HOST <<!
quote USER $USER
quote PASS $PASSWD
binary
cd /
prompt
ls -l file
bye
!

perl能够也这样使用呢

longbow0

当然可以。

不过为什么不用shell？

87607042

回复 2# longbow0


    要在windows平台下使用，本来shell的一个版本已经写完了，用net：：ftp，遇到不少问题，请问直接用ftp命令怎么样使用？就像直接使用ls -lt把文件和目录列表保存本地文件

longbow0

windows 的 ftp 参数

1. 
   
2. c:\> ftp --help
   
3. 
   
4. Transfers files to and from a computer running an FTP server service
   
5. (sometimes called a daemon). Ftp can be used interactively.
   
6. 
   
7. FTP [-v] [-d] [-i] [-n] [-g] [-s:filename] [-a] [-w:windowsize] [-A] [host]
   
8. 
   
9.   -v             Suppresses display of remote server responses.
   
10.   -n             Suppresses auto-login upon initial connection.
    
11.   -i             Turns off interactive prompting during multiple file
    
12.                  transfers.
    
13.   -d             Enables debugging.
    
14.   -g             Disables filename globbing (see GLOB command).
    
15.   -s:filename    Specifies a text file containing FTP commands; the
    
16.                  commands will automatically run after FTP starts.
    
17.   -a             Use any local interface when binding data connection.
    
18.   -A             login as anonymous.
    
19.   -w:buffersize  Overrides the default transfer buffer size of 4096.
    
20.   host           Specifies the host name or IP address of the remote
    
21.                  host to connect to.
    
22. 
    
23. Notes:
    
24.   - mget and mput commands take y/n/q for yes/no/quit.
    
25.   - Use Control-C to abort commands.
    

复制代码

用 ftp -s:filename 命令。

87607042

回复 4# longbow0


    我的意思是怎么在perl 中实现：
use Net::FTP;
$ftp =Net::FTP->new($host,Timeout=>30) or die "could not connect\n";
$ftp->login($username,$password) or die "could not login\n";
$ftp->binary;
$ftp->cwd ('/') or die "cannot change directory";

这是使用了Net::FTP模块，现在直接用ftp命令，怎么调用

flw

还是 Net::FTP 吧。