使用Perl提取内容
使用Perl提取内容
提问于 2012-06-22 11:49:49
我想用Perl编写一个解析脚本，打印这些数据中的所有“接口名称”：
interfaces.ifTable.ifEntry.ifDescr.1 : OCTET STRING- (ascii): (hex): length = 30
0: 53 6f 66 74 77 61 72 65 20 4c 6f 6f 70 62 61 63 Software Loopbac
16: 6b 20 49 6e 74 65 72 66 61 63 65 20 31 00 -- -- k Interface 1...
interfaces.ifTable.ifEntry.ifDescr.2 : OCTET STRING- (ascii): (hex): length = 20
0: 57 41 4e 20 4d 69 6e 69 70 6f 72 74 20 28 53 53 WAN Miniport (SS
16: 54 50 29 00 -- -- -- -- -- -- -- -- -- -- -- -- TP).............
interfaces.ifTable.ifEntry.ifDescr.3 : OCTET STRING- (ascii): (hex): length = 20
0: 57 41 4e 20 4d 69 6e 69 70 6f 72 74 20 28 4c 32 WAN Miniport (L2
16: 54 50 29 00 -- -- -- -- -- -- -- -- -- -- -- -- TP).............我想提取出所有三个接口的名称，如(“软件环回接口1"，”广域网微型端口(SSTP)"，“广域网微型端口(L2TP)")，并做进一步的处理。我试着使用正则表达式，但没有使用luch。有什么简单的方法可以做到这一点吗？提前感谢！
回答 4
Stack Overflow用户
回答已采纳
发布于 2012-06-22 12:30:05
这是另一个肮脏的perl脚本。随心所欲地将数据读入$text。正则表达式查找每个十六进制转储行的模式。然后，连接线将十六进制值重新组合为字符串，并将其附加到当前累积的接口名称。mttrb的更简单。;)
$text =<<EOM;
interfaces.ifTable.ifEntry.ifDescr.1 : OCTET STRING- (ascii): (hex): length = 30
0: 53 6f 66 74 77 61 72 65 20 4c 6f 6f 70 62 61 63 Software Loopbac
16: 6b 20 49 6e 74 65 72 66 61 63 65 20 31 00 -- -- k Interface 1...
interfaces.ifTable.ifEntry.ifDescr.2 : OCTET STRING- (ascii): (hex): length = 20
0: 57 41 4e 20 4d 69 6e 69 70 6f 72 74 20 28 53 53 WAN Miniport (SS
16: 54 50 29 00 -- -- -- -- -- -- -- -- -- -- -- -- TP).............
interfaces.ifTable.ifEntry.ifDescr.3 : OCTET STRING- (ascii): (hex): length = 20
0: 57 41 4e 20 4d 69 6e 69 70 6f 72 74 20 28 4c 32 WAN Miniport (L2
16: 54 50 29 00 -- -- -- -- -- -- -- -- -- -- -- -- TP).............
EOM
$interface = "";
foreach $line (split(/\n/, $text)) {
next unless $line =~ /\b(\d+):\s+((?:[0-9a-fA-F-]{2} ){16})/;
if ($1 == 0) {
print "$interface\n" if $interface;
$interface = "";
}
$interface .= join('', map { chr(hex($_)) } grep { $_ ne '--' && $_ ne '00' } split(/ /, $2));
}
print "$interface\n" if $interface;为了解释连接线，该行中发生了以下事情。
- split(/ /，$2) -从正则表达式中提取第二个已保存的组(十六进制字符)，并将其拆分为包含每对数字的数组。
- grep{ $_ ne '--‘&& $_ ne '00’}-查看数字对数组，筛选出'--‘和'00’条目，仅保留有效值。
- map{ chr( hex ($)) }-针对每个筛选的对运行表达式，$是正在处理的对。十六进制将其从十六进制()字符串解析为一个数字，然后chr()获取该数字并将其转换为相应的character.
- join(''，...) -获取映射创建的字符数组并从中创建单个字符串。'‘是用来分隔每个数组项的字符串，在本例中为nothing。
Stack Overflow用户
发布于 2012-06-22 12:16:17
下面是一个快速而肮脏的perl脚本，它将在给定示例输入的情况下执行您想要的操作。它不能很好地处理输入格式的变化。我已经编写了从文件中获取输入的脚本，您将需要更改此设置。
open(INPUT, "interfaces.txt");
my $interface;
while(<INPUT>) {
if (/^\s*0:/) {
$interface = substr($_, 60, 16);
} elsif (/^\s*16:/) {
$interface .= substr($_, 61, 16);
$interface =~ s/\.+$//;
print $interface, "\n";
}
}
close(INPUT);Stack Overflow用户
发布于 2012-06-22 13:08:07
通过使用段落模式(设置$/ = "")，您可以读取每条记录并单独处理各行。在空格上使用固定的LIMIT来抓取最后一个字段似乎是最容易的，因为十六进制数字的数量似乎是恒定的，而我们想要最后一个字段。
use strict;
use warnings;
use Data::Dumper;
$/ = ""; # paragraph mode keeps lines together
while (<DATA>) {
chomp; # removes two newlines after we changed $/
my ($hdr, @data) = split /\n/; # header + 2 lines
my ($interface, @nums) = getdata(@data);
print Dumper $interface;
}
sub getdata {
my (@hex, $str);
my @data = @_;
for (@data) {
push @hex, split(' ', $_, 18); # LIMIT set to 18
$str .= pop @hex; # last field is our string
}
return $str, @hex; # return everything, why not?
}
__DATA__
interfaces.ifTable.ifEntry.ifDescr.1 : OCTET STRING- (ascii): (hex): length = 30
0: 53 6f 66 74 77 61 72 65 20 4c 6f 6f 70 62 61 63 Software Loopbac
16: 6b 20 49 6e 74 65 72 66 61 63 65 20 31 00 -- -- k Interface 1...
interfaces.ifTable.ifEntry.ifDescr.2 : OCTET STRING- (ascii): (hex): length = 20
0: 57 41 4e 20 4d 69 6e 69 70 6f 72 74 20 28 53 53 WAN Miniport (SS
16: 54 50 29 00 -- -- -- -- -- -- -- -- -- -- -- -- TP).............
interfaces.ifTable.ifEntry.ifDescr.3 : OCTET STRING- (ascii): (hex): length = 20
0: 57 41 4e 20 4d 69 6e 69 70 6f 72 74 20 28 4c 32 WAN Miniport (L2
16: 54 50 29 00 -- -- -- -- -- -- -- -- -- -- -- -- TP).............输出：
$VAR1 = 'Software Loopback Interface 1...';
$VAR1 = 'WAN Miniport (SSTP).............';
$VAR1 = 'WAN Miniport (L2TP).............';页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/11149928
复制相关文章
相似问题
腾讯云开发者
