Discussion :

[LE NEINDRE]

Bonjour à tous,
Voilà, après avoir lu la faq sur fork (merci pour ça), j'ai tenté la chose suivante pour faire un compteur (dans un premier temps):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
$timeout=30;
 
&NewPid;
 
 
sub NewPid()
{
      defined($pid = fork) or die "Pas de fork possible : $!";
      unless($pid) 
      {
            $time=$timeout;
            while($time>0)
            {
                  system("cls");
                  print "Il vous reste: $time\n secondes";
                  $time=&Decompte($time);
            }
      }
waitpid($pid, 0);
}
 
#Retour au père;
 
 
 
sub Decompte()
{
    $decompte=$_[0];
    $decompte=$decompte-1;
    sleep(1);
    return $decompte;
}

Mais j'obtiens l'erreur suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
L'instruction à "0x2806c0f9" emploie l'adresse mémoire "0xabababb3". La mémoire ne peut être read.
Clique ok pour terminer le programme.
Cliquez sur annuler pour débogue rle programme

Bien sûr quand je clique sur ok, ça ferme le programme et quand ej clique sur annuler, ça me dit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
perl a généré des erreurs et windows va fermé perl

Voilà, qu'est-ce qui ne va pas dans mon script ????

Merci pour vos réponses



PS: A noter que je n'ai pas d'erreur et que ça fonctionne bien lorsque je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
$timeout=30;
 
 
 
      defined($pid = fork) or die "Pas de fork possible : $!";
      unless($pid) 
      {
            $time=$timeout;
            while($time>0)
            {
                  system("cls");
                  print "Il vous reste: $time\n secondes";
                  $time=&Decompte($time);
            }
      }
waitpid($pid, 0);
 
#Retour au père;
 
 
 
sub Decompte()
{
    $decompte=$_[0];
    $decompte=$decompte-1;
    sleep(1);
    return $decompte;
}

[LE NEINDRE]

Rebonjour,
J'ai règlé mon problème. En fait il fallait appeler la fonction NewPid comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
&NewPid();

et non comme je le faisais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
&NewPid;

Je ne sais pas pourquoi, mais ça marche ainsi.


cependant, je ne ferme pas ce poste car j'ai un problème toujours avec les thread je crois:

Explication du petit script:
Compteur qui décompte de 10 à 1 seconde.
Au bout de 1 seconde, il demande s'il on veut continuer, si oui, il recrée un processus fils, sinon, il sort.

Problème:
Lorsque je mets 5 fois 'o' (pour continuer) par exemple, je suis obligé de taper 5 fois 'n' (pour arrêter) afin de sortir du programme complétement.

Voici mon script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
$timeout=30;
 
 
&NewPid();
 
sub AskToContinue()
{
      #&NewPid();
      print "Voulez vous continuer ?(o/n): ";
      $in=<STDIN>;
      chomp($in);
      if($in eq 'o')
      {
            &NewPid();
      }
      else
      {
            exec ("echo OK, Byyyyeee \1");
            exec("exit");
      }
}
 
 
 
sub NewPid()
{
      defined($pid = fork) or die "Pas de fork possible : $!";
      unless($pid) 
      {
            $time=$timeout;
            while($time>0)
            {
                  system("cls");
                  print "Il vous reste: $time secondes\n";
                  $time=&Decompte($time);
            }
      }
waitpid($pid, 0);
&AskToContinue();
}
 
 
 
sub Decompte()
{
    $decompte=$_[0];
    $decompte=$decompte-1;
    sleep(1);
    return $decompte;
}

Je ne coprends pas pourquoi je ne sors pas du premier coups???
Quelqu'un peut il m'aider ????
Merci !!!!!