Bonjour,
 
Mon besoin est simple,
Depuis une machine je veux me connecter en ssh à une autre machine afin de récupérer une liste de fichier pour la traiter ensuite.
J'utilise SSH Expect
 
Quand je test ce même script sur autre serveur il fonctionne.
Quand je l'utilise sur le serveur cible, cela ne fonctionne pas à cause je pense d'un timeout?
 
Je requière donc votre aide pour trouver où cela coince.
 

#!/usr/bin/perl -w
# Purpose: SSH Expect
use warnings;
use strict;
use MIME::Lite;
use MIME::Lite::HTML;
package Net::SMTP::TLS;
use MIME::Base64;
use Authen::SASL;
use LWP::Simple;
use File::Copy;
use File::Find;
use Net::SSH::Expect;
 
my $ssh = Net::SSH::Expect->new (
    host => "10.212.13.14",
    password=> 'PerlForever',
    user => 'toto',
    raw_pty => 1
);
 
my $login_output = $ssh->login();
if ($login_output !~ /Last/) {
    die "Login has failed.\n";
}
 
my $ls = $ssh->exec("ls -ltr /home/toto/201203*" );
print($ls."\n" );
 
$ssh->close();
__END__

 
Voici ce que j'obtiens en réponse:

 
Quand j'ouvre le fichier /usr/share/perl5/Expect.pm à la ligne 813 j'ai

Ben et en changeant la valeur du timeout par défaut, ça donne quoi?
timeout => xxx
A+,

si je mets timeout => 30
cela va me mettre 30sec à m'afficher le même résultat

De toute façon, la, ça ne vient pas du script, comme le prouve la ligne
>> Quand je test ce même script sur autre serveur il fonctionne.  
Ça vient apparemment de ta configuration SSH, et j'ai pas de billes la dessus.
A tout hasard, lances le script avec l'option
debug => 1
A+,

Bonsoir,
 
Pour ma requête je vais laisser tomber ssh expect et le faire directement

Ceci fonctionne bien,
Cependant je voudrai trier la liste des fichiers trouvés pour ainsi ne récupérer que les 2 dernières concurrences.
 
Comme si sur la machine je faisais en local un :

 
Donc j'essaye tout bêtement d'intégrer mon ls -ltr dans mon find, mais cela ne fonctionne pas
 

 
Une p'tite aide ne serait pas de refus !
Merci.

Pourquoi pas essayer de passer par un quote execute plutôt que les backticks?

my $ls = qx{ssh toto\@srv-02 ls -ltr `find /home/toto -maxdepth 1 -type f -name "TXT*" -mtime 0` | tail -2};

ou  

my $ls = qx{ssh toto\@srv-02 ls -ltr `find /home/toto -maxdepth 1 -type f -name "TXT*" -mtime 0`};

A+,

Car je ne maîtrise pas du tout encore le quote execute,
Cependant cela n'affiche pas le résultat escompté
 
Il me dit:
 
find: `/home/toto': No such file or directory
 
Je précise que les fichiers sont bien présents et que ce message je l'ai déjà eu avec mes backticks

Faut tester jusqu'a ce que ça passe, je suis trop grippé pour bien réfléchir ce soir.
Je tenterais
my $ls = qx{ssh toto\@srv-02 ls -ltr \`find /home/toto -maxdepth 1 -type f -name "TXT*" -mtime 0\`};
a tout hasard
A+,

Je tente, je tente mais sans succès
Du coup j'essaye de le faire directement dans le find, j'ai trouvé que le "-ls" était possible
 

Mais hélas il me manque que le tri, et je n'ai pas trouvé dans le find de sort ou le fameux -ltr

C'est bon cela fonctionne avec un simple sort
 

 
Merci !

Un truc comme cela:

devait pas être très éloigné de la solution, car au vu d'une page web, les `dans un `doivent être escapés.
Après, il faut voir ce qui doit être escapé ou pas dans le reste, " ou \" par exemple.
A+,

Merci Gilou,
 
J'ai une dernière question
Avec quote execute, est-ce que l'on peut entrer en paramètre le mot de pass du serveur distant?
Ou bien est-on obligé de copier les clé rsa sur le serveur distant?
 
Je dis ça car je travail sur un serveur Cisco là où il m'est impossible d'y copier les clés.
Expect SSH est une bonne solution car je peux rentrer le login/pwd en paramètre

Dans le texte d'un quote execute, on peut mettre des variables perl, qui seront évaluées à l'exec.
A+,

Ok merci.