Quel module pour die et warn ?

Marsh Posté le 03-08-2007 à 10:58:11

Bonjour,

J'ai un souci en tentant d'appeler 2 "built-in" fonctions de Perl -- die et warn -- via une référence de fonction.
Voici le code :

Code :

#-------------------------------------------------------#
# Subroutine close_s
#
# Safe version of close for lazy bums...
#
# @param Filehandle
# @param Error level: warn (default value) or die
# @return Return value of close
#-------------------------------------------------------#
sub close_s ( *;$ )
{
# Check filehandle parameter
my $FILEHANDLE = shift
or die 'close_s: filehandle required';
# Set error level:
# - warning (default behavior)
my $error_cmd = \&warn;
# - exception
$error_cmd = \&die
if $_ = shift and /^die$/i;
my $value = close $FILEHANDLE
or &$error_cmd( $!
? "Can't close $FILEHANDLE: $!"
: "Exit status $? from closing $FILEHANDLE" );
return $value;
}
close_s( TEST );

J'ai le message d'erreur suivant :

Undefined subroutine &main::warn called at ./batch.pl line 73.

Donc la question est : dans quel module sont définis warn et die pour que je puisse les appeler correctement ?

Marsh Posté le 03-08-2007 à 10:58:11

Marsh Posté le 03-08-2007 à 11:07:47

Pas de module pour die et pour warn : http://perldoc.perl.org/functions/warn.html

Par contre je ne suis pas sûr que tu puisses utiliser des références sur des fonctions internes.
Je te propose de les encapsuler dans des fonctions anonymes, plutôt.

Message édité par Elmoricq le 03-08-2007 à 11:08:49

Marsh Posté le 04-08-2007 à 11:47:32

Merci pour ta réponse. Je vais essayer avec les fonctions anonymes dans ce cas.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *