Net::FTP传输文件后md5码变了？

本帖最后由 leoxqing 于 2010-08-13 17:15 编辑

sub ftptransform()
{
my $ftp_user=shift;
my $ftp_password=shift;
my $ftp_host=shift;
my $ftp_port=shift;
my $localfile=shift;
my $ftp_remotedir=shift;
my $sqlfile=shift;
my $ftp=Net::FTP->new("$ftp_host",Port=>"$ftp_port",Timeout=>30) || die &writelogs('Cannot connect to ftp host');
if(!$ftp->login("$ftp_user","$ftp_password"))
{
  &writelogs("Cannot loggin to ftp host:$ftp_host");
}
else
{
  &writelogs("succeed login into ftp server:$ftp_host");
}

$ftp->cwd($ftp_remotedir);
if (!$ftp->put($localfile,$sqlfile))
{
&writelogs("Failed to put file:$sqlfile");
}
else
{
&writelogs("Succeed put file $sqlfile to ftpserver:$ftp_host");
}
$ftp->quit;
}

使用这个函数传输文件结果发现md5值变了。

[root@jdzz36 backup]# md5sum war_36bfdl_2010-08-13.01.sql
aa340c694e179ccb1372f0b0f8b8363b war_36bfdl_2010-08-13.01.sql   --原来文件的md5值

[root@xsbak juedi36]# md5sum war_36bfdl_2010-08-13.01.sql
fa813064370c063ceee170ef1b6d616a war_36bfdl_2010-08-13.01.sql   --传到服务器md5值改变了！

是asic模式还是bin模式?是否标明下。

回复 兰花仙子


    函数里面没写加上去！我加个binary模式看看！