diff options
Diffstat (limited to 'mbd/make-mbd-nets.pl')
-rwxr-xr-x | mbd/make-mbd-nets.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/mbd/make-mbd-nets.pl b/mbd/make-mbd-nets.pl deleted file mode 100755 index 7f6ec97..0000000 --- a/mbd/make-mbd-nets.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -I /root/tgmanage/ -use strict; -use warnings; - -unless (@ARGV > 0) { - print "No arguments. Need netlist.txt.\n"; - exit 1; -} - -my $n = open(NETLIST, "$ARGV[0]") or die ("Cannot open netlist.txt"); - -print "# Autogenerated. Do not touch!\n"; -print "package Config;\n"; -print "our \@networks = (\n"; - -while(<NETLIST>) { - next if /^(.*#|\s+$)/; # skip if comment, or blank line - - chomp; - my ($v4_net, $v6_net, $net_name) = split; - - print "\t\"$v4_net\",\n"; -} - -print ");\n"; -print "1;\n"; |