How do I handle command-line options

Perl provides several ways to handle command-line options. One of the most common methods is to use the Getopt::Long module, which allows you to easily parse command-line arguments. Below is an example of how to use this module to handle command-line options in Perl.


        #! /usr/bin/perl
        use strict;
        use warnings;
        use Getopt::Long;

        my $help;
        my $file;
        my $verbose;

        GetOptions(
            'help'    => \$help,
            'file=s'  => \$file,
            'verbose' => \$verbose,
        ) or die "Error in command line arguments\n";

        if ($help) {
            print "Usage: script.pl --file= [--verbose] [--help]\n";
            exit;
        }

        print "File: $file\n" if defined $file;
        print "Verbose mode is on\n" if $verbose;