[Ssh-sftp-perl-users] Transferring Larger Size Files Using SSH2
Brought to you by:
dbrobins
Menu
▾
▴
[Ssh-sftp-perl-users] Transferring Larger Size Files Using SSH2
|
From: Hardik V. <har...@ho...> - 2006-03-09 16:33:20
|
<html><div style='background-color:'><P><FONT size=2>my $fileo = $sf->open("$SOURCE_DIR/$fname");</P>
<DIV>
<DIV class=RTE>
<P>if(defined($fileo))</P>
<P>{</P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<P>print "Start transferring file $fname from $SOURCE_DIR.\n";</P>
<P>my %fstat = $sf->stat("$SOURCE_DIR/$fname");</P>
<P>my $fsize = $fstat{size};</P>
<P>my $fbuf;</P>
<P>my $readSize = $fileo->read($fbuf, $fsize);</P>
<P>open(DEST, ">$fname");</P>
<P>print "File\n\n", $fbuf, "\n";</P>
<P>print DEST $fbuf;</P>
<P>close(DEST);</P>
<P></P>
<P>$del_stat = $sf->unlink("$SOURCE_DIR/$fname");</P>
<P>if ($del_stat ne 1)</P>
<P>{</P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<P>print "Error deleting file $fname.\n";</P></BLOCKQUOTE>
<P>} </P></BLOCKQUOTE>
<P>}</P>
<P>I am having problems transferring a large file (~244KB) with the code above. Note: $sf is a SSH2 Secure FTP object. This code works for transferring smaller size files but does not for larger ones. Does anyone know how I can transfer larger files using ssh2?</FONT></P></DIV></DIV></div></html>
|
