如何输入“空格”“回车”等字符？

hqyus

使用Net::Telnet登录Juniper交换机获取信息。总是不成功，找出原因是因为交换机输出了“--more--"导致的。 我想继续输出一个空格，应该就可以继续下去，但是如何输入”空格“呢？ 请教各位。输入\s肯定不是不行了。

代码如下：
$t = new Net::Telnet (Timeout => 10,
#                               Prompt => '/hostname/',
                            output_log => OFH,
                              dump_log => DFH, );
$t->open($host);
$t->waitfor('/Username:.*$/');
$t->print($username);
$t->waitfor('/Password:.*$/');
$t->print($passwd);
$t->waitfor('/hostname/');
@lines = $t->print("show version all");
$t->waitfor('/--More--/');
$t->print('\s');
在dump_log里面看到如下信息：

< 0x00080: 20 20 20 20  20 2d 2d 2d  20 20 20 20  20 20 20 20       ---
< 0x00090: 20 2d 2d 2d  20 20 20 20  2d 2d 2d 20  20 20 20 20   ---    ---
< 0x000a0: 20 20 20 20  20 2d 2d 2d  20 20 20 20  20 20 20 20       ---
< 0x000b0: 20 20 20 20  20 20 2d 2d  2d 20 20 20  20 20 20 0d        ---      .
< 0x000c0: 0a 20 2d 2d  4d 6f 72 65  2d 2d 20                  . --More--
> 0x00000: 5c 73 0d 0a                                         \s..

104359176

1. " " or chr(32)

复制代码

\s is only valid in regexp expression

hqyus

在交换机上先运行命令 terminal length 0 就不出现 --more-- 了。

谢谢楼上的， 你的建议我以后再试试。