#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“France” => ‘Paris’,
#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“France” => ‘Paris’,
#!/usr/bin/perl -w
use strict;
use IO::Socket;
my ($sock, # Socket
$serv_msg, # mes
#!/usr/local/bin/perl -w
package Personne;
use strict;
sub new {
my $self = { };
bless($se
#!/usr/local/bin/perl -w
for (;;)
{
print “Vous entrez dans un cycle……….
#!/usr/bin/perl -w
$a = “al”;
#Incrémenter la chaîne et afficher le résultat
print ++$a, “n”;
#!/usr/bin/perl
$bin=8; # 1000
$nombre = $bin
#!/usr/local/bin/perl
# trouver la valeur maximale d’une liste de valeur
sub find_max
{
my($peu
#!/usr/bin/perl -w
# Le bloc nu exécute une seule fois son contenu
# et limite la portabilités de s
#!/usr/local/bin/perl
my %hash = (“a” => 1, “b” => 2, “c” => 3);
# retourner le nombre de clé d’
#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“France” => ‘Paris’,