Lire une touche clavier
Lire une touche clavier sous Perl. Méthode la plus utilisée et la plus rapide : chomp($saisie = <STDIN>);
Lire la suite...Catégorie : Perl
Rechercher un fichier en Perl
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, ".");
Lire la suite...Passage de paramètres en Perl
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 à […]
Lire la suite...Trier un hachage en Perl
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 […]
Lire la suite...Arguments du script perl
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 […]
Lire la suite...Accès aux éléments d’un tableau
Pour accéder simplement à tous les éléments d’un tableau : foreach my $val (@tableau) { print $val; }
Lire la suite...