Différences

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

--- all:bibles:langages:perl [2026/07/02 13:45] – [Fonctions Date/heure] omeylhoc
+++ all:bibles:langages:perl [2026/07/31 10:44] (Version actuelle) – [Table de hachage] omeylhoc
@@ Ligne 49: / Ligne 49: @@
 <code perl>
 cat <fichier>|perl –lne ‘if (/^expression régulière$/) { print "$1 $2 …" }’
+</code>
+==== Passage de paramètres ====
+=== @ARGV ===
+<code perl>
+#!/usr/bin/perl
+use strict;
+use warnings;
+# @ARGV contient tous les arguments de la ligne de commande
+print "Nombre d'arguments: " . scalar(@ARGV) . "\n";
+# Accès par index
+print "\nTous les arguments:\n";
+foreach my $arg (@ARGV) {
+    print "  - $arg\n";
+}
+# Accès avec shift
+# Récupérer et retirer le premier argument
+my $premier = shift @ARGV;  # ou simplement: my $premier = shift;
+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 224: / 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>