[Perl] Optimisation code perl CGI - Problème de performance

Optimisation code perl CGI - Problème de performance [Perl] - Perl - Programmation

Marsh Posté le 08-06-2018 à 10:39:08    

Bonjour,
 
Je vous explique le context.
 
Je dois requêter une base de données (SQL Server) pour générer un tableau de log.
Lorsque le tableau est "petit", c'est à dire<2000 lignes, mon code fonctionne parfaitement et la page s'affiche rapidement.
 
Par contre quand le nombre de lignes de ma requête SQL est plus important et bien je tombe en time out et ça ne fonctionne plus.
 
Voici mon code :
 

Code :
  1. #!/usr/bin/perl -w
  3. use strict;
  4. use warnings;
  5. use LWP::UserAgent;
  6. use CGI;
  7. use DBI;
  9. my $cgi = new CGI;
  10. my $param = $cgi->param('param');
  12. my $data_source = q/dbi:ODBC:localhost/;
  13. my $user = q/sql_admin/;
  14. my $password = q\password\;
  16. # Connect to the data source and get a handle for that connection.
  17. my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=localhost;UID=$user;PWD=$password" ) or die "Can't connect to $data_source: $DBI::errstr";
  18. $dbh->{LongReadLen} = 25000;
  20. # Select to get sessionnumber
  21. my $sql="select stagename, stagetype, result, startdatetime, attributexml from [CMA].[sch_CMA].[CMALog] where sessionnumber='$param'";
  22. my $sth= $dbh->prepare($sql);
  23. $sth->execute();
  25. my @tabs;
  26. while (my @row = $sth->fetchrow_array())
  27. {
  28. push (@tabs,@row)
  29. }
  31. my $nb_var=$sth->rows;
  33. $sth->finish();
  34. $dbh->disconnect;
  36. #Création de la page html
  37. my $browser = create_lwp_browser();
  38. my $page="<html>
  39. <head>
  40. <title>CMA Request</title>
  41. <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8_decode\"/>
  42. <link rel=\"stylesheet\" type=\"text/css\" href=\"css/cma.css\">
  43. </head>
  44. <body>
  45. <h1>CMA Log GENErator</h1>
  46. ";
  47. print "\n";
  49. $page=$page."
  50. <a href=\"javascript:history.go(-1)\">Retour</a>
  51. <table>
  52. <br>
  53. <caption>$param<caption>
  54. <br>
  55. <tr><th>stagename</th><th>stagetype</th><th>result</th><th>startdatetime</th><th>Value</th></tr>";
  57. my $direction="IN";
  58. my $data;
  60. for (my $j=0; $j<=$nb_var*5-1; $j=$j+5)
  61. {
  62. if (defined $tabs[$j+4])
  63. {
  64.  my @datas=split (/</,$tabs[$j+4]);
  65.  foreach $data(@datas)
  66.  {
  67.   $data=~s/>//g;
  68.   if ($data=~m/parameters/|| $data=~m/inputs/ || $data=~m/outputs/)
  69.   {
  70.    next;
  71.   }
  72.   if ($data=~m/input/)
  73.   {
  74.    $direction="IN";
  75.    $data=~s/input//g;
  76.   }
  77.   if ($data=~m/output/)
  78.   {
  79.    $direction="OUT";
  80.    $data=~s/output//g;
  81.   }
  82.   $data="direction=$direction $data";
  83.   $page=$page."<tr><td>$tabs[$j]</td><td></td><td></td><td></td><td>$data</td></tr>";
  84.  }
  85. }
  86. else
  87. {
  88.  $page=$page."<tr><td>$tabs[$j]</td><td>$tabs[$j+1]</td><td>$tabs[$j+2]</td><td>$tabs[$j+3]</td><td>$tabs[$j+4]</td></tr>";
  89. }
  90. }
  92. $page=$page."
  93. </table>
  94. </body>
  95. </html>";
  97. #Afficher la page html
  98. print $page;
  100. sub create_lwp_browser
  101. {
  102. my $browser = LWP::UserAgent->new;
  103. $browser->env_proxy;
  104. $browser->timeout(30);
  105. $browser->agent('ALoGen.pl/1.0');
  106. return $browser;
  107. }


 
 
Avez vous des pistes pour optimiser ce code ?
J'essaie de réduire le nombre d’itérations de ma boucle for mais sans succès :(
 
Merci pour votre aide.
 
:jap:

Reply

Marsh Posté le 08-06-2018 à 10:39:08   

Reply

Marsh Posté le 11-06-2018 à 08:24:16    

:bounce:

Reply

Marsh Posté le 11-06-2018 à 10:10:49    

Salut,
 
Outre changé de langage pour un truc plus optimisé. Est-ce que tu as regardé si ta requêtes SQL était assez rapide ? (un index nécessaire ?)
Sinon, tu pourrais faire qu'une seul boucle ligne 26 qui, plutôt que tout mettre dans tabs, créerais l'HTML. Tu allongerais le temps de ta connexion à ta base, mais tu gagnerais en perf (tu enlèves un boucle ...)
 
Toutefois, ce prendre un timeout, c'est à dire 2min de traitement pour ca me semble assez étrange, meme pour Perl :p ...

Reply

Marsh Posté le 11-06-2018 à 11:27:19    

Salut,
 
Merci pour ta réponse.
La requête en elle-même est très rapide.
 
Comment vois-tu la modif en ligne 26 ?
 
:jap:

Reply

Marsh Posté le 11-06-2018 à 13:14:37    

:hello:
J'ai supprimé la table @tab et je travaille directement dans @row et donc dans le while de la ligne 26.
J'ai supprime le for, le résultat est le même, sur les résultats<2000 lignes ça fonctionne mais pas pour des résultats plus grands.
 
:(

Reply

Marsh Posté le 11-06-2018 à 14:37:03    

C'est quoi un résultat plus grand ?  
On est d'accords que ton timeout est de 2min ?

Reply

Marsh Posté le 11-06-2018 à 14:55:46    

Tu pourrais poster le code mis à jour?
Perso j'aurais fait:  
push (@tabs,\@row)
afin d'éviter la copie de @row dans table a chaque fois et ne pas avoir une immense table @tabs
 
Ça plante toujours à la même ligne, si oui tu connais son numéro d'ordre? Tu as essayé avec des tables distinctes, juste pour savoir si a la base le pb n'est pas avec une ligne particulière (au delà de 2000) de la table.
 
A+,
 


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 11-06-2018 à 15:17:09    

:hello:
 
Comme le résultat n'était pas plus satisfaisant j'ai supprimé le code mis à jour, je vais le recréer.
Merci pour le push (@tabs,\@row).
 
Oui ça plante toujours à la même ligne, qu'entends-tu par tester avec des tables distinctes ?
 
@dedes_sav, le timeout est bien de 2 minutes et résultat plus grand c'est à dire >2000 lignes.

Reply

Marsh Posté le 11-06-2018 à 15:40:54    

Re,
 
Voici mon code mis a jour:
 

Code :
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use warnings;
  4. use LWP::UserAgent;
  5. use CGI;
  6. use DBI;
  8. my $cgi = new CGI;
  9. my $param = $cgi->param('param');
  11. my $data_source = q/dbi:ODBC:localhost/;
  12. my $user = q/sql_admin/;
  13. my $password = q\password\;
  14. my $direction="IN";
  15. my $data;
  17. #Création de la page html
  18. my $browser = create_lwp_browser();
  19. my $page="<html>
  20. <head>
  21. <title>CMA Request</title>
  22. <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8_decode\"/>
  23. <link rel=\"stylesheet\" type=\"text/css\" href=\"css/cma.css\">
  24. </head>
  25. <body>
  26. <h1>CMA Log GENErator</h1>
  27. <a href=\"javascript:history.go(-1)\">Retour</a>
  28. <table class=\"AutomateTable\">
  29. <br>
  30. <caption>$param<caption>
  31. <br>
  32. <tr>
  33. <th>stagename</th><th>stagetype</th><th>result</th><th>startdatetime</th><th>Value</th>
  34. </tr>";
  36. print "\n";
  38. # Connect to the data source and get a handle for that connection.
  39. my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=localhost;UID=$user;PWD=$password" ) or die "Can't connect to $data_source: $DBI::errstr";
  40. $dbh->{LongReadLen} = 25000;
  42. # Select to get sessionnumber
  43. my $sql="select stagename, stagetype, result, startdatetime, attributexml from [CMA].[sch_CMA].[CMALog] where sessionnumber='$param'";
  44. my $sth= $dbh->prepare($sql);
  45. $sth->execute();
  47. while (my @row = $sth->fetchrow_array())
  48. {
  49. if (defined $row[4])
  50. {
  51.  my @datas=split (/</,$row[4]);
  52.  foreach $data(@datas)
  53.  {
  54.   $data=~s/>//g;
  55.   if ($data=~m/parameters/|| $data=~m/inputs/ || $data=~m/outputs/)
  56.   {
  57.    next;
  58.   }
  59.   if ($data=~m/input/)
  60.   {
  61.    $direction="IN";
  62.    $data=~s/input//g;
  63.   }
  64.   if ($data=~m/output/)
  65.   {
  66.    $direction="OUT";
  67.    $data=~s/output//g;
  68.   }
  69.   $data="direction=$direction $data";
  71.   $page=$page."<tr><td>$row[0]</td><td></td><td></td><td></td><td>$data</td></tr>
  72.   ";
  73.  }
  74. }
  75. else
  76. {
  77.  $page=$page."<tr><td>$row[0]</td><td>$row[1]</td><td>$row[2]</td><td>$row[3]</td><td>$row[4]</td></tr>
  78.  ";
  79. }
  80. }
  81. $sth->finish();
  82. $dbh->disconnect;
  84. $page=$page."
  85. </table>
  86. </body>
  87. </html>";
  89. #Afficher la page html
  90. print $page;
  92. sub create_lwp_browser
  93. {
  94. my $browser = LWP::UserAgent->new;
  95. $browser->env_proxy;
  96. $browser->timeout(30);
  97. $browser->agent('ALoGen.pl/1.0');
  98. return $browser;
  99. }


 
:jap:


Message édité par web_olivier le 11-06-2018 à 15:42:11
Reply

Marsh Posté le 11-06-2018 à 18:19:09    

> Oui ça plante toujours à la même ligne, qu'entends-tu par tester avec des tables distinctes ?  
 
Je ne parlais pas de la ligne de code perl, mais de la ligne de la BDD, au cas ou ce soit les données de la BDD qui fassent échouer la requête.
Tu peux pas mettre un compteur pour voir si c'est la même ligne requêtée de la BDD qui échoue toujours ?
my $cpt = 0;
while (my @row = $sth->fetchrow_array())
{
print ++$cpt; # ou print dans un log au vu de ce que fait print dans ton code
 
Si le plantage est systématiquement a la même position, soit une donnée de la BDD fait échouer la requête, soit le nb de requêtes a atteint une limite à modifier. Sinon, ça a plus de chances d'être un vrai pb de timeout réseau
 
A+,
 


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 11-06-2018 à 18:19:09   

Reply

Marsh Posté le 12-06-2018 à 09:40:47    

Merci Gilou,
 
Voici ce que j'ai fait :
 

Code :
  1. use strict;
  2. use warnings;
  3. use LWP::UserAgent;
  4. use CGI;
  5. use DBI;
  7. my $cgi = new CGI;
  8. my $param = $cgi->param('param');
  9. my $name = $cgi->param('name');
  11. my $data_source = q/dbi:ODBC:localhost/;
  12. my $user = q/sql_admin/;
  13. my $password = q\password\;
  14. my $direction="IN";
  15. my $data;
  17. #Création de la page html
  18. my $browser = create_lwp_browser();
  20. open (my $fh, '>', "result/$param.html" );
  22. print $fh "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
  23. <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
  24. \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
  25. <HTML xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">
  26. <HEAD>
  27.  <TITLE>Complete Session Log for processus $param</TITLE>
  28.  <STYLE>
  29.   BODY{font-family: helvetica;}
  30.   TABLE.AutomateTable {width: 100%;border: 1;empty-cells: show;border-collapse: collapse;font-size: 8pt;}
  31.   TD, TH {border: 1px solid #9fa4c1;padding-left: 3px;padding-right: 1px;padding-top: 1px;padding-bottom: 1px;vertical-align: top;}
  32.   TH {font-weight: bold; color: white;background-color: #9fa4c1;}
  33.  </STYLE>
  34. </HEAD>
  35. <body>
  36. <h1>CMA Log GENErator</h1>
  37. <table class=\"AutomateTable\">
  38. <br>
  39. <caption>$param<caption>
  40. <br>
  41. <tr>
  42. <th>stagename</th><th>result</th><th>startdatetime</th><th>Value</th>
  43. </tr>";
  45. print "\n";
  47. # Connect to the data source and get a handle for that connection.
  48. my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=localhost;UID=$user;PWD=$password" ) or die "Can't connect to $data_source: $DBI::errstr";
  49. $dbh->{LongReadLen} = 25000;
  51. # Select to get sessionnumber
  52. my $sql="select stagename, result, startdatetime, attributexml from [CMA].[sch_CMA].[CMALog] where sessionnumber='$param'";
  53. my $sth= $dbh->prepare($sql);
  54. $sth->execute();
  56. while (my @row = $sth->fetchrow_array())
  57. {
  58. if (defined $row[3])
  59. {
  60.  my @datas=split (/</,$row[3]);
  61.  foreach $data(@datas)
  62.  {
  63.   $data=~s/>//g;
  64.   if ($data=~m/parameters/|| $data=~m/inputs/ || $data=~m/outputs/)
  65.   {
  66.    next;
  67.   }
  68.   if ($data=~m/input/)
  69.   {
  70.    $direction="IN";
  71.    $data=~s/input//g;
  72.   }
  73.   if ($data=~m/output/)
  74.   {
  75.    $direction="OUT";
  76.    $data=~s/output//g;
  77.   }
  78.   $data="direction=$direction $data";
  80.   print $fh "<tr><td>$row[0]</td><td></td><td></td><td>$data</td></tr>
  81.   ";
  82.  }
  83. }
  84. else
  85. {
  86.  print $fh "<tr><td>$row[0]</td><td>$row[1]</td><td>$row[2]</td><td>$row[3]</td></tr>
  87.  ";
  88. }
  89. }
  91. $sth->finish();
  92. $dbh->disconnect;
  94. print $fh "
  95. </table>
  96. </body>
  97. </html>";
  99. close $fh;
  101. #Création de la page html
  102. my $browser = create_lwp_browser();
  103. my $page="<html>
  104. <head>
  105. <title>CMA Request</title>
  106. <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8_decode\"/>
  107. <link rel=\"stylesheet\" type=\"text/css\" href=\"css/cma.css\">
  108. </head>
  109. <body>
  110. <h1>CMA Log GENErator</h1>
  111.  <br>
  112.  <br>
  113.  <a href=\"result/$param.html\" download=\"result/$param.html\">Telecharger le fichier de log pour le process <b>$name</b> (process #$param)</a>
  114.  <br><br>
  115.  <a href=\"javascript:history.go(-1)\">Retour</a>
  116. </body>
  117. </html>";
  119. print $page;
  121. sub create_lwp_browser
  122. {
  123. my $browser = LWP::UserAgent->new;
  124. $browser->env_proxy;
  125. $browser->timeout(30);
  126. $browser->agent('ALoGen.pl/1.0');
  127. return $browser;
  128. }


 
J'écris ma page dans un fichier (dans /result/$param.html) ensuite j'affiche une page qui propose un liens vers le fichier généré pour le télécharger.
Résultat, si je génère mon fichier sur une petite log, pas de problème, le fichier est généré et le lien de téléchargement fonctionne très bien.
Si je génère mon fichier sur une grosse log, alors le fichier est bien généré dans /result/$param.html, il est complet, mais ma page avec le lien de téléchargement ne s'affiche jamais et je termine de nouveau en timeout  :pt1cable:  
 
Le problème est donc ailleurs ? une idée à la vu du code ?
 
:jap:


Message édité par web_olivier le 12-06-2018 à 14:08:30
Reply

Marsh Posté le 12-06-2018 à 13:41:03    

Euh, et si tu testes avec une boucle a vide, et aucun autre code parasite, ça plante aussi?
while (my @row = $sth->fetchrow_array()) {}
 
> Si je génère mon fichier sur une grosse log, alors le fichier est bien généré dans /result/$param.html, il est complet, mais ma page avec le lien de téléchargement ne s'affiche jamais et je termine de nouveau en timeout
 
Donc en fait le pb n'a rien a voir avec la BDD, c'est ton chargement de la page html générée qui échoue, c'est bien ça?
 
A+,


Message édité par gilou le 12-06-2018 à 13:44:49

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 12-06-2018 à 13:51:37    

Merci Gilou, oui c'est bien ça :(
Pourtant j'ai d'autre pages sur le même model qui fonctionnent parfaitement, et cette même page fonctionne si le résultat de la requête SQL, donc le fichier généré, n'est pas trop grand !
 
je vais tester le while à vide.
 
:jap:

Reply

Marsh Posté le 12-06-2018 à 13:54:35    

Je viens de tester avec la boucle à vide et ça fonctionne dans tous les cas :(

Reply

Marsh Posté le 13-06-2018 à 16:12:28    

Le problème est donc dans cette partie, et tout à fait en dehors du code DBI :

Code :
  1. #Création de la page html
  2. my $browser = create_lwp_browser();
  3. my $page="<html>
  4. <head>
  5. <title>CMA Request</title>
  6. <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8_decode\"/>
  7. <link rel=\"stylesheet\" type=\"text/css\" href=\"css/cma.css\">
  8. </head>
  9. <body>
  10. <h1>CMA Log GENErator</h1>
  11. <br>
  12. <br>
  13. <a href=\"result/$param.html\" download=\"result/$param.html\">Telecharger le fichier de log pour le process <b>$name</b> (process #$param)</a>
  14. <br><br>
  15. <a href=\"javascript:history.go(-1)\">Retour</a>
  16. </body>
  17. </html>";
  18. print $page;
  19. sub create_lwp_browser
  20. {
  21. my $browser = LWP::UserAgent->new;
  22. $browser->env_proxy;
  23. $browser->timeout(30);
  24. $browser->agent('ALoGen.pl/1.0');
  25. return $browser;
  26. }


Tu as essayé en augmentant le timeout?
 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 14-06-2018 à 16:21:57    

:hello:
 
Oui j'ai augmenté le timeout sans plus de succès.
 
Je ne pense pas que le problème vienne de la partie que tu cite car elle fonctionne parfaitement quand le résultat de la requête est petit.
 
J'ai encore modifié le code pour limiter les IO, je mets tout dans une variable et j'écris le fichier d'un coup.
 

Code :
  1. use strict;
  2. use warnings;
  3. use LWP::UserAgent;
  4. use CGI;
  5. use DBI;
  7. my $cgi = new CGI;
  8. my $param = $cgi->param('param');
  9. my $name = $cgi->param('name');
  11. my $data_source = q/dbi:ODBC:localhost/;
  12. my $user = q/sql_admin/;
  13. my $password = q\password\;
  14. my $direction="IN";
  15. my $data;
  17. my $result="<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
  18. <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
  19. \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
  20. <HTML xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">
  21. <HEAD>
  22.  <TITLE>Complete Session Log for Dossier - Process - Reporting</TITLE>
  23.  <STYLE>
  24.   BODY{font-family: helvetica;}
  25.   TABLE.AutomateTable {width: 100%;border: 1;empty-cells: show;border-collapse: collapse;font-size: 8pt;}
  26.   TD, TH {border: 1px solid #9fa4c1;padding-left: 3px;padding-right: 1px;padding-top: 1px;padding-bottom: 1px;vertical-align: top;}
  27.   TH {font-weight: bold; color: white;background-color: #9fa4c1;}
  28.  </STYLE>
  29. </HEAD>
  30. <body>
  31.  <h1>CMA Log GENErator</h1>
  32.  <table class=\"AutomateTable\">
  33.  <br>
  34.  <caption>$param - $name<caption>
  35.  <br>
  36.  <tr>
  37.  <th>stagename</th><th>result</th><th>startdatetime</th><th>Value</th>
  38.  </tr>";
  40. print "\n";
  42. # Connect to the data source and get a handle for that connection.
  43. my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=localhost;UID=$user;PWD=$password" ) or die "Can't connect to $data_source: $DBI::errstr";
  44. $dbh->{LongReadLen} = 25000;
  46. # Select to get sessionnumber
  47. my $sql="select stagename, result, startdatetime, attributexml from [CMA].[sch_CMA].[CMALog] where sessionnumber='$param'";
  48. my $sth= $dbh->prepare_cached($sql);
  49. $sth->execute();
  51. my($stagename, $res, $startdatetime, $Value);
  52. $sth->bind_columns(undef, \$stagename, \$res, \$startdatetime, \$Value);
  54. while ($sth->fetch)
  55. {
  56. if (defined $Value)
  57. {
  58.  my @datas=split (/</,$Value);
  59.  foreach $data(@datas)
  60.  {
  61.   $data=~s/>//g;
  62.   if ($data=~m/parameters/|| $data=~m/inputs/ || $data=~m/outputs/)
  63.   {
  64.    next;
  65.   }
  66.   if ($data=~m/input/)
  67.   {
  68.    $direction="IN";
  69.    $data=~s/input//g;
  70.   }
  71.   if ($data=~m/output/)
  72.   {
  73.    $direction="OUT";
  74.    $data=~s/output//g;
  75.   }
  76.   $data="direction=$direction $data";
  78.   $result=$result."<tr><td>$stagename</td><td></td><td></td><td>$data</td></tr>
  79.   ";
  80.  }
  81. }
  82. else
  83. {
  84.  $result=$result."<tr><td>$stagename</td><td>$res</td><td>$startdatetime</td><td>$Value</td></tr>
  85.  ";
  86. }
  87. }
  89. $result=$result."</table>
  90. </body>
  91. </html>";
  93. $sth->finish();
  94. $dbh->disconnect;
  96. open (my $fh, '>', "result/$param.html" );
  97. print $fh $result;
  98. close $fh;
  100. #Création de la page html
  101. my $browser = create_lwp_browser();
  102. my $page="<html>
  103. <head>
  104. <title>CMA Request</title>
  105. <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8_decode\"/>
  106. <link rel=\"stylesheet\" type=\"text/css\" href=\"css/CMA.css\">
  107. </head>
  108. <body>
  109.  <h1>CMA Log GENErator</h1>
  110.  <br>
  111.  <br>
  112.  <a href=\"result/$param.html\" download=\"result/$param.html\">Telecharger le fichier de log pour le process <b>$name</b> (process #$param)</a>
  113.  <br><br>
  114.  <a href=\"javascript:history.go(-1)\">Retour</a>
  115. </body>
  116. </html>";
  118. print $page;
  120. sub create_lwp_browser
  121. {
  122. my $browser = LWP::UserAgent->new;
  123. $browser->env_proxy;
  124. $browser->timeout(300);
  125. $browser->agent('ALoGen.pl/1.0');
  126. return $browser;
  127. }


 
Je suis allé plus loin dans mes tests, si je mets en commentaire le else dans le if du while alors ça fonctionne :

Code :
  1. while ($sth->fetch)
  2. {
  3. if (defined $Value)
  4. {
  5.  my @datas=split (/</,$Value);
  6.  foreach $data(@datas)
  7.  {
  8.   $data=~s/>//g;
  9.   if ($data=~m/parameters/|| $data=~m/inputs/ || $data=~m/outputs/)
  10.   {
  11.    next;
  12.   }
  13.   if ($data=~m/input/)
  14.   {
  15.    $direction="IN";
  16.    $data=~s/input//g;
  17.   }
  18.   if ($data=~m/output/)
  19.   {
  20.    $direction="OUT";
  21.    $data=~s/output//g;
  22.   }
  23.   $data="direction=$direction $data";
  25.   $result=$result."<tr><td>$stagename</td><td></td><td></td><td>$data</td></tr>
  26.   ";
  27.  }
  28. }
  29. #else
  30. #{
  31. # $result=$result."<tr><td>$stagename</td><td>$res</td><td>$startdatetime</td><td>$Value</td></tr>
  32. # ";
  33. #}
  34. }


 
C'est donc la ligne

Code :
  1. $result=$result."<tr><td>$stagename</td><td>$res</td><td>$startdatetime</td><td>$Value</td></tr>

qui pose problème.
 
Dans les logs de mon serveur Web je vois pourtant que la page renvoie un code 200 même quand je tombe en timeout :(


Message édité par web_olivier le 15-06-2018 à 10:16:46
Reply

Marsh Posté le 14-06-2018 à 17:10:00    

J'ai trouver la solution :)
 
C'est la variable $res qui posait problème quand elle est vide.
 
J'ai donc ajouté ce contrôle dans le else:

Code :
  1. else
  2. {
  3.  if (!defined $res)
  4.  {
  5.   $res="";
  6.  }
  7.  $result=$result."<tr><td>$stagename</td><td>$res</td><td>$startdatetime</td><td></td></tr>
  8.  ";
  9. }


 
 :bounce:  :bounce:  :bounce:  
 
On peut peut-être faire plus propre ?
 
 :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed