in reply to Batch Router
First and foremost, let me congradulate you on your name. It gives me a distrubing mental impression that I do not want to think to long about
Now that the is over, if there would be one thing that I would do here, it would be to write a 'Print' function. If you need to send everything to STDOUT, then you can lessen your keystrokes by doing something like ...
Then you could change all of those instances of...sub Print{ my $string = shift(); print STDOUT "$string\n"; }
toprint STDOUT "Batch Router - the batch router configurator\n"; print STDOUT "\n"; print STDOUT "List of options and their functions:\n";
Print "Batch Router - the batch router configurator"; Print(); #Empty line Print "List of options and their functions:";
This is merely a suggestion.
Kristofer Hoch
Damn it Jim, I'm a doctor not a physician
In Section
Cool Uses for Perl