Discussion :

[alx63]

Bonjour,

Je voudrai récupérer le nombre de balise d'1 fichier xml et faire une boucle for pour traiter chaque balise.
Mon pb c'est que j'aimerai récupérer tour à tour les valeur de

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
DELIVERY_FILE_TITLE1, DELIVERY_FILE_TITLE2...
 
        $_=`grep DELIVERY_FILE_TITLE $xml_file | wc -l`;
        for ($i=0; $i<$_; $i++)
        {
                if ( $F->{DELIVERY_FILE_TITLE${i}} )
                {
                        push @args, "-ii-title \"$F->{DELIVERY_FILE_TITLE${i}}\"";
                }
                else
                {
                        print LOG "[WARNING] ".localtime(time)." DELIVERY_FILE_TITLE not provided. Skipping.\n";
                        $optsfile .= ".error";
                }
 
                if ( $F->{DELIVERY_FILE_NAME${i}} )
                {
                        push @args, "-ii-description \"$F->{DELIVERY_FILE_NAME}\"";
                }
        }

Merci pour votre aide.

[6ril23]

je comprends pas trop ce que tu veux faire mais j'ai deux petites remarques:

- si tu veux traiter des balises xml, il y a des fonctions prévues à cet effet
(regarde ici tu trouveras sûrement ton bonheur: http://djibril.developpez.com/tutoriels/perl/perl-xml/)

- ta commande `grep DELIVERY_FILE_TITLE $xml_file | wc -l` te renverra le nombre de lignes avec ce texte donc pas forcément le nombre que tu souhaites. exemple simple:

Code :

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

1
2
3
4
5
<DELIVERY_FILE_TITLE1> 
    <DELIVERY_FILE_TITLE2>
        Texte
    <\DELIVERY_FILE_TITLE2>
<\DELIVERY_FILE_TITLE1>

Ton grep renvoie "4" et tu risques d'avoir des problèmes lors de ton traitement car les balises DELIVERY_FILE_TITLE3 et DELIVERY_FILE_TITLE4 n'existe pas

une solution pour ton grep serait (à tester) d'utiliser la commande

Code :

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

`grep '<DELIVERY_FILE_TITLE' $xml_file | sort -u | wc -l`;

[alx63]

Quelque précisions :
Mon fichier xml contient des balises comme ceci

Code :

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

1
2
3
<DELIVERY_FILE_TITLE1>texte1<\DELIVERY_FILE_TITLE1>
<DELIVERY_FILE_TITLE2>texte1<\DELIVERY_FILE_TITLE2>
...

donc normalement c'est sur une seule ligne, mais le sort -u ne coute rien, merci.

Mon but ensuite est juste de faire un for pour le nombre de balise comptée et de récupérer sa valeur en fonction de $i.

[6ril23]

ok dans ce cas tu peux peut être juste faire quelque chose comme:

Code :

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

1
2
3
4
5
6
7
8
9
open(FH_IN, $xml_file);
while ( <FH_IN> ){
    if ( $_ =~ /<(DELIVERY_FILE_TITLE(\d+))>(.+)<\\DELIVERY_FILE_TITLE\d+>/ ){
        #Traitement souhaite selon ton besoin
        # la variable $1 contiendra: "DELIVERY_FILE_TITLE1", "DELIVERY_FILE_TITLE2" ou ...
        # $i de ton code sera ici $2
        # le texte entre les balises sera sous la variable $3
    }
}

mais ton bout de code m'a l'air d'être une sous partie d'un script alors je sais pas si cette solution sera pratique pour toi

[alx63]

Bonjour et merci.
mais effectivement ce bout de code fait parti d'un script auquel on me demande de rajouter une fonctionnalité.

La façon dont j'essaie de procéder ne vous parait pas possible ?

[6ril23]

si si c'est surement possible comme tu fais même si comme ça pas facile d'en être sûr

par contre j'arrive pas trop à voir ce que tu attends... Ton bout de code fonctionne? si non explique ce qui ne va pas qu'on puisse t'aider

[alx63]

Bonjour,

à l'heure actuelle, j'ai : si le tag existe dans le fichier xml, je le pousse dans @args

Code :

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

1
2
3
4
if ( $F->{DELIVERY_FILE_TITLE} )
{
          push @args, "-ii-title \"$F->{DELIVERY_FILE_TITLE}\"";
}

Maintenant, je vais avoir plusieurs tag possibles. Donc je veux savoir combien (grep).
Et je veux les mettre chacun leur tour dans @args

Code :

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

1
2
3
4
5
6
7
8
9
$_=`grep DELIVERY_FILE_TITLE $xml_file | wc -l`;
        for ($i=0; $i<$_; $i++)
        {
                my @args = ();
                if ( $F->{DELIVERY_FILE_TITLE${i}} )
                {
                        push @args, "-ii-title \"$F->{DELIVERY_FILE_TITLE${i}}\"";
                }
        }

[6ril23]

ok par contre attention à ta numérotation car le premier élément dans les balises est DELIVERY_FILE_TITLE1 alors qu'avec ton code, tu stockeras dans ton 'array' DELIVERY_FILE_TITLE0