hello monks i wrote a script to launch on a calcul cluster and i have many option, i want to have default values if the user don't wrote all of them how can i transform my code ?

 use strict;
use Getopt::Long; 
use lib qw(/opt/scripts/Modules/);
use alldays qw(all);             # verifie les droits de lecture, crea
+tion fichier 
use cluster_utils qw(all);         # transfere les données du master v
+ers node, gestion des lancements des differents jobs
use local_config;                       # definit les paths complets d
+e chaque programme automatiquement à partir du nom du prog  
use File::Basename;
use Text::Table;

# Declaration variables
my ($bam,$liste_snp,$min_snp_cds,$list_geno,$ref_cds,$prefixe,$seuil_m
+in_classe,$seuil_max_amb);

# Gestion des options placées lors lancement du script
GetOptions("b|extension=s"=>\$bam,
            "l|liste_snp=s"=>\$liste_snp,
            "s|min_snp_per_cds"=>\$min_snp_cds,
            "g|liste_geno=s"=>\$list_geno,
            "r|reference_cds_fasta=s"=>\$ref_cds,
            "p|prefixe=s"=>\$prefixe,
            "mc|min_read_classe=s"=>\$seuil_min_classe,
            "a|max_read_per_cent_ambi=s"=>\$seuil_max_amb);
[download]

like this ?

 use strict;
use Getopt::Long; 
use lib qw(/opt/scripts/Modules/);
use alldays qw(all);             # verifie les droits de lecture, crea
+tion fichier 
use cluster_utils qw(all);         # transfere les données du master v
+ers node, gestion des lancements des differents jobs
use local_config;                       # definit les paths complets d
+e chaque programme automatiquement à partir du nom du prog  
use File::Basename;
use Text::Table;

# Declaration variables
my ($bam,$liste_snp,$min_snp_cds,$list_geno,$ref_cds,$prefixe,$seuil_m
+in_classe,$seuil_max_amb);

# Gestion des options placées lors lancement du script
GetOptions("b|extension=s"=>\$bam,
            "l|liste_snp=s"=>\$liste_snp,
            "s|min_snp_per_cds"=>\$min_snp_cds||1, #default value : 1
            "g|liste_geno=s"=>\$list_geno,
            "r|reference_cds_fasta=s"=>\$ref_cds,
            "p|prefixe=s"=>\$prefixe,
            "mc|min_read_classe=s"=>\$seuil_min_classe||30,#default va
+lue : 30
            "a|max_read_per_cent_ambi=s"=>\$seuil_max_amb||1);#default
+ value : 1
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.