#!/usr/local/bin/perl -w
LINE:
while (my $ligne = ) {
next LINE if $ligne
#!/usr/local/bin/perl -w
LINE:
while (my $ligne = ) {
next LINE if $ligne
#!/usr/local/bin/perl -w
print “Tapez un nombre: “;
$line=;
# Vérifier si un nombre est
#!/usr/bin/perl -w
use strict;
#définition de deux tableaux @tab1 et @tab2
my @tab1 = (“janvier”,
# Trouver le mot qui precede la 3ème occurence du mot “Perl”
$occur = 3; #Nième occurence
$
# Spécifier le dossier à utilisé
chdir ‘..’; #Dossier courant
# Ouvrir le
#!/usr/local/bin/perl
# lancer la calculatrice de windows
exec “calc”;
die “Impossible de lancer l
# Définition d’un tableau de 4 éléments avec deux éléments définis
# et deux autres indéfinis
my @
#!/usr/local/bin/perl
############## Socket Serveur ################
use Socket;
my $port_serve
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)…
#!/usr/local/bin/perl
############## Socket Serveur ################
use Socket;
my $port_serve