Try this on for size:
use Getopt::Std;
BEGIN { if ($^O eq 'MacOS' && !@ARGV) {
@ARGV = split ' ', MacPerl::Ask('Command line options?');
} }
getopts('oif:', \%opts);
print $opts{f};
I am not convinced modifying the modules is appropriate, though. Often,
you won't necessarily want to pass options, just because one of those
modules (oe even -s) is used. I know on Unix I have plenty of programs
that can accept input in that manner, but often don't. So bringing up the
box each time would be kinda ... annoying.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
