#!/usr/bin/perl -w
$a = “x9”; #alphanumérique
#Après pré-incrémentation
print ++$a, “n”;
#!/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
#! /usr/bin/perl#
$compteur = 100;
do
{
print “Compteur= $compteurn”;
} until ( –$compteur ==