Discussion :

[tsunamijf]

Bonjour à tous,

Débutant en perl, je souhaite comparer une variable dont la valeur est le résultat d'une commande systeme avec une valeur d'un champ dans un fichier XML

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $arch = `uname -m`
[... code perl ...]
my $archi_xml = $SERVER->first_child('OS')->first_child('ARCHITECTURE')->text;
 
if ( $arch_xml eq $arch )
{
print "OK\n;"
}
else {
print "KO\n;"
}

quand je fais un print de my $arch, j'obtiens bien par exemple : i686
dans mon fichier xml, $arch_xml vaut i686

quand je remplace

Code :

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

my $arch = `uname -m`

par

Code :

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

my $arch = "i686";

, la comparaison fonctionne

Je pense que j'utilise mal lperl avec les commandes systemes mais j'ai du mal à trouver ma réponse sur le web

[Jedai]

C'est très probablement parce qu'il y a un retour chariot à la fin du résultat de la commande système et pas dans le champ XML, un petit chomp() devrait arranger ça.

--
Jedaï

[tsunamijf]

exact, ca fonctionne ainsi.

J'avais testé entre temps avec un la fonction strip et ca marchait également.

Merci pour l'information

[Jedai]

N'oublie pas d'appuyer sur le bouton "Résolu" en bas de la discussion. Modifier le titre de ton premier message comme tu l'as fait n'est pas nécessaire.

--
Jedaï