Un petit plus :
1 #! /usr/bin/env perl
2
3 use warnings;
4 use strict;
5
6 eval {my $x = 1/0;};
7
8 # print $@ , "\n"
9
10 $@ =~ 'zero' && print "c'était prévu\n"
Voir les transparents.
© Yves Guidet jeudi 9 juillet 2020, 09:48:17 (UTC+0200) (bella ubuntu, site printemps) yves.guidet@gmail.com