Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Running perl functions from a command line

by AcidHawk (Vicar)
on Jan 28, 2003 at 14:57 UTC ( #230602=note: print w/replies, xml ) Need Help??

in reply to Running perl functions from a command line

Have you looked at Getopt::Simple or the Getopt::Long

These will handle your script with -a or --a options.

Below is a snippet of an example which came from a Win32 service script.

use Getopt::Long; my %Config = ( timeout_value => 2, log_file => join( "", Win32::GetFullPathName( $0 ) ), ); $Config{log_file} =~ s/[^.]*?$/log/; Getopt::Long::Configure( "prefix_pattern=(-|\/)" ); $Result = GetOptions( \%Config, qw( install|i remove|r timeout_value|t=i log_file|l=s monitor_sub_dirs|s account_id|user=s account_password|pass=s help|?|h ) ); $Config{help} = 1 if( ! $Result || scalar @ARGV ); if( $Config{install} ) { Install(); exit(); } elsif( $Config{remove} ) { Remove(); exit(); } if( $Config{help} ) { Syntax(); exit(); }

Of all the things I've lost in my life, its my mind I miss the most.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://230602]
[erix]: my "Jeschwätz von jestern" = "Geschwätz von gestern" = "my babbling of yesterday"

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (10)
As of 2018-01-19 13:45 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (218 votes). Check out past polls.