[求助]使用Net::FTP通过FTP上传文件到服务器后文件损坏

fr21cn

我用perl写了一个自动备份的脚本，通过Net::FTP上传文件到ftp服务器来备份文件。脚本执行正常，并且文件也上传到ftp服务器上。本来以为一切ok，但是在服务器端解压缩上传过来的文件时，发现文件已经损坏。对比本地文件和服务器端文件时发现本地文件517k，服务器端的文件有536K。直接用ftp指令上传文件，不会有这样的问题。

    我想是不是ftp服务器的问题，后来改用windows+ serv-U 问题依旧。更改type为ascll 、 binary、byte 还是不行，还试过主动、被动模式，也不能解决问题。

我想是不是程序的问题，我在下面贴出了我的程序代码，请大虾指教：

系统环境：
1. redhat as 3.0
2. perl 5.8.0
3. ftp server: vsftp / serv-U

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. ##################
   
5. # Import modules #
   
6. ##################
   
7. 
   
8. use Net::FTP;
   
9. 
   
10. 
    
11. ########################
    
12. # Variable declaration #
    
13. ########################
    
14. 
    
15. my $TAR = "/bin/tar";
    
16. my $RM = "/bin/rm";
    
17. 
    
18. 
    
19. my ($y, $m, $d)  = (localtime(time))[5,4,3];
    
20. my $date         = sprintf "%d%02d%02d",
    
21.                      1900+$y, $m+1, $d;
    
22. 
    
23. my @DIRS         = qw(/etc/passwd /etc/shadow /var/log/boot.log
    
24.                       /var/log/lastlog /var/log/messages
    
25.                       /var/log/secure /var/log/secure
    
26.                       /var/log/xferlog
    
27.                    );
    
28. 
    
29. my $BACKUP_DIR   = "/tmp/";
    
30. my $BACKUP_FILENAME  = "daily_".$date.".tar.gz";
    
31. 
    
32. my $ftp_hostname = "192.168.x.xx";
    
33. my $ftp_username = "******";
    
34. my $ftp_password = "******";
    
35. my $ftp_dir = "/backup";
    
36. 
    
37. 
    
38. #######################
    
39. # backup files by tar #
    
40. #######################
    
41. 
    
42. system($TAR, "zcvf", $BACKUP_DIR.$BACKUP_FILENAME,
    
43.        @DIRS) and die "$TAR failed ($!)";
    
44. 
    
45. 
    
46. 
    
47. #############################
    
48. # Upload backup file by ftp #
    
49. #############################
    
50. 
    
51. 
    
52. $ftp = Net::FTP->;new($ftp_hostname, Passive =>; 1);
    
53. $ftp->;login($ftp_username,$ftp_password);
    
54. $ftp->;cwd($ftp_dir);
    
55. $ftp->;put($BACKUP_DIR.$BACKUP_FILENAME);
    
56. $ftp->;quit();
    
57. 
    
58. 
    
59. ######################
    
60. # Delete backup file #
    
61. ######################
    
62. 
    
63. #system($RM, "-f", $BACKUP_DIR.$BACKUP_FILENAME)
    
64. #        and die "$RM failed ($!)";
    

复制代码

fr21cn

高手大仁帮忙调一下,小弟急用阿！

apile

沒用過Net::Ftp但是你應該用binary 的方式來ftp資料..
default是ascii  很容易會造成很多問題...

netyoungster

程序中如何体现用bin方式的，好像没有见到

melonm

$ftp->;cwd($ftp_dir);

$ftp->;binary; ##### set binary mode

$ftp->;put($BACKUP_DIR.$BACKUP_FILENAME);