#!/usr/bin/perl


my %hash = ("a" => 1, "b" => 2, "c" => 3);
my @cles = keys %hash;                

#!/usr/bin/perl -w

$a = "x9";    #alphanumérique
#Après pré-incrémentation
print ++$a, "n";      

use Spreadsheet::Read;

# Lecture d'un fichier Microsoft Excel .xls
my $ref  = ReadData( 'test.xls'

#!/usr/bin/perl

use Socket;

$identite_client   = getpeername(SOCKET)

    or die "Impossible d'id

#!/usr/bin/perl

use Socket;

$host = 'www.yahoo.fr';

# Extraction de l'adresse DNS
$adresse_dns =

$compteur = 1;

do
{
   print "Compteur= $compteur ";
} while ( ++$compteur < 100 );

print "Termi

#!/usr/local/bin/perl

$s = -1;

print "La Valeur absolue de $s = ", abs $s;

#!/usr/bin/perl

use Socket;
$adresse  = gethostbyname("www.mesexemples.com")
    or die "Impossible

#! /usr/local/bin/perl

$fichier_1="c:/test.txt";
chmod(0400, $fichier_1);  # le propriétaire du fic

#!/usr/local/bin/perl -w

# création d'une classe 'personner
package Personne;

sub new {
    my $cl