1use Algorithm::Networksort ':all';
2use Algorithm::Networksort::Best ':all';
3use strict;
4use warnings;
5
6my $inputs;
7my $name;
8
9if (@ARGV == 0)
10{
11	warn "best.pl <input size>\nbest.pl <key name>\n\nPlease give an input size or a key name.";
12	exit(0);
13}
14
15if ($ARGV[0] =~ /^[0-9]+/)
16{
17	$inputs = $ARGV[0];
18	my(@names) = nw_best_names($inputs);
19	if (@names == 0)
20	{
21		print "No 'best' networks available for size $inputs.\n";
22		exit(0);
23	}
24
25	print "Available names for size $inputs: ", join(", ", @names), "\n";
26	exit(0);
27}
28
29$name = $ARGV[0] || die "Please use a keyname or a number.";
30
31my $nw = nwsrt_best(name => $name);
32
33print $nw;
34
35exit(0);
36