Bonjour,

Je n'arrive pas à exécuter correctement un script sur une machine distante. Voici les deux codes :

Script de récupération des informations (machine locale) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
print "==> Connexion SSH en cours...\n";

$ssh = Net::OpenSSH->new($host,user => $user_name, password => $password);
$ssh->error and die "unable to connect to remote host : ". $ssh->error;

print "Connexion OK\n";

$remote = $ssh->capture("hostname");
chomp($remote);
$date = strftime "%Y%m%d",localtime;
$dir_conf = $remote."_".$date;

@output = $ssh->capture("sh /.../wrapper.sh \"$dir_conf\"");

@output = $ssh->capture("ls /.../test/");

foreach (@output)
{
        print FILE "Fichier : $_\n";
        @outFile = $ssh->capture("cat /.../test/$_");
        foreach my $a (@outFile)
        {
                print FILE "$a";
        }
}

close (FILE);
Partie du script sur la machine distante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
#appel de ReplicationList pour avoir la liste des functional area du ReplicationExport
open ReplicationList, "ReplicationList -u $s_Openet_User -p $s_Openet_Password |" or die "Failed to call ReplicationList";
my $i_cpt = 0;
Est-ce qu'il faudrait ajouter quelque chose comme . .profile ?

Je n'ai actuellement aucune idée du pourquoi ça ne marche pas... J'ai pas trouvé grand chose d'intéressant sur le net à l'heure actuelle.

Merci d'avance !

[EDIT] j'ai essayé de passer par un "wrapper" :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
#!/bin/sh
 
source ~/.profile
 
perl /.../ExportConf.pl