Perl codes and news

for $href ( @myArraysHash ) {
    print "{ ";
    for $role ( keys %$href ) {
         print "$role=$href->{$role} ";
    }

for ($startx = $x = 4; $x <= 8; $x++) {
    for ($starty = $y = 7; $y <= 12; $y++) {
        $mySlice[$x - $startx][$y - $starty] = $AoA[$

#!/usr/local/bin/perl
my $old="fichier1.txt";
my $new="fichier2.txt";
open(OLD, "<", $old)        or 
open(NEW, ">", $new)        or 
while () 

 #!/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 @