# Matrice.perl
# Example : Matrice creuse
# Juan Manuel Torres Moreno
# torres@univ-avignon.fr

#!/usr/bin/perl -w
use strict;

# Une matrice de 5 lignes et 10 colonnes creuse

my %matrice = ();

# On rempli avec les elements significatifs

$matrice{0}{0} = 1;
$matrice{0}{10} = 2;
$matrice{5}{0} = 3;
$matrice{5}{10} = 4;

# Parcour de la matrice

for (my $i=0; $i<=5; $i++)
{
  for (my $j=0; $j<=10; $j++)
  {
    if (exists $matrice{$i}{$j} )
    {    print "Ligne i=$i Col j=$j = $matrice{$i}{$j}\n"; }
  }
}