Catégorie : Scripts

Le module File::Find permet de rechercher des fichiers en fonction de critères. use File::Find; sub wanted { my $file = @_; my $path_file = $Find::File::name; print "$file $path_file\n"; } find(\&wanted, ".");

Une fonction peut ne pas comporter d’arguments (paramètres formels), mais cela présente assez peu d’intérêts et peut même se révéler dangereux puisque l’on peut modifier les variables globales (variables visibles de tous les blocs d’instructions). Les paramètres réels (transmis à […]

Afficher un hachage trié print "$_ $hash{$_}\n" for sort keys %hash; D’autres façons de trier un hachage : my @ord=sort keys %hash; for my $cle(@ord){ print "$cle $hash{$cle}\n"; } ou print “$_ $hash{$_}\n” for @ord; ou for my $cle(sort keys […]

Comment passer des arguments en ligne de commande à un script Perl. #!/usr/bin/perl use strict; use warnings; use Getopt::Long; my ( $fichier_in, $fichier_out ) = (); GetOptions( ‘in=s’ => \$fichier_in, ‘out=s’ => \$fichier_out, ); unless ( defined $fichier_in and defined […]

Pour accéder simplement à  tous les éléments d’un tableau : foreach my $val (@tableau) { print $val; }