Net::SCP::Expect无法传大文件的问题【已解决】

dqchen0004

各位高手请帮忙看一下，小弟用NET::SCP::Expect写的自动传送文件的脚本，老是不能传送大文件，传到310-320M的时候就出错了

#!/usr/bin/perl use Net::SCP::Expect; sub scp_file {    my $host = "10.0.0.1";    my $scpe = Net::SCP::Expect->new(auto_yes=>1,timeout=>10,port=>22,host=>$host);    $scpe->login("root", 'password');    $scpe->scp(":/data1/1.gz","/data/"); }

错误日志如下：
Waiting for new data (unlimited seconds)...
spawn id(5): new data.
spawn id(5): read 1024 byte(s).
spawn id(5): Does `...                        |  21MB |  21MB/s | ETA: 00:02:14 |   0%\r1.gz                                  |  42MB |  21MB/s | ETA: 00:02:13 |   1%\r1.gz                                  |  63MB |  21MB/s | ETA: 00:02:11 |   2%\r1.gz                                  |  87MB |  22MB/s | ETA: 00:02:06 |   3%\r1.gz                                  | 111MB |  22MB/s | ETA: 00:02:02 |   3%\r1.gz                                  | 135MB |  22MB/s | ETA: 00:02:00 |   4%\r1.gz                                  | 158MB |  23MB/s | ETA: 00:01:59 |   5%\r1.gz                                  | 182MB |  23MB/s | ETA: 00:01:57 |   6%\r1.gz                                  | 205MB |  23MB/s | ETA: 00:01:55 |   7%\r1.gz                                  | 230MB |  23MB/s | ETA: 00:01:54 |   8%\r1.gz                                  | 254MB |  23MB/s | ETA: 00:01:52 |   8%\r1.gz                                  | 278MB |  23MB/s | ETA: 00:01:50 |   9%\r1.gz                                  | 302MB |  23MB/s | ETA: 00:01:49 |  '
match:
  pattern #1: -re `(?-xism:[Pp]ass.*)'? No.
  pattern #2: -re `(?-xism:\w+.*)'? YES!!
    Before match string: `\r\r\n\r'
    Match string: `1.gz                                  |  21MB |  21MB/s | ETA: 00:02:14 |   0%\r1.gz                                  |  42MB |  21MB/s | ETA: 00:02:13 |   1%\r1.gz                                  |  63MB |  21MB/s | ETA: 00:02:11 |   2%\r1.gz                                  |  87MB |  22MB/s | ETA: 00:02:06 |   3%\r1.gz                                  | 111MB |  22MB/s | ETA: 00:02:02 |   3%\r1.gz                                  | 135MB |  22MB/s | ETA: 00:02:00 |   4%\r1.gz                                  | 158MB |  23MB/s | ETA: 00:01:59 |   5%\r1.gz                                  | 182MB |  23MB/s | ETA: 00:01:57 |   6%\r1.gz                                  | 205MB |  23MB/s | ETA: 00:01:55 |   7%\r1.gz                                  | 230MB |  23MB/s | ETA: 00:01:54 |   8%\r1.gz                                  | 254MB |  23MB/s | ETA: 00:01:52 |   8%\r1.gz                                  | 278MB |  23MB/s | ETA: 00:01:50 |   9%\r1.gz                                  | 302MB |  23MB/s | ETA: 00:01:49 |  '
    After match string: `'
    Matchlist: ()
Calling hook CODE(0x8166b44)...
1.gz                                  | 302MB |  23MB/s | ETA: 00:01:49 |   at /home/bakfile/bin/../lib/5.8.8/Expect.pm line 733
Closing spawn id(5).
at /home/bakfile/bin/../lib/5.8.8/Expect.pm line 1386
        Expect::hard_close('Expect=GLOB(0x8641c7c)') called at /home/bakfile/bin/../lib/5.8.8/Expect.pm line 1575
        Expect:ESTROY('Expect=GLOB(0x8641c7c)') called at ./bakfile.pl line 0
        eval {...} called at ./bak_file.pl line 0
spawn id(5) closed.
Pid 24838 of spawn id(5) terminated, Status: 0x01

[ 本帖最后由 dqchen0004 于 2009-12-14 22:50 编辑 ]

flw

用 Net::OpenSSH 试试。

dqchen0004

问题已经查到了
在5.8.8/Net/SCP/Expect.pm 第182行
$flags .= "-q";  # Always pass this option (no progress meter)

源码中这里使用的是小写的-q,我用的是suse10的机器，查看了scp的帮助后，发现scp的静默模式在suse10中是使用大写的-Q，这样的差异导致了程序在执行的过程中不断的产生输入，Expect自然也就不断的去匹配导致出错，将此处修改后问题解决，传了2G的文件都没问题

ermu

很好的经验啊，学习了

xmature

回复 1# dqchen0004


    你好，你的日志是在哪里呀，我是个菜鸟，也写了个脚本，但是看不到日志，也不知道在哪里调试，