Hi Daniel,
here's a small script to extract the mibs:
#!/usr/bin/perl -w
# Patrick Koppen, GPLv3
# v0.1, 29.03.2017
#
# Usage: extract_exos_mibs < 22.2.1.5_MIB.txt
use strict;
use warnings;
my $line;
my $header="";
my $out;
my $filename;
while(<>) {
$line=$_;
if($line=~m/^\s*([A-Za-z0-9\-]+)\s*DEFINITIONS\s*::=\s*BEGIN\s*$/) {
$filename=$1 . ".txt";
open($out,">", $filename) || die;
print $out $header;
}
if($out) {
print $out $line;
} else {
$header.=$line;
}
if($line=~m/^\s*END\s*$/) {
$header="";
close $out;
undef $out;
}
}
close($out) if($out && filno($out));
Regards
Patrick