Archive for the ‘Perl Basic’ Category

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;

Incrémentation des chaînes de caract_res


{filelink=14830}

 
#!/usr/bin/perl -w
 
$a = "al";
#Incrémenter la chaîne et afficher le résultat
print ++$a, "n";   # "am"
 
$a = "Xs";
print ++$a, "n";    #"Xt"

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 définition des valeurs aléatoires pour les variables scalaires


{filelink=14824}

 
# utilise $b si $b est true sinon $c
$a = $b || $c;
 
# Assigner $b à $a à moins que  $a soit déjà true
$a ||= $b;
 
# Assigner $c à $a si $b n'est pas défini
$a = defined($b) ? $b : $c;

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 de post et de pré incrémentation


{filelink=14819}

 
$c = 5;
$d = 5;
 
printf("Avant Post-incrémentation c=%dn",$c);
#Post-incrémentation de $c
printf("c Post-incrémenté=%dn",$c++);  # $c=5
printf("Après Post-incrémentation c=%dn",$c);
 
printf("Avant Pré-incrémentation c=%dn",$d);
#Pré-incrémentation de $c
printf("d Pré-incrémenté=%dn",++$d);  # $d=6
printf("Après Pré-incrémentation c=%dn",$d);

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 d’utilisation des fonctions ‘pack’ et ‘unpack’ pour les conversions avancée des nombres et caractères


{filelink=14828}

 ###########  pack et unpack   #################
 # pack(): reçoit une chaîne de Caractères
 #         et retourne les codes ASCII de la chaîne
 #         sous forme de tableau
 # unpack(): reçoit un tableau de codes ASCII
 #         et retourne son équivalent en chaîne
 #         de caractères
 
# Retourner un tableau de code ASCII
$texte="Bonjour Visiteur";
 
# retournes les codes ASCII du $texte
@texte_code_ASCII = unpack("C*", $texte);
print "@texte_code_ASCIIn"; #retourne: 66 111 110 106 111 117 114 32 86 105 115 105 116 101 117 114
 
# Interpréter le code ASCII
$phrase = pack("C*", 66 ,111 ,110 ,106 ,111 ,117 ,114
			 ,32 ,86 ,105 ,115 ,105 ,116 ,101 ,117 ,114 );
print "$phrasen";

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 décalage des bits


{filelink=14825}

 
print 2 << 4,"n";
print 0b01000000 << 4,"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]

Perl: Exemple des données Scalaires


{filelink=14820}

###########  Scalaire   #################
# Les Scalaires peuvent conteneir  les
# chaîne de caractères, les nomnbres
# les nombres en virgule flottante, les
# références aux objets, et les objets
# prédéfinis
 
$string = "Bienvenue sur perl.mesexemples.com?";
 
$int = 150;
 
$float = 3.14159;
 
$tabref = [ "Perl", "Python", "Java" ];
 
$hashref = { "Perl" => 2500, "Java" => 3500, "Python" => 3000 };
 
$subref = sub { print $string };
 
$object = MonObjet.new;

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 en ignorant la casse


{filelink=14832}

#!/usr/local/bin/perl
 
$a="bienvenu sur perl.mesexemples.com";
$b="BIENVENU SUR PERL.MESEXEMPLES.COM";
 
if (uc($a) eq uc($b))
 {
    print "A et B sont les mêmesn";
}

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]

Incrémentation des données alphanumériques(chiffre et lettre)


{filelink=14829}

#!/usr/bin/perl -w
 
$a = "x9";    #alphanumérique
#Après pré-incrémentation
print ++$a, "n";         # "y0"
 
$a = "z5";
$a++;
#Après post-incrémentation
print $a, "n";           # "z6"

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]

Programme: Inverser l’ordre des mots


{filelink=14823}

 
$texte="Bienvenu sur www.mesexemples.com";
print("Avant l'inversion la phrase:n",$texte,"n");
 
#Couper la phrase mot par mot
@les_Mots    = split(" ", $texte);
#inverser les mots retourner le résultat dans une variable
$mots_inverses    = join(" ", reverse @les_Mots);
 
#Afficher le résultat
printf ("Phrase inversée donnen%s",$mots_inverses);

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]