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 DEBIAN
moosex::getopt::basic
MooseX::Getopt::Basic(3pm) User Contributed Perl Documentation MooseX::Getopt::Basic(3pm)NAME
MooseX::Getopt::Basic - MooseX::Getopt::Basic - role to implement the Getopt::Long functionality
SYNOPSIS
## In your class
package My::App;
use Moose;
with 'MooseX::Getopt::Basic';
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
DESCRIPTION
This is like MooseX::Getopt and can be used instead except that it doesn't make use of Getopt::Long::Descriptive (or "GLD" for short).
METHODS
new_with_options
See "new_with_options" in MooseX::Getopt.
process_argv
See "process_agv" in MooseX::Getopt.
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 Mannsaker <ilmari@ilmari.org>
o AEvar Arnfjoro 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.14.2 2012-05-13 MooseX::Getopt::Basic(3pm)