Discussion :

[LeYouss]

Bonjour à tous

Bon voila, je suis en stage et je doit faire un programme en PERL pour éteindre un groupe de serveurs. Moi le perL je croyait que c'était des bijoux mais NON c'est un langage de programmation . J'ai donc fait cette fameuse découverte hier. et malgré moi j'ai fait ce mini programme:

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
28
29
30
31
32
33
#!/usr/local/bin/perl
 
#ce programme va se connecter à un serveur telnet et executer une commande 
#il va éteindre le serveur cible
# pour le test nous allons éteindre une machine windows xp 
 
 
 
 my $username="comtest"; 
 my $passwd="comtest"; 
 
@hosts=('Zorro','Checknorris');
 
#ne vous soucier pas des noms!!!
 
 my $telnt = new Net::Telnet (Timeout=>undef) or die "ne peut pas se connecter!"; 
 
my $lvar;
my $i=0;
 
foreach $lvar(@hosts)
{
 
 printf("s'apprete à éteindre machine: %s \n", $i);
 $telnt->open($HOST);
 $telnt->login($username, $passwd); 
 
 
 @lines = $telnt->cmd("shutdown -s -t 0");
 
 print join(' ',@lines);
  $i++;
}

ce que je veut en fait c'est quelqu'un puisse me corriger ce qu'est cencé etre cette chose enfin ce morceau de programme. Car ça ne fonctionne pas

MERCI d'avance!!

[nicoooooo]

Moi le perL je croyait que c'était des bijoux

Et bien figures toiqu'il s'agit également bien de bijoux que l'on appelle "Perles", comme quoi les rumeurs sont parfois veridiques.

[Invité]

Et bien figures toiqu'il s'agit également bien de bijoux que l'on appelle "Perles", comme quoi les rumeurs sont parfois veridiques.

Mais là tu ne réponds pas à son problème...

LeYouss, commence par rajouter

Code :

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

use Net::Telnet;

en dessous du shebang...
Ah oui, le shebang c'est

Code :

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

#!/usr/local/bin/perl

[GLDavid]

Les balises codes LeYouss
Merci d'avance.

@++

[Invité]

Sinon :

[Jedai]

J'ai mis les balises pour toi vu que c'est la première fois, mais maintenant tu n'as plus d'excuses !
Edites ton message pour voir comment j'ai fait.

--
Jedaï

[LeYouss]

merci les gags ....sympa ..vous témoigner la de la qualité de ce forum ...sérieusement..figurer vous que mon programme marche...et j'en suis trés content pour mon premier programme en PERL ..je suis fier ......merci encore ..et continuez comme ça vous ferez des heureux(ses)

[Invité]

Cool ! Alors continuons dans les bons conseils : passe ton topic en résolu (en bas du topic)