Re: Getopt::Long

[Manfred Lotz]

Hi Rajesh,

On Wed, 16 May 2012 16:11:13 +0530
Rajesh Saha <rajeshsaha...@gmail.com> wrote:

> Hi,
> 
> Sorry for one typo. Read "GetOptions" in place of "Getoptions" .
> 
> Regards,
> Rajesh
> 
> 
> 

Here is how I do it:


#! /usr/bin/perl

use strict;
use warnings;

use Getopt::Long;


my $dry_run = 0;

GetOptions('version|V' => sub { version(); exit; },
                   'dry-run|n' => \$dry_run,
                   'help|h' => sub { usage(); },
           ) or usage();


exit;


sub version {
        print "$0: Version 0.1\n";
        exit;
}

sub usage {
        print <<"END_USAGE"
Usage: $0 [ Options ]

This script does important work 

Options:
 -n, --dry-run          Simulates rsync commands
 -V, --version          Print version
 -h, --help             This help
END_USAGE
        ;
        exit;
  
        return;
}



-- 
Manfred



-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/