Les options en lignes de commandes

Utiliser le module Getopt::Std :

#!/usr/bin/perl

use strict;
use Getopt::Std;
my %options;
getopts("vf:",\%options);

if(defined($options{'v'}))
{
        print "-v demande\n";
}

if(defined($options{'f'}))
{
        print "option -f = $options{'f'}\n";
}

Les « : » qui suivent le f marquent qu'une définition de l'option est attendue. Sans cela, Getopt se contente de définir la valeur de hashage.

[~] $ ./tt.pl -f toto -v
-v demande
option -f = toto
[~] $

Plus d'informations :

• man Getopt::Std