难道是perl中的bug ?

G-Spider

试了下perl中的Net::SSH2模块，似乎有个bug。
为了在windows平台玩一下SSH2，在本机上安装了个Bitvise SSH Server (WinSSHD)。
调用scp_get，发现Net::SSH2::scp_get得到的文件大小不正确，本应该为9字节，得到的却为0，奇怪的是atime的值与size相符。
问题行：my $chan = $self->_scp_get($remote, \%stat);
而scp_put没有这个问题，使用了stat方式，得到正确的文件相关的信息。

1. sub scp_get {
   
2.     my ($self, $remote, $path) = @_;
   
3.     $path = basename $remote if not defined $path;
   
4.     my %stat;
   
5.     my $chan = $self->_scp_get($remote, \%stat);
   
6.     return unless $chan;
   
7. 
   
8.     print join(":",%stat);
   
9.     print "\nfile size=",$stat{size};
   
10.     <>;

复制代码

...
===================$ssh2->debug(1)后的输出============================

1. libssh2_scp_recv(ss->session, path, &st) -> 0x2e995e4
   
2. uid:0:mtime:0:mode:420:atime:9:size:0:gid:00
   
3. Net::SSH2::Channel::read(size = 1, ext = 0)
   
4. - read 1 bytes
   
5. - read 1 total
   
6. Net::SSH2::Channel::DESTROY
   
7. 
   
8. Net::SSH2::DESTROY object 0x21d1664

复制代码

=================================================================
api参考:

1. NAME
   
2. libssh2_scp_recv - request a remote file via SCP
   
3. SYNOPSIS
   
4. #include <libssh2.h>
   
5. 
   
6. LIBSSH2_CHANNEL * libssh2_scp_recv(LIBSSH2_SESSION *session, const char *path, struct stat *sb);
   
7. 
   
8. 
   
9. DESCRIPTION
   
10. session - Session instance as returned by libssh2_session_init_ex(3)
    
11. 
    
12. path - Full path and filename of file to transfer. That is the remote file name.
    
13. 
    
14. sb - Populated with remote file's size, mode, mtime, and atime
    
15. 
    
16. Request a file from the remote host via SCP.
    
17. RETURN VALUE
    
18. Pointer to a newly allocated LIBSSH2_CHANNEL instance, or NULL on errors.
    
19. ERRORS
    
20. LIBSSH2_ERROR_ALLOC - An internal memory allocation call failed.
    
21. 
    
22. LIBSSH2_ERROR_SCP_PROTOCOL -
    
23. 
    
24. LIBSSH2_ERROR_EAGAIN - Marked for non-blocking I/O but the call would block.
    
25. SEE ALSO
    
26. libssh2_session_init_ex(3) libssh2_channel_open_ex(3)
    
27. 
    
28. 
    
29. This HTML page was made with roffit.

复制代码

mathematica

你上传一个文本文件也好呀!难道你没发现论坛经常把代码解析错误吗?
这也是我经常不用代码写公式而用图片的原因之一!

mathematica

你居然用perl

mathematica

我最不喜欢没有注释的程序