Discussion :

[Jasmine80]

J'aimerais sortir du sous-programme en cas d'erreur. J'ai essayé avec return mais cela ne fonctionne pas et la suite du sous-programme s'exécute. Comment dois-je faire?

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
sub Execute_merge {
 
	my ($merge_files_tab, $ref_input_file_list, $output_file_merge, $format) = @_;
 
	# vérification que les fichiers d'entrée existent
	foreach my $input_file (@{$ref_input_file_list}){
		if (! -e $input_file){
			&Error ($merge_files_tab, "Input file : $input_file doesn't exist\n");
			return;
		}
	}
 
 
	# vérification que le format est défini
	if ( ! exists $correspondence{${$format}} ){
		&Error ($merge_files_tab, "Type isn't defined\n");
		return;
	}

Merci,

[Zwiter]

x-files ton affaire...
j'ai jamais eut de soucis avec return
L'erreur ne se siterait-elle pas avant ? Par exemple, en suprimant &Error ca le fait encore ?

Z.

[jabbounet]

Bonjour,

return va te faire revenir au niveau de l'appelant (c'est le but de cette instruction).

Si tu veux complètement arrêter ton programme, tu peux utiliser exit
http://perldoc.perl.org/functions/exit.html

Enfin si j'ai bien interprété la question.

[Jasmine80]

Merci pour vos réponses.
Le return() fonctionne sans problème et permet de quitter le sous-programme. Je regardais au mauvais endroit de mon programme et testais d'autres conditions plus loin où je n'avais pas mis de return(). ^^ Voila pourquoi ça n'allait pas. Désolée pour ce message inutile .