A Voir sur le même Sujet

• 

  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 …

• 

  Inverser un Hash tel que clé devient valeur et valeur devient clé

  {filelink=14712} #!/usr/local/bin/perl my %mes_villes = (“Allemagne” => “Berlin”, “Angleterre” => “Londre”, “France” => ‘Paris’); # Afficher les éléments foreach $pays (sort keys %mes_villes) { print …

• 

  Trouver une ligne spécifique dans un fichier(Recherche)

  {filelink=14343} #!/usr/bin/perl -w use Tie::File; use Fcntl; # Lire la ligne 2 du fichier test.txt @read_argv = (‘c:/test.txt’, 2) or die “Erreur dans la définitionn”; …

• 

  Lire un seul caractère du clavier

  {filelink=13229} #!/usr/bin/perl -w # Empêcher l’utilisateur à appuyer # sur plusiuers touches du clavier use Term::ReadKey; ReadMode(‘cbreak’); print “Appuyez sur une touche pour voir ses …

• 

  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 …

• 

  Expression régulière: Effectuer des matches consécutifs

  {filelink=13222} #!/usr/bin/perl -w $_ = “J’aime Perl version 6 et java version 1.7 pour 2012”; $count=0; # Trouver tous les chiffres dans le texte while …

• 

  Expression régulière: Détecter si un mot est un palindrome ou non

  {filelink=13223} # Un palindrome est un texte dont la succession des lettres # est la même quand on la parcourt de gauche à droite ou …

• 

  Valider le pattern d’une expression régulière à l’aide de fonction ‘eval(pattern)’

  {filelink=13220} do { print “Veuillez Taper votre Pattern? “; chomp($pat = ); eval { “” =~ /$pat/ }; warn “Votre pattern est invalide $@” if …

• 

  Vérifier si les données Scalaires sont des lettres seulement(accent inclut)

  {filelink=13215} #!/usr/bin/perl # Démander à l’utilisateur de taper un mot ou une phrase # Vérifier si l’entrée est purement alphabétique use locale; use POSIX ‘locale_h’; …

• 

  Exemple d’utilisation d’une boucle ‘until’

  {filelink=15254} #! /usr/bin/perl# # On utilise cette boucle pour inverser la condition # d’une boucle while until ($j > 20) { $j += 2; print …

• 

  Vérifier si les données Scalaires sont des lettres seulement(accent non inclut)

  {filelink=13217} #!/usr/bin/perl # Démander à l’utilisateur de taper un mot ou une phrase # Vérifier si l’entrée est purement alphabétique print “Tapez un mot ou …

• 

  Trier un ‘Hash’ selon les valeurs associée aux clés

  {filelink=14715} #!/usr/bin/perl -w my %mes_villes = (“Allemagne” => “Berlin”, “France” => ‘Paris’, “Angleterre” => “Londre”); # Trier le Hash selon les valeurs foreach $elem (sort …

• 

  Trier un ‘Hash’ selon la taille des valeurs associée aux clés

  {filelink=14716} #!/usr/bin/perl -w my %mes_villes = (“Allemagne” => “Berlin”, “France” => ‘Paris’, “Angleterre” => “Londre”); # Trier le Hash selon la taille foreach $elem (sort …

• 

  Copier des informations dans le presse-papiers

  {filelink=13524} #!/usr/bin/perl ?Cw use Win32::Clipboard; my $presse_p = Win32::Clipboard->new(); # Enregistrer le texte dans le presse-papier $presse_p->Set( “Bienvenu sur perl.mesexemples.com” ); Livres sur ce sujet …

• 

  Formater les données avec la fonction ‘sprintf’

  {filelink=14612} #!/usr/local/bin/perl -w #####################sprintf############### # La fonction sprintf fonctionne de la même # manière que printf mais contrairement à printf # sprintf retourne le texte …