Différences

Ci-dessous, les différences entre deux révisions de la page.

--- all:bibles:langages:perl [2026/07/29 10:39] – [Options] omeylhoc
+++ all:bibles:langages:perl [2026/07/31 10:44] (Version actuelle) – [Table de hachage] omeylhoc
@@ Ligne 74: / Ligne 74: @@
 my $deuxieme = shift;
 my $troisieme = shift;
+</code>
+=== Getopt::Long ===
+<code perl>
+use strict;
+use warnings;
+use Getopt::Long;
+# Variables pour stocker les options
+my $version = '';
+my $fichier = '';
+my $verbose = 0;
+my $output = 'output.txt';
+my $port = 8080;
+my @includes;
+# Configuration des options
+GetOptions(
+    'version|v=s'   => \$version,      # --version ou -v (valeur requise)
+    'file|f=s'      => \$fichier,      # --file ou -f (valeur requise)
+    'verbose'       => \$verbose,      # --verbose (flag booléen)
+    'output|o=s'    => \$output,       # --output ou -o (avec valeur par défaut)
+    'port|p=i'      => \$port,         # --port ou -p (entier)
+    'include|I=s@'  => \@includes,     # --include (multiple)
+    'help|h'        => \&afficher_aide # --help ou -h (appelle une fonction)
+) or die "Erreur dans les arguments!\n";
+print "Version: $version\n" if $version;
+print "Fichier: $fichier\n" if $fichier;
+print "Mode verbose activé\n" if $verbose;
+print "Output: $output\n";
+print "Port: $port\n";
+print "Includes: @includes\n" if @includes;
 </code>
@@ Ligne 249: / Ligne 284: @@
 delete $table{$cle};	# supprime la clé et sa valeur associée.
 exists $table{$cle}	# test l’existence de la clé dans la table (même s’il n’y a pas de valeur associée).
+if (key %tab) {         # test la présence d'éléments dans la table
 </code>