problème connexion ssh

Bonjour,
je dois créer un programme qui se connecte en ssh à un poste distant.
Les login, mot de passe et nom de l'hote doivent être récupérés à partir d'un fichier.

Si je fais mon programme comme ça, en donnant directement les variables $host, $username et $password, le programme marche bien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl -w use strict; use Net::SSH::Perl;   my $host = "********"; my $username = "********"; my $password = "********";   my $ssh = Net::SSH::Perl->new($host); $ssh->login($username, $password);   $ssh->cmd('**commande à effectuer**');

---

Par contre si je tente la récupération des variables à partir du fichier, la connexion ne marche pas, alors que les variables contiennent exactement la même chose que dans le 1er cas, j'ai fait des tests avec des if pour vérifier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl -w use strict; use Net::SSH::Perl;   my ($host, $username, $password);   open(INI, "config.ini") or die ("error opening config.ini"); while (<INI>) { ($a, $b) = split / = /, $_, 2; if ($a eq "login") {$username = $b;} elsif ($a eq "pass") {$password = $b;} elsif ($a eq "test_name") {$host = $b;} } close(INI);   chomp ($username, $password, $host);   my $ssh = Net::SSH::Perl->new($host); $ssh->login($username, $password);   $ssh->cmd('**commande à effectuer**');

---

sachant que mon fichier config.ini contient ces lignes :

Citation:

---

login = ********
pass = ********
test_name = ********

---

Quand j'exécute ce programme, j'ai ça qui apparaît :

Citation:

---

input must be 8 bytes long at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Crypt/DES.pm line 57.

---

Est-ce que quelqu'un a déjà eu ce problème ?

Tu as oublié de chomp()er les lignes, il reste un \n qui traine à la fin... ;)

--
Jedaï

Bah non le chomp() est bien là :

Citation:

---

Envoyé par nic_cool

Code:

---

1 2	chomp ($username, $password, $host);

---

---

Et puis je peux aussi faire un test : avant la connexion, je rajoute ce test :

Code:

---

1 2 3

if ($username eq "********" and $password eq "********" and $host eq "********") {print "OK\n";}

---

le progrmme m'affiche bien "OK" avant de me mettre la même ligne d'erreur, donc les variables contiennent bien exactement la même chose que dans le cas de mon 1er programme, qui lui passe la connexion sans problème...

Ca me dépasse... Je vois une possibilité : tu lis par défaut en utf8, tes strings sont donc marquées comme utf8 (même s'il n'y a aucun caractère en dehors du ASCII dedans) et ça perturbe Crypt:: DES pour une raison qui m'échappe.
Essaie d'utiliser Encode::is_utf8() pour vérifier et Encode::_utf8_off() si c'est bien ça.
Mais je crains qu'il ne s'agisse que d'une fausse piste tirée par les cheveux....

--
Jedaï

Youpi ça marche !!
J'ai simplement rajouté

Code:

---

use bytes;

---

et la connexion passe sans problème:D
Merci beaucoup !!