Perl

[Perl]Code de 8 lignes à essayer sous Perl sous Linux

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl]Code de 8 lignes à essayer sous Perl sous Linux

Yoyo@

Salut,

Est ce que l'un de vous pourrait essayer le code suivant sous Linux, en utilisant une version de Perl récente (genre 5.8.7 ou 5.8.8) et me dire ce que lui rend le programme:

Code :

local $SIG{__DIE__} = sub { print "handler\n";};
eval {
print "In eval\n";
die "Failed for some reason\n";
};
if ($@) {
print "Caught exception: $@";
}

J'ai trouvé ce bout de code dans la doc de modperl, et il y est dit que Perl est sensé retourner:

In eval
handler

Or, chez moi, ça retourne :

In eval
handler
Caught exception: Failed for some reason

(pour info, j'utilise Perl (ActivePerl) sus Win32, v 5.8.8

Merci!

Publicité

anapajari

s/travail/glanding on hfr/gs;

meme chose sur une v5.8.7 sous Debian

edit: un peu con j'ai pas modperl en fait

Message cité 1 fois
Message édité par anapajari le 05-04-2006 à 15:26:23

Yoyo@

anapajari a écrit :

meme chose sur une v5.8.7 sous Debian

edit: un peu con j'ai pas modperl en fait

Nan, nan, inutile d'avoir modperl, j'ai trouvé ça dans le Perl Reference sur le site de modperl(http://perl.apache.org/docs/genera [...] Techniques)
mais ça concerne Perl en général.

Bref, ce qu'ils disent ne marche pas! C'est un peu ça qui est chiant avec ces modules: les docs ne sont souvent pas à jour, et pour ma part, vu que je tourne sous Win32, quand quelque chose ne marche pas, ça vient toujours me faire douter que ça vient de ma distridution de Perl qui n'est pas bonne, alors que des fois, ce sont les docs qui ne sont pas à jour...

Merci en tout cas

stef_dobermann

Personne n'est parfait ...

je ne voi pas le PB :??:
le script fonctionne bien à mon avis :

Code :

local $SIG{__DIE__} = sub { print "handler\n";};

je ne me rappelle plus ce que ca veut dire (ca fait trop longtemps que j'ai pas touché à Perl)

Code :

eval { print "In eval\n"; die "Failed for some reason\n";};

évalue une protion de code et si c'est du Perl l'exécute :
c'est bien du Perl, affiche "In eval" retour à la ligne
tue l'excution du "sous script" et affiche "Failed for some reason" retour à la ligne

Code :

if ($@) { print "Caught exception: $@";}

affiche l'erreur "Failed for some reason" s'il y en a une !!

donc le script fonctionne à merveille

avant de critiquer, il faut d'abord comprendre :jap:

---------------
Tout à commencé par un rêve...

FORUM HardWare.fr

Programmation

Perl

[Perl]Code de 8 lignes à essayer sous Perl sous Linux

Sujets relatifs
[Résolu] Afficher du code HTML	Code ASCII des touches de direction
[Perl] effacer début fichier texte	Code fermeture Userform
La balise <PRE> et les sauts de lignes et CSS, PHP	[Perl] et [GNUPLOT]: Pb d'executions
[Perl] problème d'upgrade @INC	[Swish]Code source pour passer un "stop"
Utilisation d'un javascript avec perl	Code VBA d'importation de module
Plus de sujets relatifs à : [Perl]Code de 8 lignes à essayer sous Perl sous Linux

Page générée en 0.050 secondes