Executer un script TSL avec PERL

**Hoopsy** · 24/10/2008, 17h32

Bonsoir à tous,

Je vous explique mon problème :

Je veux me connecter à une machine distante via son adresse IP, j'execute un script TSL et je charge le résultat sur mon PC, voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
use Net::FTP;
my $ftp = Net::FTP->new("adresse IP de la machine"); 
$ftp->login("login","mot de passe"); 
$ftp->cwd("/le dossier où se trouve le script TSL/"); 
mon_script_tsl.tsl;
$ftp->cwd("/le dossier où se trouve l'output du script TSL (résultat.txt)");
$ftp->get("résultat.txt");
$ftp->quit;

Je n'ai pas d'erreurs avec ce script mais le problème est que le script TSL ne s'exécute pas, je charge toujours un ancien output, je crois que le problème réside dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
mon script tsl.tsl;

J'espère que vous pourriez m'aider

.

Portez-vous bien.

**thierry.chich** · 24/10/2008, 19h06

Ton script est exécuté en local sur ta machine. Il faudrait que tu te connecte sur ta machine distante et que tu exécutes le script. FTP ne te servira à rien pour cela, il n'est tout simplement pas fait pour ça.
A toi de voir comment tu peux te connecter sur la machine distante (telnet, ssh, ..)...

**Hoopsy** · 28/10/2008, 21h48

Bonsoir,

J'ai essayé de me connecter à la machine distante via le telnet, voici le script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 20,Prompt => '/bash\$ $/');
$t->open("adresse IP");
$t->login("login","mot de passe");
$t->cwd("/dossier où se trouve mon script tsl/");
@lines = $t->cmd("mon_script.tsl");
print @lines;

En fait, ça ne marche pas, j'ai le message d'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
timed-out waiting for command prompt at line 4

Je ne comprends pas où je me suis trompée !!!

C'est ce que j'ai l'habitude de faire pour exécuter le script, je me connecte donc par le telnet avec CMD.exe.

SVP de l'aide

.

Cordialement.