Forum Programmation.perl fork et mysql

• # dans MySQL : show variables;

  Posté par mac le 09 mai 2005 à 18:33. Évalué à 1.

  

  et regarde max_connections
  
  Chez moi, il vaut 100... et chez toi, ça plante à 100 connections... hasard ?

  • [^] # Re: dans MySQL : show variables;

    Posté par Uld (site web personnel) le 09 mai 2005 à 18:58. Évalué à 3.

    

    Ca plante à 100 chez lui parce qu'il fais un while de 100 et qu'après c'est le processus père qui reprend la main.
    
    while ( $i < 100 )
    
    aucun rapport avec le max_connexion... enfin je pense pas.

  • [^] # Re: dans MySQL : show variables;

    Posté par arn100 le 09 mai 2005 à 18:59. Évalué à 2.

    

    merci de ta réponse,
    moi aussi max connection est à 100 :
    
    mysql> show variables;
    ...
    | max_connections | 100 |
    ...
    
    
    mais, je ne pense pas que cela vienne de là car si j'enlève le fork et son test
    (if ( $child == 0 )), ca boucle infiniement sans problème...
    
    le programme il s'arrête seulement après l'exécution du premier fils... je comprend pas...

  • [^] # Re: dans MySQL : show variables;

    Posté par pi6Lohe le 09 mai 2005 à 19:06. Évalué à 1.

    

    Il n'y a pas 100 connexions, c'est le fils qui compte jusqu'à 100 avant de se terminer.
    
    Le fils doit fermer la connexion mysql lors de sa sortie. Il vaudrait peut-être mieux utiliser connect_cached dans ce cas ou mettre connect dans BOUCLE 1.

    • [^] # Re: dans MySQL : show variables;

      Posté par arn100 le 10 mai 2005 à 10:39. Évalué à 1.

      

      effectivement cela ne vient pas du nombre de connexions. Le problème comme tu me la indiqué, viendrait du fait que le fils ferme la connexion en se terminant. Comme tu me l'as dit, j'ai utilisé connect_cached à la place de connect et j'ai été obligé de le mettre dans la boucle infine. Cela ne marche toujours pas : j'ai des comprtement différents sur plusieurs exécutions... dépendant d'où est rendu le père quand un fils se termine!
      
      j'ai essayé sans succès prepare_cached à la place de prepare... je désespère là.
      
      Je peux comprendre que le fils termine la connexion... mais comment la récupérer surtout que l'on ne sait pas où se trouve le père quand le fils se termine...
      
      
      #!/usr/bin/perl -w
      use DBI;
      $u = 0;
      
      ####################################################################################
      # BOUCLE 1 (BOUCLE "INFINIE")
      ####################################################################################
      while (1) {
      
      $dbh =
      DBI->connect_cached(
      "DBI:mysql:database=archive;host=localhost.localdomain",
      "root", "mysqlpwd", { 'RaiseError' => 1 } );
      
      ####################################################################################
      # REQUETE PRINCIPALE : SELECTION DE LA TABLE UTILISATEUR AVEC TOUS CES CHAMPS
      ####################################################################################
      $query = "select * from utilisateur";
      $sth = $dbh->prepare($query);
      $res = $sth->execute;# (c'est la ligne 20)
      
      $child = fork;
      if ( $child == 0 ) {
      print "Dans le fils n° ".$u."\n";
      exit;
      }
      print "Dans le père\n";
      $u = $u + 1;
      }# while(1) FIN BOUCLE 1 (BOUCLE "INFINIE")
      $sth->finish;
      $dbh->disconnect;
      
      
      voici la trace :
      
      

      
      [root@localhost perl]# ./fork.pl
      Name "main::res" used only once: possible typo at ./fork.pl line 20.
      Dans le fils n° 0
      Dans le père
      Dans le fils n° 1
      Dans le père
      Dans le fils n° 2
      Dans le père
      Dans le fils n° 3
      Dans le père
      Dans le fils n° 4
      Dans le père
      Dans le fils n° 5
      Dans le père
      Dans le fils n° 6
      Dans le père
      Dans le fils n° 7
      Dans le père
      Dans le fils n° 9
      Dans le père
      Dans le fils n° 10
      Dans le père
      Dans le fils n° 8
      DBD::mysql::st execute failed: MySQL server has gone away at ./fork.pl line 20.
      DBD::mysql::st execute failed: MySQL server has gone away at ./fork.pl line 20.
      

      
      
      plusieurs exécution ne donnent pas les même trace...mais cela fini par le même message d'erreur.

      • [^] # Re: dans MySQL : show variables;

        Posté par pi6Lohe le 10 mai 2005 à 11:52. Évalué à 2.

        

        D'après la doc de perl sur exit
        
        

        
        The exit() function does not always exit immediately. It calls any defined "END" routines first, but these "END" routines may not themselves abort the exit. Likewise any object destructors that need
        to be called are called before the real exit. If this is a problem, you can call "POSIX:_exit($status)" to avoid END and destructor processing. See perlmod for details.
        

        
        
        Pas testé mais je pense que dans ce cas tu devras gérer toi même la destruction des objets avant la fermeture du fils.

        • [^] # Re: dans MySQL : show variables;

          Posté par arn100 le 10 mai 2005 à 16:56. Évalué à 1.

          

          Merci de ta réponse.
          
          mais il n'est pas génant (dans mon cas) que le ou fils ne se termine pas immédiatement après que je veille le détruire.
          
          En fait ce que je voudrais c'est ouvrir une connexion mysql et ne jamais la fermer.... Cela m'a l'air impossible puisque apparemment chaque fils cloture la connexion...
          
          biensur, si je met le connect dans la boucle infinie (connect_cached plutot), cela fait une reconnection de la base. Le problème est que le père se trouve "n'importe où" lorsque le fils se termine, il peut se trouver par exemple en train d'exécuter une requete alors que la BDD n'est plus connectée....
          
          je ne sais plus quoi faire...

          • [^] # Re: dans MySQL : show variables;

            Posté par pi6Lohe le 10 mai 2005 à 18:29. Évalué à 2.

            

            > mais il n'est pas génant (dans mon cas) que le ou fils ne se termine
            > pas immédiatement après que je veille le détruire.
            
            Ben si puisque c'est ça qui ferme la connexion. La doc (perlfunc) dit que la sortie n'est pas immédiate car cette fonction fait le ménage avant de vraiment quitter et qu'il est possible de l'éviter en utilisant le module POSIX.
            
            Remplace le exit du fils par POSIX:_exit($status) pour voir.

            • [^] # Merci!

              Posté par arn100 le 11 mai 2005 à 11:07. Évalué à 1.

              

              J'ai remplacé exit par POSIX:_exit($status) et le programme perl fait désormais ce que je veux : ne pas cloturer la connexion quand le fils termine !
              
              Grand Merci pi6Lohe! (et les autres aussi.)
              
              je n'aurais pas trouvé tout seul, d'ailleurs j'allais abandonner.. merci beaucoup!

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.