# Accéder aux arguments d’un subroutine via leurs numéros
# comme un tableau.
sub division
{
#
# Accéder aux arguments d’un subroutine via leurs numéros
# comme un tableau.
sub division
{
#
#!/usr/local/bin/perl
while (defined($line = ))
{
chomp($line);
print “Je dis $line!n”;
}
#!/usr/local/bin/perl
# Hash2
my %mes_villes = (“Allemagne” => “Berlin”,
“Angleterre” => “
$text = “hello”;
$text += 1; # La chaîne est ignorée
print $text;
#!/usr/local/bin/perl
# Hash2
my %mes_villes = (“Allemagne” => “Berlin”,
“Angleterre” => “
#! /usr/local/bin/perl
use File::Compare; #Module de comparaison des fichier
$fichier_1=”c
#! /usr/local/bin/perl
use File::Compare; #Module de comparaison des fichier
$fichier_1=”c
sub trim
{
my @out = @_;
for (@out) {
s/^s+//; # Espace à gauche
# définition de deux tableaux
@tab_a = ( -1, 52, .5, 3.5 );
@tab_b = ( 0, 10, -5, 1 );
foreach $el
#!/usr/bin/perl -w
$i = 0;
while ($i < 10)
{
print "Iteration $i.n";
} continue
{