我需要一种方法来提取某些数据并将其存储在文件中以供审核和迁移。这是我的数据。
network vlan internal-vlan {
description "internal-use"
interfaces {
1.1 { }
1.2 { }
}
MTU {
1500
}
}
network vlan external-vlan {
description "external-use"
interfaces {
2.1 { }
2.2 { }
}
MTU {
1500
}
}
我需要以表格格式提取 VLAN 名称及其描述及其接口详细信息,如下所示。如果我可以使用 bash 脚本或 Perl 来运行此数据文件,我将在 csv 文件中生成输出,并可以打开它进行审核。
更新输入数据和要求(抱歉),如果您注意到有一个没有 MTU 的虚拟 VLAN,因为我希望 MTU 列值为无。
network vlan internal-vlan {
description "internal-use"
interfaces {
1.1 { }
1.2 { }
}
MTU {
1500
}
}
network vlan external-vlan {
description "external-use"
interfaces {
2.1 { }
2.2 { }
}
MTU {
1500
}
}
network vlan dummy-vlan {
description "dummy-use"
interfaces {
1.1 { }
}
}
network interface 1.1 {
Status {
UP
}
}
network interface 1.2 {
Status {
UP
}
}
network interface 2.1 {
Status {
DOWN
}
}
network interface 2.2 {
Status {
UP
}
}
答案1
这实际上是一个完美的用途铊-- 该数据是有效的 Tcl 语法,因此我们只需要定义一个network
函数,我们就有一个有效的 DSL:
#!/usr/bin/env tclsh
proc network {_ name data} {
set values [lmap val [concat $name [dict values $data]] {
format {"%s"} [regsub -all {\s+} [string trim $val] " "]
}]
puts [join $values ,]
}
puts {"Vlan","Description","Interfaces","MTU"}
source [lindex $argv 0]
然后
$ tclsh parse.tcl datafile
"Vlan","Description","Interfaces","MTU"
"internal-vlan","internal-use","1.1 { } 1.2 { }","1500"
"external-vlan","external-use","2.1 { } 2.2 { }","1500"
或者安装tcllib让它处理 CSV 输出:
#!/usr/bin/env tclsh
package require csv
proc network {_ name data} {
puts [csv::join [lmap val [concat $name [dict values $data]] {
regsub -all {\s+} [string trim $val] " "
}]]
}
puts [csv::join {Vlan Description Interfaces MTU}]
source [lindex $argv 0]
$ tclsh parse.tcl datafile
Vlan,Description,Interfaces,MTU
internal-vlan,internal-use,1.1 { } 1.2 { },1500
external-vlan,external-use,2.1 { } 2.2 { },1500
对于较旧的 Tcl 8.5 版本,请将此过程添加到程序顶部:
proc lmap {varname list body} {
upvar 1 $varname element
set result {}
foreach element $list {
lappend result [uplevel 1 $body]
}
return $result
}
处理不同的网络类型以及“none”值,并确保字段的顺序正确:
proc network {type name data} {
if {$type ne "vlan"} {
return
}
set values [list $name]
foreach key {description interfaces MTU} {
set val [expr {[dict exists $data $key] ? [dict get $data $key] : "none"}]
lappend values [regsub -all {\s+} [string trim $val] " "]
}
puts [join $values ,]
}
答案2
如果您的输入数据是统一的,您可以尝试以下操作:
#! /usr/bin/perl
use strict;
use warnings;
use feature qw{ say };
say 'Vlan,Description,Interfaces,MTU';
my @interfaces;
while (<>) {
if (/(?|network vlan (.*) \{|description (".*"))/) {
print "$1,";
} elsif (/interfaces/) {
@interfaces = ();
} elsif (/ *(.* \{ \})/) {
push @interfaces, "$1";
} elsif (/MTU \{/) {
my $next = <>;
say "@interfaces,$1" if $next =~ /^ *(.*)/;
}
}
如果允许数据有更多变化(即换行符是可选的),您将必须编写一个真正的解析器。
答案3
假设所有配置的配置文件格式都相似:
使用awk:
$ awk '
BEGIN { printf "Vlan,descripton,interfaces,MTU\n" }
{
if ($1 ~ /^network/ ) { printf $3","; }
if ( $1 ~ /description/ ) { printf $2","; }
if ( $1 ~ /^[0-9]\.[0-9]/ ) { printf $1$2$3" "; }
if ( $1 ~ /^[0-9]{2,}/ ) { printf ","$1"\n"; }
} ' input.conf
Vlan,descripton,interfaces,MTU
internal-vlan,"internal-use",1.1{} 1.2{} ,1500
external-vlan,"external-use",2.1{} 2.2{} ,1500