A Voir sur le même Sujet

• 

  Ajout des éléments dans une liste à l’aide de l’opérateur ‘push’

  {filelink=14098} #!/usr/bin/perl @tab = 5..9; #Ajouter 0 à la fin de la liste push(@tab, 0); # @tab contient maintenant (5, 6, 7, 8, 9, 0) …

• 

  Définition d’une plage de valeur pour une liste

  {filelink=14099} #!/usr/bin/perl @tab_digit=0..9; #définition d’une liste de digite print @tab_digit,”n”; print “@tab_digitn”; #définition d’une liste de lettre @tab_lettre=”a”..”z”; #les lettres de l’alphabet print @tab_lettre,”n”; print …

• 

  Définition et assignation d’une liste

  {filelink=14095} # définition d’une liste de mot avec le mot clé ‘qw’ @tab = qw( janvier février mars avril mai juin ); print “@tabn”; #Assignation …

• 

  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 …

• 

  Afficher la liste des Drivers de base de données disponible

  {filelink=14650} #!/usr/bin/perl use strict; use DBI; my @drivers = DBI->available_drivers(); print “La liste des Drivers Installé:n”; foreach my $db_driver (@drivers) { print “$db_drivern”; } exit; …

• 

  Perl: Obtenir la liste des clés d’un Hash

  {filelink=14708} #!/usr/bin/perl -w # définition d’un Hash %mon_hash = ( “Janvier” => 31, “Février” => 28, “Mars” => 31, “Avril” => 30, “Mai” => undef …

• 

  Exemple de définition et d’utilisation d’un ‘Hash’

  {filelink=14704} #################### Hash ##################” # Le Hash est un tableau associatif de type collection # chaque entrée est composée d’une clé et d’une valeur # …

• 

  Exemple d’utilisation des opérateurs ‘shift’ et ‘unshift’ pour décaler le premier élément d’une liste

  {filelink=14100} #!C:/perl/bin #@tab = qw# dino fred barney #; @tab = qw”Perl et Python même logique”; print “1:#”,”@tab”,”n”; $pl = shift(@tab); # $p contient “Perl”, …

• 

  Perl: Lire les emails d’un serveur POP3

  {filelink=13118} #!/usr/local/bin/perl ############## Programme de lecture d’email ############## # Lire les email d’un serveur Mail # use strict; my $mail_server=”mail.serveur.com”; # Adresse du serveur mail …

• 

  Rechercher l’index d’un mot dans un string

  {filelink=14611} #!/usr/local/bin/perl use strict; my $hi=”Fan de perl, Bienvenu sur perl.mesexemples.com”; # Trouver l’index du mot ‘sur’ dans le string ‘$hi’ my $indic=index($hi, “sur”); # …

• 

  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 …

• 

  Obtenir la liste des DSN des Drivers disponible

  {filelink=14651} #!/usr/bin/perl use strict; use DBI; my @drivers; @drivers = DBI->available_drivers; foreach my $driver (@drivers) { print “Driver $driver”; my @dsns = DBI->data_sources($driver); foreach my …

• 

  Sélection Aléatoire des valeurs dans une liste ou un tableau

  {filelink=13974} #!/usr/bin/perl use warnings; @tab = qw( janvier février mars avril mai juin ); print “@tabn”; #Sélectionner aléatoirement une valeur dans le tableau $alt_val = …

• 

  Définir un nombre d’argumenet illimité pour un subroutine/Fonction

  {filelink=14604} #!/usr/local/bin/perl # trouver la valeur maximale d’une liste de valeur sub find_max { my($peu_imprt_arg) = shift @_; # peu importe le nombre d’argument foreach …

• 

  Exemple d’utilisation de l’opérateur ‘pop’ pour retourner le dernier élément d’une liste

  {filelink=14097} #!/usr/bin/perl @tab = 5..9; $var_a = pop(@tab); # $var_a prend 9, @tab contient maintenant (5, 6, 7, 8) print “$var_an”; $var_b = pop @tab; …