perl - Perl Net::Telnet 检索单行输出
问题描述
使用 Perl 的 Net::Telnet 模块从 upsd 检索数据。我正在尝试实现一个特定的功能,即检索单个 var 的数据。问题是只输出了一行,而那一行是用来匹配Prompt的,所以不输出。
这是原始的telnet:
telnet dns1 3493
Trying 192.168.15.1...
Connected to dns1.
Escape character is '^]'.
get var cp1500 ups.test.result
VAR cp1500 ups.test.result "Done and passed"
Connection closed by foreign host.
这是一些代码:
#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet;
my $host = "dns1";
my $model = "cp1500";
my $bvar = "ups.test.result";
my $t = new Net::Telnet (Timeout => 3, Port => 3493, Prompt => "/VAR $model $bvar/");
$t->open($host);
my @ary = $t->cmd("get var $model $bvar");
print @ary,"\n";
这只是在数组为空时打印换行符。提示匹配,否则会出现超时错误。如何获取该单行输出以在脚本中进行处理?
解决方案
这是我的解决方案,使用 Socket 而不是 Net::Telnet。
#!/usr/bin/perl
use strict;
use warnings;
use Socket;
my $host = 'str003';
my $port = 3493;
my $model = 'cp1350';
my $quer = 'get var';
my $bvar = 'ups.test.result';
my ($sock,$iaddr,$paddr,$send);
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
$send = join(' ',$quer,$model,$bvar);
socket($sock, AF_INET, SOCK_STREAM, 6) or die $!;
connect($sock , $paddr) or die "connect failed : $!";
send($sock , "$send\nlogout\n" , 0);
while (my $line = <$sock>)
{
if ($line =~ /^VAR/) {
print "$line\n";
}
}
close($sock);
这是返回一行数据的地方:
VAR cp1350 ups.test.result "Done and passed"
推荐阅读
- javascript - 在 IE 11 中加载块失败
- codenameone - 代号一首选项/存储权限
- react-native - Expo 和 React Native 中的 wrapItem(...).trimStart
- html - 做
- 之间总是需要嵌套
- 和
- ? 不是
- 之间总是需要嵌套
- python-3.x - 请求 HTTPConnectionPool 读取超时永远不会恢复
- sql - 删除空行,其中列是动态子选择的
- laravel - 尝试启动新的 laravel 项目,得到 '451 Unavailable For Legal Reasons'
- javascript - 没有 .bind(this) 的 FlowType 不会对 Mobx Flow 函数进行类型检查
- c# - 使用接口将实体映射到 dto
- laravel - 获取列值不超过 7 的标签的帖子