难道是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;
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
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>
6. LIBSSH2_CHANNEL * libssh2_scp_recv(LIBSSH2_SESSION *session, const char *path, struct stat *sb);
9. DESCRIPTION
10. session - Session instance as returned by libssh2_session_init_ex(3)
12. path - Full path and filename of file to transfer. That is the remote file name.
14. sb - Populated with remote file's size, mode, mtime, and atime
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.
22. LIBSSH2_ERROR_SCP_PROTOCOL -
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)
29. This HTML page was made with roffit.

复制代码

mathematica

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

mathematica

你居然用perl

mathematica

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