--- new 2010-01-08 18:51:43.000000000 +0100+++ new+function 2010-01-08 19:26:50.000000000 +0100@@ -1,13 +1,12 @@ #! /usr/bin/perl-print "Hello, bienvenue dans le programme que vous avez créer pour vous réentraîner au -perl. Est-ce exact: ";+print "Hello, bienvenue dans le programme que vous avez créer pour vous réentraîner au perl. Est-ce exact: "; chomp(my $rep=<STDIN>) ; if ($rep eq "o") { print "Okay. Nous allons donc lancer la fonction que vous avez patchée. Etes-vous toujours d'accord: " ; chomp(my $var=<STDIN>) ; if ($var eq "o") {- function() ;+ main() ; exit ; } else { @@ -18,10 +17,28 @@ } } else {- for ($rep eq "n") {- print "Alors quittons... Salut!\n" ;- exit ;- }+ print "Alors quittons... Salut!\n" ;+ exit; }-+sub main() {+ print "Bienvenue dans la fonction main de votre programme, la fonction que vous avez créée par la suite puis patchée. Est-ce exact: " ;+ chomp (my $cli=<STDIN>) ;+ if ($cli eq "o") {+ while (print "Ceci est une fonction mathématique. Elle vous permet de diviser deux nombres, aussi petit et précis soient-ils. Donnez le premier nombre: ") {+ chomp (my $num1=<STDIN>) ;+ if ($num1 eq "exit") {+ print "Leaving...\n" ;+ exit ;+ }+ else {+ print "Merci, Donnez maintenant le deuxième, qui sera le diviseur: " ;+ chomp (my $num2=<STDIN>) ;+ print "Résultat (quotient): " ;+ print $num1/$num2 ;+ print "\n" ;+ }+ +}+}+}