perl脚本执行ftp，AIX7和suse10操作系统传输码制问题？

oceanmeng

以下perl脚本执行ftp到服务端（AIX7）获取文件，bin写在login前面了，语法是否正确？ 若不正确，是不是到AIX上默认用bin下载？

1. my $ftp = Net::FTP -> new ( $ftpServerIP );
   
2. if ( defined($ftp) && $ftp )
   
3. {
   
4.         $ftp -> binary();
   
5.         $ftp -> login( $ftpServerUserName, $ftpServerPassword );
   
6.         $ftp -> cwd( $ftpServerFilePath );
   
7.         $ftp -> pasv(); # passive mode
   
8.         @ftpServerFileList = $ftp -> ls($ftpServerFilePattern);
   
9. 
   
10.         foreach my $ftpServerFileName (@ftpServerFileList)
    
11.         {
    
12.                 if( $ftpServerFileName =~ /$todayYMD/ )
    
13.                 {
    
14.                         print "Debug: Get File Name From CCF Server: $ftpServerFileName .\n";
    
15.                         $ftp->get("$ftpServerFileName");
    
16.                 }
    
17.         }
    
18.         $ftp -> quit;
    
19. }

复制代码

同样perl脚本ftp到服务端（suse10）获取文件是不是默认用asc下载？

yybmsrs

http://search.cpan.org/~shay/libnet-1.25/Net/FTP.pm

The protocol also defines several standard translations which the file can undergo during transfer. These are ASCII, EBCDIC, binary, and byte. ASCII is the default type, and indicates that the sender of files will translate the ends of lines to a standard representation which the receiver will then translate back into their local representation. EBCDIC indicates the file being transferred is in EBCDIC format. Binary (also known as image) format sends the data as a contiguous bit stream. Byte format transfers the data as bytes, the values of which remain the same regardless of differences in byte size between the two machines (in theory - in practice you should only use this if you really know what you're doing).