perl - Net::FTP having trouble uploading ZIP-archives? -
i'm trying build perl-script zips directory , uploads ftp-server. got zipping-part working, unfortunately zip-files 'destroyed', when uploaded ftp-server (error when opening: 'unexpected end of archive').
am doing wrong here?
my $ftp = net::ftp->new($host, debug => 0) or die "couldn't connect $host: $!"; $ftp->binary(); $ftp->login($user, $password) or die "couldn't login: $!"; $stat = $ftp->put($filename) or die "couldn't upload file: $!";
Comments
Post a Comment