IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

2.pl lancé par 1.pl : pb pour traiter les erreurs


Sujet :

Langage Perl

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 57
    Points
    57
    Par défaut [résolu]2.pl lancé par 1.pl : pb pour traiter les erreurs
    Bonjour,

    Suite à ce post
    http://www.developpez.net/forums/viewtopic.php?t=417080

    j'en ouvre un nouveau car je n'arrive pas à traiter le résultat du second script : analyse de la présence de "timeout".
    Le résultat du script2 s'affiche différemment à l'écran selon que je le lance directement ou via le script1.

    Lancement de script 2 à la console :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    [root@PCTEST ²configVDR]# ./xml.pl -t 1 -v -c channels.conf -x mixed.xml -l channels_mixed.trans
    Reading file 'channels.conf'...
    Reading file 'mixed.xml'...
    All information imported...
    Updating EPG...
    Channel: M6
    ********************************************
     
    timeout
    [root@PCTEST ²configVDR]#
    Lorsque je lance script2 via script1 comme ceci :

    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
     
    my @Result = qx/perl xml.pl -t 1 -v -c $GrabDir"channels.conf" -x $GrabDir$XmlFileName -l $GrabDir$ChannelsTransName/;
    print "\n\n\n";
     
    print "RAPPORT\n\n";
    print "0: "; print @Result[0]; 
    print "1: "; print @Result[1]; 
    print "2: "; print @Result[2]; 
    print "3: "; print @Result[3]; 
    print "4: "; print @Result[4]; 
    print "5: "; print @Result[5]; 
    print "6: "; print @Result[6]; 
    print "7: "; print @Result[7]; 
    print "8: "; print @Result[8]; 
    print "9: "; print @Result[9]; 
    exit;

    Je récupère cela :
    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
     
    [root@PCTEST ²configVDR]# ./auto.pl -d
    Scalar value @Result[0] better written as $Result[0] at ./auto.pl line 217.
    "my" variable @Result masks earlier declaration in same scope at ./auto.pl line 217.
    Scalar value @Result[1] better written as $Result[1] at ./auto.pl line 218.
    "my" variable @Result masks earlier declaration in same scope at ./auto.pl line 218.
    timeout
     
     
     
    RAPPORT
     
    0: Reading file '/video0/²configVDR/channels.conf'...
    1: Reading file '/video0/²configVDR/mixed.xml'...
    2: All information imported...
    3: Updating EPG...
    4: Channel: M6
    5: ******************************************
    Use of uninitialized value in print at ./auto.pl line 223.
    Use of uninitialized value in print at ./auto.pl line 224.
    Use of uninitialized value in print at ./auto.pl line 225.
    Use of uninitialized value in print at ./auto.pl line 226.
    6: 7: 8: 9: [root@PCTEST ²configVDR]#
    Vous constaterez que le msg d'erreur "timeout" est insaisissable, car il apparait en haut de l'écran.
    Je cherche à le capturer dans une variable, de manière à détecter sa présence et afficher un msg :
    si timeout absent : afficher "RAS"
    si timeout présent : afficher " PB de TIMEOUT"

    Pourriez-vous m'aider à debugger ?

    Merci.

  2. #2
    tfe
    tfe est déconnecté
    Membre régulier
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 85
    Points : 95
    Points
    95
    Par défaut
    @resultat est un tableau
    chaque variable est accessible via $resultat[0] , $resultat[1] ...

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 57
    Points
    57
    Par défaut
    Citation Envoyé par tfe
    @resultat est un tableau
    chaque variable est accessible via $resultat[0] , $resultat[1] ...
    Je suis d'accord... mais ou se trouve "timeout" ?
    Je "print" de @Resultat[0] à @Resultat[9] en vain.

    Suis-je passé à côté de quelque chose d'évident ?

  4. #4
    Expert éminent
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    avril 2003
    Messages
    6 244
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : avril 2003
    Messages : 6 244
    Points : 8 556
    Points
    8 556
    Par défaut
    Avex qx// on récupère la sortie standard, "timeout" est probablement imprimé sur la sortie d'erreur. Va voir du côté de Open2 et Open3 pour traiter cela, ou utilise les redirection de ton shell (2>&1), mais c'est moins portable.

    --
    Jedaï

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 57
    Points
    57
    Par défaut
    Citation Envoyé par Jedai
    Avex qx// on récupère la sortie standard, "timeout" est probablement imprimé sur la sortie d'erreur. Va voir du côté de Open2 et Open3 pour traiter cela, ou utilise les redirection de ton shell (2>&1), mais c'est moins portable.

    --
    Jedaï
    @Jedai,
    Je crains que cela ne soit plus compliqué que je ne l'imaginais (pour un débutant)...

    Qu'est-ce que "Open2" et "Open3"? Est-un module Perl à ajouter ?
    As-tu un lien à me communiquer pour que je puisse creuser le sujet ?

    Merci.

  6. #6
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 57
    Points
    57
    Par défaut
    Bonsoir,

    Est-ce que quelqu'un pourrait me guider à propos de l'utilisation
    de "Open2" et "Open3" ?

    D'avance merci.

  7. #7
    Expert éminent
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    avril 2003
    Messages
    6 244
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : avril 2003
    Messages : 6 244
    Points : 8 556
    Points
    8 556
    Par défaut
    Tu fais "perldoc -q stderr" et tu as toutes les réponses que tu veux, avec des exemples de code. (IPC::Open3 fait partie du Core Perl, donc pas besoin de l'installer, IPC::Open2 ouvre un processus en lecture/écritue, donc inutile pour toi, désolé de l'erreur)

    --
    Jedaï

  8. #8
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 57
    Points
    57
    Par défaut
    Citation Envoyé par Jedai
    Tu fais "perldoc -q stderr" et tu as toutes les réponses que tu veux, avec des exemples de code. (IPC::Open3 fait partie du Core Perl, donc pas besoin de l'installer, IPC::Open2 ouvre un processus en lecture/écritue, donc inutile pour toi, désolé de l'erreur)

    --
    Jedaï
    D'accord, je pensais qu'il s'agissait d'un module "IPC" à ajouter.
    Je vais donc éplucher la doc. Merci pour ces éclaircissements.

  9. #9
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2005
    Messages
    80
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2005
    Messages : 80
    Points : 57
    Points
    57
    Par défaut
    Pour info, grâce à votre aide et après des recherches supplémentaires, voici comment j'ai pu détecter
    et traiter la présence du message d'erreur "timeout" du script2 lancé par sript1.

    Cela fait peut-être un peu "bricolage", mais cela reste simple et fonctionnel


    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
    my @Output = `"$GrabDir$XmlScriptName" -t $Timeout -v -c $GrabDir"channels.conf" -x $GrabDir$XmlFileName -l $GrabDir$ChannelsTransName  2>&1`;	
     
    ##looking for timeout error
    my $i = 0; my $Result = "OK";
    	while ( ! $Output[$i] eq "") 
    		{
    		print $Output[$i]; 
    		if ($Output[$i] =~ /timeout/)
    			{
    			$Result = "timeout";
    			}  	
    		$i++;
    		}
     
    if ($Result =~ /timeout/)
    	{
    	#####update NOK #####
    	}
     
    else	
    	{
    	#####update OK #####
    	}	
     
    print `$Bip`;			
    exit;

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Envoi mail par excel avec boucle pour tous les champs
    Par jul2012 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/11/2012, 14h54
  2. [PDO] Passer sous silence les warnings pour traiter les erreurs de manière propre
    Par FabaCoeur dans le forum PHP & Base de données
    Réponses: 0
    Dernier message: 22/04/2012, 13h57
  3. Réponses: 0
    Dernier message: 04/08/2010, 18h49
  4. Réponses: 0
    Dernier message: 21/05/2010, 20h28
  5. Réponses: 5
    Dernier message: 24/03/2010, 22h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo