Для тех, у кого проблемы с vtysh -c "show run".
my $ip_cidr=new Net::CIDR::Lite;
my $ip_cidr_null=new Net::CIDR::Lite;
my $ip6_cidr=new Net::CIDR::Lite;
my $ip6_cidr_null=new Net::CIDR::Lite;
my @ip_list;
my @ip6_list;
my @ip_list_null;
my @ip6_list_null;
my $net_file_hash_old=get_md5_sum($bgpd_file);
my $n = 0;
my @show_run;
my $zebra;
my $bgpd;
my $read;
my $Zebra_FILE = '/etc/quagga/zebra.conf';
my $Bgpd_FILE = '/etc/quagga/bgpd.conf';
#if ( $? == -1 )
#{
# $logger->error("Error while executed cmd $cmd: $!, skip soft Quagga reconfiguration");
# $update_soft_quagga=0;
#}
#Zebra
open ($zebra, $Zebra_FILE) or die "Could not open file '$Zebra_FILE' $!";
while ($read=<$zebra>){
$n++;
push(@show_run, $read);
#$logger->info("$read");
}
close $zebra;
#Bgpd
open ($bgpd, $Bgpd_FILE) or die "Could not open file '$Bgpd_FILE' $!";
while ($read=<$bgpd>){
$n++;
push(@show_run, $read);
}
close $bgpd;
$logger->info("Readed $n lines from files");
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sub analyse_quagga_networks
{
my $need_save_config=0;
my %ips_to_add = %ip_s;
my %ips6_to_add = %ip6_s;
my %ips_to_add_null=%ip_s_null;
my %ips6_to_add_null=%ip6_s_null;
my %ips_to_del;
my %ips6_to_del;
my %ips_to_del_null;
my %ips6_to_del_null;
foreach my $line (@show_run)
{
next if ($line =~ /^\s*\!/);
if($line =~ /^\s*network\s+(.+)\/(\d+)/)
{
diff делать лень
Принцип, думаю, понятен.
