Discussion :

[oliviernouhi]

Bonjour,

Dans mon code j'ai mis un "next" du coup quand je lance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl fonction.pl

j'ai ceci qui me spam mon invite de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Exiting subroutine via next at fonctions.pl line 45, <FICHIER> line 5049

Comment faire pour le masquer ?

Merci d'avance

[PerlPicker]

Il faut utiliser return pour quitter une fonction. next sert à passer à l'itération suivante d'une boucle.

[oliviernouhi]

Je veux justement utiliser next pour passer a l'itération suivante de la boucle !

Donc je DOIS utiliser next !

voici ma fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sub CompteEspaces{
	my ($ligneloc ) = @_;
	if ( $ligneloc =~ m/^\s*.head\s(\w)\s/ ){
		$nIndent = $1;
		return $nIndent; # retourne le nombre de tabulation(s)
	}
	else{
		print ECRIRE_PortageAPT $ligneloc;
		next;
	}
}
1;

Donc je répète, je veux garder "next" à la fin de ma boucle car je veux passer à l'itération suivante d'une boucle mais je ne comprend pas pourquoi je suis spamé par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Exiting subroutine via next at fonctions.pl line 45, <FICHIER> line 5049

je voudrais les masquer ou les supprimer ..

Merci de votre aide

[PerlPicker]

Les messages d'erreurs de Perl ne sont pas du spam ... Pour les faire disparaître, il faut écrire un code correct.

Il n'y a pas de boucle dans le code de la fonction donc next ne sert à rien.

Si la boucle est dans le code appelant, vous pouvez retourner une valeur spéciale comme -1 et faire un next dans le code ou est la boucle dans ce cas.

[djibril]

Il faut relire les cours de Perl. Ton code ne contient pas de boucles, mais des conditions(si sinon). Donc, tu as un problème de conception à revoir.

Les messages d'erreurs de Perl ne sont pas du spam ... Pour les faire disparaître, il faut écrire un code correct.

[Philou67430]

Je suppose que la boucle se trouve autour de l'appel à la fonction CompteEspaces(). Il te faut donc faire ton next dans cette boucle, en utilisant une condition utilisant une valeur retournée par cette fonction, un peu du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
while (<>) {
  my $indent = CompteEspaces($_);
  next if $indent  == undef;
 
  # ...
}
 
sub CompteEspaces{
	my ($ligneloc ) = @_;
	if ( $ligneloc =~ m/^\s*.head\s(\w)\s/ ){
		$nIndent = $1;
		return $nIndent; # retourne le nombre de tabulation(s)
	}
	else{
		print ECRIRE_PortageAPT $ligneloc;
		return undef;
	}
}