http://qs321.pair.com?node_id=282033


in reply to Batch Router

crackotter,

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 ...

sub Print{ my $string = shift(); print STDOUT "$string\n"; }
Then you could change all of those instances of...
print STDOUT "Batch Router - the batch router configurator\n"; print STDOUT "\n"; print STDOUT "List of options and their functions:\n";
to
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

Replies are listed 'Best First'.
Re: Re: Batch Router
by Mr. Muskrat (Canon) on Aug 07, 2003 at 21:30 UTC

    Wouldn't it be saner to simply use print until the need arises to print to anything but STDOUT?

    print "Batch Router - the batch router configurator\n"; ... print $out_FH "----------------------------------------------------\n" +;

      That would be my thought, but I don't know what crackotter is trying to do/circumvent. As such, I assumed that he had a good reason for doing what he did. Personally, I'd do exactly what you're saying, but that's just me.

      Kristofer Hoch

      The dog isn't supposed to stretch like that -- Overheard spouse talking to the daughter

Re: Re: Batch Router
by crackotter (Beadle) on Aug 18, 2003 at 18:18 UTC
    Awesome suggestion, which I will implement into the next version. Thank You