Re: [PERL] Net::FTP

["Simon B. Nielsen" <sslug@sslug>]

Fandt ud af det - der var $ftp->type('binary') der skulle hedde $ftp->binary
:-)

"Simon B. Nielsen" <sslug@sslug> wrote in message
news:sslug@sslug
> Jeg prøver at bruge Net::FTP til at overføre en backup fra en server til
en
> anden. Problemet er bare at der kun bliver overført en lille del og så
> stoppes der. Jeg gør følgende:
>
> use strict;
> use Net::FTP;
>
> my($directory) = "C:\\MSSQL7\\BACKUP\\datadir\\";
> opendir(DIR, $directory) || die($directory." not found");
> my(@dir) = grep{-f $directory.$_} readdir DIR;
> closedir DIR;
>
> @dir = reverse(sort(@dir));
> my($file) = $dir[0];
>
> my($ftp) = Net::FTP->new("xxx.xxx.xxx.xxx", Debug => 0);
> $ftp->login("xxxxx",xxxxx);
> $ftp->type('binary');
> $ftp->put($directory.$file);
> $ftp->quit;
>
> Filen der skal overføres fylder næsten 50 MB, men der bliver overført 4k.
Er
> der nogen der ved hvorfor det går galt? Jeg har prøvet uden $ftp->quit;,
men
> det ændrede ikke noget.
>
> Simon
>
>
>