FAQ PerlConsultez toutes les FAQ

Nombre d'auteurs : 18, nombre de questions : 250, dernière mise à jour : 29 octobre 2015 Ajouter une question

Bienvenue sur la FAQ Perl. Cette FAQ a pour vocation de vous enseigner ou de vous faire revoir les notions élémentaires de ce fantastique langage. Perl est très utilisé dans différents domaines depuis la gestion système, le réseaux, l'administration de bases de données, le web (CGI), la bureautique, la conception d'interfaces graphiques ou des contextes scientifiques telle la bioinformatique. Nous espérons que cette FAQ vous sera d'une grande utilité.

Vous souhaitez participer à l'amélioration de cette FAQ, n'hésitez pas !! Commentez

Bonne lecture !

Sommaire →Codes sources utiles →Des codes sources →Des codes sources Expressions régulières (3)

Formatage d'un nombre entier avec des espaces comme séparateurs des milliers
Comment trouver le nombre d'occurrence d'un motif dans une chaine ?
Comment mettre la première lettre de tous les mots d'une chaine en majuscule ou minuscule ?

Formatage d'un nombre entier avec des espaces comme séparateurs des milliers

Voici une fonction permettant le formatage d'un nombre entier avec des espaces comme séparateurs des milliers.

Code perl :

Sélectionner tout

1
2
3
4
5
sub FormatNumber { 
    my( $Number ) = @_; 
    while( $Number =~ s/^(-?\d+)(\d{3})/$1 $2/ ){}; 
    return( $Number ); 
}

Exemple d'utilisation :

Code perl :

Sélectionner tout

1
2
FormatNumber(95412368); 
Retourne : 95 412 368

Mis à jour le 18 décembre 2008

Comment trouver le nombre d'occurrence d'un motif dans une chaine ?

Code perl :

Sélectionner tout

1
2
3
4
5
6
7
8
#!/usr/bin/perl 
use strict; 
use warnings; 
  
my $motif = 'e'; 
my $phrase = 'Comment lire un fichier de configuration (.ini, yaml, ...) ?'; 
my $count =()= $phrase =~ m{$motif}g; 
print "Il y a $count \"$motif\" dans \$phrase\n";

Code :

Sélectionner tout

Il y a 4 "e" dans $phrase

=()= est ce qu'on appelle en Perl un goatse, pas toujours connu du grand public.

En fait, c'est l'usage de l'opérateur d'affectation à une liste vide qui permet d'évaluer l'expression régulière dans un contexte de liste et dont le résultat est affecté à $count. Or la valeur de retour d'une affectation de liste évaluée dans un contexte de scalaire retourne le nombre d'élément contenu dans la rvalue de cet opérateur d'affectation, donc le nombre d'élément capturé par l'expression régulière.

Mis à jour le 15 juin 2009 djibril Philou67430

Comment mettre la première lettre de tous les mots d'une chaine en majuscule ou minuscule ?

L'utilisation des expressions régulière est plus appropriée.

Code perl :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl 
use strict; 
use warnings; 
  
my $motif = 'e'; 
my $phrase = 'Comment lire un fichier de configuration (.ini, yaml, ...) ?'; 
print "$phrase\n"; 
  
# tous les mots en majuscule 
$phrase =~ s{\b(.+?)\b}{ucfirst($1)}ge; 
print "Maj : $phrase\n"; 
  
# tous les mots en minuscule 
$phrase =~ s{\b(.+?)\b}{lcfirst($1)}ge; 
print "Min : $phrase\n";

Code :

Sélectionner tout

1
2
3
Comment lire un fichier de configuration (.ini, yaml, ...) ? 
Maj : Comment Lire Un Fichier De Configuration (.Ini, Yaml, ...) ? 
Min : comment lire un fichier de configuration (.ini, yaml, ...) ?

Mis à jour le 15 juin 2009 djibril

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.