[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
 
[an error occurred while processing this directive] [an error occurred while processing this directive]
Skåne Sjælland Linux User Group - http://www.sslug.dk Home   Subscribe   Mail Archive   Forum   Calendar   Search
MhonArc Date: [Date Prev] [Date Index] [Date Next]   Thread: [Date Prev] [Thread Index] [Date Next]   MhonArc
 

Re: [PERL] Net::FTP



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
>
>
>




 
Home   Subscribe   Mail Archive   Index   Calendar   Search

 
 
Questions about the web-pages to <www_admin>. Last modified 2005-08-10, 19:54 CEST [an error occurred while processing this directive]
This page is maintained by [an error occurred while processing this directive]MHonArc [an error occurred while processing this directive] # [an error occurred while processing this directive] *