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