Posts Tagged ‘string’

Perl: Inverser les lignes d’un texte


{filelink=15267#}

#!/usr/local/bin/perl
 
# Lire l'entrée clavier
print "Taper votre texte, Pour quitter appuyez sur Ctrl-Z:\n"; # ou Ctrl-D selon la plateforme
@lines = <STDIN>;
#Inverser les caractères
@reverse_lines = reverse @lines;
#Afficher le résultat
print @reverse_lines;

Perl: Modifier un fichier


{filelink=15267}

#!/usr/local/bin/perl
my $old="fichier1.txt";
my $new="fichier2.txt";
open(OLD, "<", $old)        or die "Impossible d'ouvrir $old: $!";
open(NEW, ">", $new)        or die "Impossible d'ouvrir $new: $!";
while (<OLD>) {
    # Modifier le contenu du fichier temporaire
    print NEW $_."\nBienvenue"           or die "Ecriture Impossible dans $new: $!";
}
# Fermer les différents fichier
close(OLD)                  or die "Impossible de fermer $old: $!";
close(NEW)                  or die "Impossible de fermer $new: $!";
# créer une copie du fichier original
rename($old, "$old.orig")   or die "Impossible de renomer $old à $old.orig: $!";
# Utilisation du fichier temporaire à la place de l'original
rename($new, $old)          or die "Impossible de renomer $new à $old: $!";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: Trouver la fin d’une chaîne de caractères


{filelink=15267}

 #!/usr/local/bin/perl -w
 
    LINE:
    while (my $ligne = <>) {
        next LINE if $ligne !~ m/ \A -- ([^\n]+) \n? \z/xm;  # Nouvelle ligne
        print $1;
    }

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: Exemple d’accès aux sous-chaînes(substring)


{filelink=14826}

#!/usr/bin/perl
 
###########  Sous-chaîne   #################
#  pour retourner une partie de la chaîne
#  Perl utilise le built-in substr()
#
 
$string = "Cours et tuto perl sur mesexemples.com";
 
$first  = substr($string, 0, 1);   # "C"
printf("Premier caractère à partir de l'index 0=%sn",$first);
 
$start  = substr($string, 6, 2);  # "et"
printf("deux caractères à partir de l'index 6=%sn",$start);
 
$rest   = substr($string, 13);    # perl sur mesexemples.com
printf("Tous les caractères à partir de l'index 13=%sn",$rest);
 
$last   = substr($string, -1);    # "m"
printf("dernier caractère=%sn",$last);
 
$end    = substr($string, -4);    # ".com"
printf("Les 4 derniers caractères=%sn",$end);
 
$piece  = substr($string, -15, 15); # "mesexemples.com"
printf("15 caractères à partir de l'index 15 dépuis la fin=%sn",$piece);

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple de comparaison des types string


{filelink=13975}

 #!/usr/bin/perl
 
# les deux nstring sont convertis en int avant la conversion
$result = "64" < "128";
print $result,"n";
 
# Comparaison alphabétique
$result = "255" gt "128";
print $result,"n";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]