Somme des éléments d'un tableau en Perl [Fermé]

Signaler
Messages postés
29
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
3 août 2012
-
Messages postés
29
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
3 août 2012
-
Bonjour,

Je souhaite effectuer la somme de lignes d'un tableau et lettre le résultat dans

j'ai un tableau lignes colonnes @tab[$i] [$j] de cette forme:

1 5 7 4 8
3 6 9 5 6
0 2 1 4 9

je souhaite obtenir un tableau @TAB qui aura comme valeur ma somme des éléments chaque ligne du tableau précédent:

càd de cette forme

25 29 16

merci

            
                

2 réponses

Messages postés
180
Date d'inscription
dimanche 30 janvier 2011
Statut
Membre
Dernière intervention
30 septembre 2012
8
Salut Niroise,

Voila une petite fonction qui devrais t'aider :

sub calcLines {
	my (@tab) = @_;

	# Tableau de sortie
	my @calcTab;

	for(my $i = 0; $i < $lengthTab; $i++) {
		# Sous tableau
		my @underTab = $tab[$i];
		my $lengthUnderTab = scalar @underTab;

		for(my $j = 0; $j < $lengthUnderTab; $j++) {
			$calcTab[$j] += $underTab[$j];
		}
	}

	return @calcTab;
}

my @tab;
Messages postés
29
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
3 août 2012

Merci Valentin,

J'ai un autre question, je souhaite afficher le résultat de deux conditions comme suit :

if ($x=$y) { $tab[$i]=$val;}
if ($x=$z) { $tab[$i+1]=$val2;}



print $tab[$i]."|" $tab[$i+1]."\n";

le print ne me donne rien du tous sachant que si je mais le print à l'intérieur du if ça me donne bien le résultat de $tab[$i]

if condition { $tab[$i]=$val; print $tab[$i]."\n"; }


les conditions peuvent être réalisées les deux à la fois, chacune séparément ou bien aucune d'elle, c'est pour cette raison que je ne peut ni les imbriquées ni faire le ifelse