Discussion :

[ours_en_pluche]

bonjour,

quelle est la difference entre die et exit ?

par exemple si j'utilise ces deux petits bouts de code ( le fichier n'existant pas ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
 
use strict;
use warnings;
 
open ( FIC , "< blabla.txt" ) or die( $! );
while ( <FIC> ) {
	print $_."\n";
}
close ( FIC );

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
sub quit {
	my $opt = shift;
	print $opt."\n";
	exit;
}
 
open ( FIC , "< blabla.txt" ) or &quit( $!." ( blabla.txt )" );
while ( <FIC> ) {
	print $_."\n";
}
close ( FIC );

j'obtiens respectivement:

Code :

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

1
2
ours@ourson:~/Progra/Perl/DieOrExit$ perl die.pl 
Aucun fichier ou dossier de ce type at die.pl line 6.

Code :

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

1
2
ours@ourson:~/Progra/Perl/DieOrExit$ perl exit.pl
Aucun fichier ou dossier de ce type ( blabla.txt )

une difference quelconque hormis la présentation ? ( que perso je trouve plus belle sur un exit )

cordialement

ours

[6ril23]

je ne connais pas la réelle différence entre exit et die
mais en regardant tes exemples, le die te permet d'écrire un message d'erreur sans passer par une fonction

par habitude, je n'utilise le exit que dans le cadre de boucle
exemple:

Code :

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

1
2
exit if ( $line =~ ... );
open(...) or die "Impossible d'ouvrir le fichier";

[Philou67430]

"die" lève une exception et affiche une erreur sur la sortie STDERR, puis appelle "exit" avec un paramètre numérique non nul, qui lui, ne fait que sortir du programme (en appelant toutefois le bloc END avant) et retourne la valeur numérique passée en paramètre au processus père (le shell sous Unix).

L'exception générée à l'appel de "die" peut être capturée par un bloc "eval {}" et traitée dans un bloc "if (!defined eval_return)"

Des explications détaillées :

Code :

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

1
2
3
perldoc -f die
perldoc -f exit
perldoc -f eval