Hi,
I have a perl script with two functions say func a and func b.
sub a {
-----------
---------
}
sub b {
---------
---------
}
I want to use this function on command line as we can do in shell script using getopt.
My motto here is to run the script like this
... (7 Replies)
Hi ,
I am using getopt for both short and long options as below
SHORTOPTS="a:c"
LONGOPTS="alpha:,charlie"
OPTS=$(getopt -o $SHORTOPTS --longoptions $LONGOPTS -n "$progname" -- "$@")
eval set -- "$OPTS"
while ; do
case $1 in
-a|--alpha)
echo "-a or --alpha... (0 Replies)
Hi ,
I am using getopt for both short and long options as below
SHORTOPTS="a:c"
LONGOPTS="alpha:,charlie"
OPTS=$(getopt -o $SHORTOPTS --longoptions $LONGOPTS -n "$progname" -- "$@")
eval set -- "$OPTS"
while ; do
case $1 in
-a|--alpha)
echo "-a or --alpha... (1 Reply)
Hi ,
I am using getopt for both short and long options as below
SHORTOPTS="a:c"
LONGOPTS="alpha:,charlie"
OPTS=$(getopt -o $SHORTOPTS --longoptions $LONGOPTS -n "$progname" -- "$@")
eval set -- "$OPTS"
while ; do
case $1 in
-a|--alpha)
echo "-a or --alpha... (1 Reply)
Hi there, I have an example basic script (below) and ive been trying to figure out how to stop multiple arguments to my options occuring. for example using the example script below I can issue two arguments for, say the --surname option and it will not barf at me (although thats what i want it to... (11 Replies)
Long story short: I'm working inside of a Unix SSH under a bash shell. I have to code a C program that generates a random number. Then I have to call the compiled C program with a Perl program to run the C program 20 times and put all the generated random #s into a text file, then print that text... (1 Reply)
I am reading arguments passed to a C++ program which accepts long options.
Long options start with '--', with the value joined with the option by an = sign, with no intervening spaces.
An example is as follows:
programName --vdz=15.0
I want to store 'vdz' in variable 'key', whereas... (4 Replies)
I have a ksh script (script1) that calls another ksh script (script2). If script2.ksh hangs or takes too long to execute I want script1.ksh to kill the call to script2.ksh and instead just display "Script2 can't run right now". Could someone help me with coding this? (1 Reply)
Hi All
I am using Getopt::Long in perl and i am trying to have it so if i dont supply a switch after the progname is will do a defult option
i have the following
GetOptions($OPT,
'debug|d',
'mail|m',
) or info();
i want it run the debug if it is not given a switch
... (1 Reply)
I created a program, so a kid can practice there math on it. It dispenses varies math problems and the kid must input an answer. I also want it to grade the work they have done, but I can't find the best place for it to print out the grade.
I have:
if ( $response =~ m/^/ ) {
$user_wants_to_quit... (1 Reply)
Discussion started by: germany1517
1 Replies
LEARN ABOUT OSX
moosex::getopt::gld
MooseX::Getopt::GLD(3) User Contributed Perl Documentation MooseX::Getopt::GLD(3)NAME
MooseX::Getopt::GLD - A Moose role for processing command line options with Getopt::Long::Descriptive
SYNOPSIS
## In your class
package My::App;
use Moose;
with 'MooseX::Getopt::GLD';
# or
with 'MooseX::Getopt::GLD' => { getopt_conf => [ 'pass_through', ... ] };
has 'out' => (is => 'rw', isa => 'Str', required => 1);
has 'in' => (is => 'rw', isa => 'Str', required => 1);
# ... rest of the class here
## in your script
#!/usr/bin/perl
use My::App;
my $app = My::App->new_with_options();
# ... rest of the script here
## on the command line
% perl my_app_script.pl -in file.input -out file.dump
OPTIONS
This role is a parameterized role. It accepts one configuration parameter, "getopt_conf". This parameter is an ArrayRef of strings, which
are Getopt::Long configuraion options (see "Configuring Getopt::Long" in Getopt::Long)
AUTHORS
o Stevan Little <stevan@iinteractive.com>
o Brandon L. Black <blblack@gmail.com>
o Yuval Kogman <nothingmuch@woobling.org>
o Ryan D Johnson <ryan@innerfence.com>
o Drew Taylor <drew@drewtaylor.com>
o Tomas Doran <bobtfish@bobtfish.net>
o Florian Ragwitz <rafl@debian.org>
o Dagfinn Ilmari Mannsaaker <ilmari@ilmari.org>
o var Arnfjoer` Bjarmason <avar@cpan.org>
o Chris Prather <perigrin@cpan.org>
o Karen Etheridge <ether@cpan.org>
o Jonathan Swartz <swartz@pobox.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Infinity Interactive, Inc.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.16.2 2012-08-30 MooseX::Getopt::GLD(3)