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