[thirdparty/bird.git] / misc / cisco2list

#!/usr/bin/perl
#
#  Convert Cisco routing table listing to list of prefixes
#

$loc = ($ARGV[0] eq "-l");	# Print only local prefixes

while (<STDIN>) {
	($loc ? /^[OR]\s/ : /^B\s/) || next;
	/^[ORB]( E[12])?\s+(\d+\.\d+\.\d+\.\d+)(\s|\/\d+\s)/ || die "Cannot parse $_";
	$net = $2;
	$len = $3;
	if ($len =~ /^\s*$/) {
		# Magic rule :)
		$len = ($net =~ /\.0$/) ? 24 : 32;
	}
	$len =~ s/^\///;
	$net =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
	printf "%02x%02x%02x%02x/%d\n", $1, $2, $3, $4, $len;
}
Commit	Line	Data
87b60bf7 MM	1	#!/usr/bin/perl
	2	#
	3	# Convert Cisco routing table listing to list of prefixes
	4	#
	5
	6	$loc = ($ARGV[0] eq "-l"); # Print only local prefixes
	7
	8	while (<STDIN>) {
	9	($loc ? /^[OR]\s/ : /^B\s/) \|\| next;
	10	/^[ORB]( E[12])?\s+(\d+\.\d+\.\d+\.\d+)(\s\|\/\d+\s)/ \|\| die "Cannot parse $_";
	11	$net = $2;
	12	$len = $3;
	13	if ($len =~ /^\s*$/) {
	14	# Magic rule :)
	15	$len = ($net =~ /\.0$/) ? 24 : 32;
	16	}
	17	$len =~ s/^\///;
	18	$net =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
	19	printf "%02x%02x%02x%02x/%d\n", $1, $2, $3, $4, $len;
	20	}