只接用多行匹配就可以了。
/ /ms
大家好！我现在使用正则表达式找到了要匹配的行，但是，需要验证的是这个匹配行的第二行，比如内容如下：+192.168.0.1:http upsession enabled priority 0 ratio 50xxxxx xxxxx+192.168.0.5:ftp downsession disabled priority 0 ratio 50我要找到这个ip地址，并确认是否为enable状态，然后，我才能做动作。在linux的shell中，可以用grep -A 2来匹配，在perl中是否有类似的？ 或者语句应该怎么完成？谢谢！--
gary.jsz@gmail.com
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
设置debug之后，显示如下：DA-test-x64: Reading configuration data /root/.ssh/configDA-test-x64: Reading configuration data /etc/ssh_configDA-test-x64: Allocated local port 1022.DA-test-x64: Connecting to 192.168.10.88, port 22.DA-test-x64: Remote protocol version 2.0, remote software version OpenSSH_5.1DA-test-x64: Net::SSH::Perl Version 1.34, protocol version 2.0..A-test-x64: No compat match: OpenSSH_5.1DA-test-x64: Connection established.DA-test-x64: Sent key-exchange init (KEXINIT), wait response.DA-test-x64: Algorithms, c->s: 3des-cbc hmac-sha1 noneDA-test-x64: Algorithms, s->c: 3des-cbc hmac-sha1 noneDA-test-x64: Entering Diffie-Hellman Group 1 key exchange.DA-test-x64: Sent DH public key, waiting for reply.DA-test-x64: Received host key, type 'ssh-dss'.DA-test-x64: Host '192.168.10.88' is known and matches the host key.DA-test-x64: Computing shared secret key.DA-test-x64: Verifying server signature.DA-test-x64: Waiting for NEWKEYS message.DA-test-x64: Send NEWKEYS.DA-test-x64: Enabling encryption/MAC/compression.DA-test-x64: Sending request for user-authentication service.DA-test-x64: Service accepted: ssh-userauth.DA-test-x64: Trying empty user-authentication request.DA-test-x64: Authentication methods that can continue: publickey,keyboard-interactive.DA-test-x64: Next method to try is publickey.Permission denied at test.ssh.pl line 6怎么会读取.ssh/config文件和/etc/ssh_config文件？在 2012年7月19日 下午12:44，Fayland Lam <fayland@gmail.com>写道：
you can add debug => 1 see what happens. Thanks
2012/7/19 Gary Jsz <gary.jsz@gmail.com>:
> --> 大家好！
>
> 今天测试Net::SSH::Perl模块，代码内容如下：
>
> #!/usr/bin/perl -w
> use strict;
> use Net::SSH::Perl;
>
> my $ssh = Net::SSH::Perl -> new('192.168.10.88', protocol=>2);
> $ssh->login('gary', 'linux');
> $ssh->cmd("ls -al /tmp/");
>
>
>
> 执行的时候报权限问题，全部信息如下：
>
> Permission denied at test.ssh.pl line 6
>
>
>
> 还请大家给指点一二，谢谢！
>
>
> --
> gary.jsz@gmail.com
>
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
Fayland Lam // http://www.fayland.org/
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
gary.jsz@gmail.com
you can add debug => 1 see what happens. Thanks
2012/7/19 Gary Jsz <gary.jsz@gmail.com>:
> --> 大家好！
>
> 今天测试Net::SSH::Perl模块，代码内容如下：
>
> #!/usr/bin/perl -w
> use strict;
> use Net::SSH::Perl;
>
> my $ssh = Net::SSH::Perl -> new('192.168.10.88', protocol=>2);
> $ssh->login('gary', 'linux');
> $ssh->cmd("ls -al /tmp/");
>
>
>
> 执行的时候报权限问题，全部信息如下：
>
> Permission denied at test.ssh.pl line 6
>
>
>
> 还请大家给指点一二，谢谢！
>
>
> --
> gary.jsz@gmail.com
>
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
Fayland Lam // http://www.fayland.org/
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2012/7/19 Gary Jsz <gary.jsz@gmail.com>:
> 大家好！
>
> 今天测试Net::SSH::Perl模块，代码内容如下：
>
> #!/usr/bin/perl -w
> use strict;
> use Net::SSH::Perl;
>
> my $ssh = Net::SSH::Perl -> new('192.168.10.88', protocol=>2);
> $ssh->login('gary', 'linux');
> $ssh->cmd("ls -al /tmp/");
>
>
>
> 执行的时候报权限问题，全部信息如下：
>
> Permission denied at test.ssh.pl line 6
>
>
>
> 还请大家给指点一二，谢谢！
>
>
> --
> gary.jsz@gmail.com
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
Fayland Lam // http://www.fayland.org/
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
他少加了个[OT]吧。
On 2012年07月10日 11:02, 金明 wrote:
有perl啥事吗？
On 7月6日, 上午9时56分, Yi Zhu <zhuyi.1986.zh...@gmail.com> wrote:
百度基础架构部如下职位热招：
数据平台架构师
http://hr.baidu.com/jobPages/jobDetail_3842.html
超大规模数据平台架构师（上海）
http://hr.baidu.com/jobPages/jobDetail_4188.html
超大规模数据平台数据分析师
http://hr.baidu.com/jobPages/jobDetail_3845.html
如果说百度的产品线是一座大楼，那么承载超大规模数据存储、计算、挖掘的基础架构部
就是这座大楼的最坚实地基。每天数十亿的PV、数百亿特征的大规模机器学习、数十P的大
规模离线计算，以及层出不穷的互联网创新，我们面临着全方位的挑战。从最底层的硬件
、内核技术到高效率的编程框架，从安全防攻击到数据挖掘、智能CTR预估，从IDC机房建
设到云端基础服务，我们的工作让我们的系统、我们的服务简单可依赖！
【注】有意向的同学请将最新简历发送到 joinba...@baidu.com邮件标题请标注：应聘基
础架构部- 相关职位-工作地点- 信息来源。或者通过如下职位链接了解部门更多职位并可
以进行在线申请。（所有职位要求工作经验两年以上）
http://hr.baidu.com/static/jobList.html?v=%25E5%259F%25BA%25E7%25A1%2...
如果你热爱底层技术，追寻技术的本源；
如果你对技术满怀热情，对挑战充满信心；
那么，基础架构部就是你的最佳选择！
百度欢迎你的加入：）！
百度招聘相关链接
【百度社会招聘系统首页】http://hr.baidu.com/static/index.html
【百度社会招聘官方微博】http://e.weibo.com/baidujob
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
博文
所有评论
