# Définition d’un tableau de 4 éléments avec deux éléments définis
# et deux autres indéfinis
my @
Author: Exemples, Cours et Tutoriels Perl
Client/Serveur: Création d’un serveur pour échanger avec les connexions des clients
#!/usr/local/bin/perl
############## Socket Serveur ################
use Socket;
my $port_serve
Test Collapse
azzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz szadjjhjza azjhjkjhaz jhazjhaz lla org.java.lang.sakoba my @tab1 = (1, 2, 3, 4); #Définition d’un tableau de 4 éléments my @tab2; #Définition d’un tableau vide @tab2 = (@tab1, 5, 6, 70, 8)…
Création d’un serveur pour échanger avec les connexions des clients
#!/usr/local/bin/perl
############## Socket Serveur ################
use Socket;
my $port_serve
Tableau associatif: Afficher chaque élément de ‘Hash’
#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“Angleterre” => “Londre”,
Tableau associatif: Afficher chaque élément de ‘Hash’
#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“Angleterre” => “Londre”,
Copier un tableau dans un autre
#!/usr/bin/perl -w
my @tab1 = (1, 2, 3, 4); #Définition d’un tableau de 4 éléments
my @tab2;
Copier un tableau dans un autre
#!/usr/bin/perl -w
my @tab1 = (1, 2, 3, 4); #Définition d’un tableau de 4 éléments
my @tab2;
Afficher l’équivalent décimal d’un nombre binaire
#!/usr/bin/perl
print 0b11111111, “n”; # 255
print 0b10000000, “n”; # 128
print 0b01000000,
Exemple des opérations binaires logiques
#!/usr/bin/perl -w
$nombre = 42 & 18; # Opérateur AND de bit
print “1:# $nombren”; # $nomb