Le problème lorsque l’on développe du PERL sous Windows c’est que lors d’un die la console se referme. On peut bien sur lancer PERL via la console mais on n’y pense pas toujours. C’est pour cela que j’ai décidé d’intercepter le signal die de PERL pour que lorsqu’une erreur intervient, le script attende que j’appuie sur une touche pour continuer. Le code est très simple : if ($^O eq "MSWin32") { $SIG{__DIE__* = \&win_die; } Tous d’abord nous commençons par tester si on est sous Windows (sous Unix je lance forcement mon script dans une console).

Read more...