blob: 7f6ec97f8f06645bf49828d156d61b38319353b3 (
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 ($v4_net, $v6_net, $net_name) = split;
print "\t\"$v4_net\",\n";
}
print ");\n";
print "1;\n";
|
