Je souhaiterai executer le contenu d'un variable en perl. J'ai testé eval, mais ca marche pas.
Voila un exemple de contenu de ma variable :

 
et je voudrais donc qu'après avoir executé le contenu, le contenu de ma variable soit du genre :

 
Une idée ?
 
(le contenu de la variable est extrait d'un fichier xml, et le contenu est la premiere citation)

my @uptime = `uptime`; # exécute la commande, garde l'output dans l'array @uptime
print join("\n", @uptime);

Tout d'un coup j'ai un gros doute sur ce que tu demande... La varialbe que tu veux evaluer, elle contient quoi exactement ? La chaine "my $uptime=`uptime`; print $uptime;" ?

oui, la variable que je veux executé contient : "my $uptime=`uptime`; print $uptime;". Et je souhaite que ma variable prenne le résultat de ce qui la contient.

j'ai trouvé
il suffit que je fasse :

où variable contient "my $uptime=`uptime`; print $uptime;"
 
   

je t'encourage pas à faire ce genre de truc, c'est plutot immonde...

arf
et t'as une idée pour le faire de maniere propre ?

je comprend pas vraiment ce que tu essaies de faire, pour moi interpréter un bloc de texte en perl on utilises eval()

bah, le bloc de text c'est pour les test, car après je mettrais des regex, et avec eval, j'ai pas réussi.
C'est le premier truc auquel j'ai pensé, mais ca marchait pas.
Je vais restester alors.

je devais etre très fatigué quand j'avais testé eval ...
 
je viens de le refaire, et ca marche

if ($^O eq 'linux') || die 'Commande non supporté sur cet os';
$pid = open(HANDLE, "/usr/bin/uptime |" );
while() { print; }
close(HANDLE);
 

merci, mais c'est pas de ca que j'ai besoin.
J'ai testé sur uptime car je savais pas quoi mettre en fait.
 
Sinon, à la fin de la chaine renvoyé j'ai un "1\n", vous sauriez comment je peux ne pas l'avoir ?

\n c'est un retour de ligne
 
alors un petit
$foo =~ s/\n//;

chomp() fait ça mieux qu'un s///.

 
j'ai jamais très apprécié les chomp
question de philosophie faut croire

finalement j'ai fait une regex qui me vire le "1\n" à la fin de chaque chaine