Problème Exécution commande système ds perl

Bonjour,

Je me confronte à une difficulté récurrente. Lorsque j’exécute une commande système directement en shell pas de souci.

Dans mon script perl, je souhaite directement exécuter cette même commande avec une connexion ssh et là impossible.

Voici un extrait de mon code:

Code:

---

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

#-------------- 2 : Connexion au serveur my $ssh2 = Net::SSH2->new(); $ssh2->connect($server) or die "ERREUR_CONNEXION :\tsur serveur $server\t$!"; #-------------- 3 : Authentification par clé RSA $ssh2 -> auth_publickey ( $auth[0], $auth[1], $auth[2] ) or die "ERR_LOGIN :\tproblème auth RSA\t"; my $chan2 = $ssh2->channel(); #$chan2->exec('find /var/log/* -type f -size +90M -exec ls -Sl {} \;'); #fonctionnel Dans ce cas mais j'ai besoin de la commande si dessous. #COMMANDE DONT J AI BESOIN QUI NE FONCTIONNE PAS $chan2->exec("find /var/log/* -type f -size +90M -exec ls -Sl {} \; | awk '{print $5 " " $9 }'"); my @tab; unshift(@tab,$_) while <$chan2>;# je récupère le reslutat de la commande que j'envoie dans un tableau print @tab;#J'affiche mon tableau $chan2->close;# FERMETURE TUNNEL CHAN2 $ssh2->disconnect();#Fermeture connexion ssh

---

Je vous remercie pour vos conseils

Bonjour,

Tu as surement un problème d'interpolation de variables car tu te mélanges avec les simples et double guillemets.

Code:

---

$chan2->exec(q!find /var/log/* -type f -size +90M -exec ls -Sl {} \; | awk '{print $5 " " $9 }'!);

---

Bonjour,

Je n'ai pas Net::SSH2, je ne peux pas faire de test avancé.
Pour limiter les pb d'interpolation je te propose une autre syntaxe :

Code:

---

find /cygdrive/e/_APPLI -type f | ls -l | awk '{ s= $5; if(s >= 200){print $0} }'

---

Au préalable il faut s'assurer qu'il n'y a pas d'alias sur ls ou les supprimer :

Code:

---

alias ls=ls

---

Éventuellement (non testé) toujours sans alias :

Code:

---

find /var/log/* -type f -exec ls -l {} \ ; | awk '{ s= $5; if(s >= 200){print $0} }'

---

[EDIT 18:11]
En Cygwin -exec ne passe pas,
J'ai fait un essai sur Linux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl use strict; use warnings; use utf8; #find /var/log/* -type f -size +90M -exec ls -Sl {} \; | awk '{print $5 " " $9 }'! ); #INIT #my @Cde = `find . -type f -size +10000 -exec ls -Sl {} \; | awk '{print $5 " " $9 }'`; #OK MANO my @Cde = 'find . -type f -size +10000 -exec ls -Sl {} \; | awk \'{print $5 " " $9 }\''; print "\n\nCde=@Cde\n\n"; my @TabRes = `@Cde`; print "TABRES\n @TabRes \n"; print "TABRES_0=$TabRes[0]="; print "TABRES_2=$TabRes[2]=";

---

Il faut juste protéger les ' par \
ATTENTION il y à des \n dans @TabRes

La solution djibtil est bien sûr plus lisible ;)

Bonjour,

j'ai effectivement testé vos solutions.

effectivement en échappant les ' ça fonctionne beaucoup mieux !

Un grand merci a tous pour vos conseils