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 !


SommaireCodes sources utilesDes codes sourcesDes codes sources Expressions régulières (3)
précédent sommaire suivant
 

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

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

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


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

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 © 2017 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.

 
Responsable bénévole de la rubrique Perl : djibril -