perl腳本執(zhí)行ftp，AIX7和suse10操作系統(tǒng)傳輸碼制問題？

oceanmeng

以下perl腳本執(zhí)行ftp到服務(wù)端（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. }

復(fù)制代碼

同樣perl腳本ftp到服務(wù)端（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).