blob: 6af76f009d07615a0c7c88d20d050e4109a36c2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/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 ($network, $prefix, $switchname, undef) = split;
print "\t\"$network/$prefix\",\n";
}
print ");\n";
print "1;\n";
|
