#!/usr/bin/perl -w
#################### Hash ##################"
# Rendre une entrée ou un élément 

#!C:/perl/bin

#@tab = qw# dino fred barney #;

@tab = qw"Perl et Python même logique";
print "1:#",

#!/usr/bin/perl

@tab_digit=0..9;    #définition d'une liste de digite
print @tab_digit,"n";
print 

#!/usr/bin/perl

@tab  = 5..9;

#Ajouter 0 à la fin de la liste
push(@tab, 0);  # @tab contient main

#!/usr/bin/perl

@tab  = 5..9;
$var_a   = pop(@tab);  # $var_a prend 9, @tab contient maintenant (5,

    my @factoriel = (1);
    $MAX_FACT=9;
    for my $n (1..$MAX_FACT) {
        $factoriel[$n] = $

#!/usr/bin/perl

my @analog = qw{ perl avec java est efficace mais perl avec python est moins efficace que python

#!/usr/local/bin/perl

for ($i = 1; $i <= 10; $i++)
{
  print "$i pasn";
}

#!/usr/bin/perl
################## last #############
# l'opérateur 'last' est l'équivalent de
# l'o

#!/usr/bin/perl -w

# Le modificateur 'until' s'applique à l'expression qui le précède

$i *= 2 unti