Process complex command lines : Getopt « System Functions « Perl






  1. Perl
  2. System Functions
  3. Getopt

Process complex command lines

      

    #!/usr/local/bin/perl -w

    use Getopt::Long;

    # $Getopt::Long::debug = 1;
    # $Getopt::Long::autoabbrev = 1;

    @optl = ("loglevel:i","file=s","trace!");
    die "Usage. $0 [-loglevel[<int>][-file <name>][-[no]trace]\n"
       unless GetOptions @optl;
    print "Trace active\n"
        if $opt_trace;
    print "No Trace\n"
        unless $opt_trace;
    print "Log file is $opt_file\n"
        if $opt_file;
    print "Loglevel value $opt_loglevel\n"
        if $opt_loglevel > 0;








Related examples in the same category

1.Simple options
2.GetOptions("file=s" => \$file);
3.Generate random passwords?
4.Extract command-line switches with Getopt::Std
5.Perform consistent command line parsing
6.Read from a file
7.To turn a feature on or off. Use the exclamation point(!)
8.Using Getopt to deal with command line options
9.getopt('pMN');
10.If the value is optional, use a colon
11.For a text string value, use :s for an optional value or =s for a required value:
12.Check if a file exists
13.A double dash (--) by itself signals the end of the command-line switches.