Discussion :

[super_dz]

Bjr TLM,

je veux exécuter des commandes sur un serveur de mon réseau local, et j'utilise un socket Perl

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
#!/usr/bin/perl
#use strict;
use warnings;

$socket = IO::Socket::INET->new(PeerAddr=> '@IP',
                                        PeerPort=> 8080,
                                        Proto=> "tcp",
                                        Timeout=>10,
                                        Type=> SOCK_STREAM)   || die "Cannot connect to $adr_ip:$por $@";
      
my $s=IO::Select->new();

$socket->send("df -k"."\r",'');
sleep 2;

$socket->send("prstat"."\r",'');
sleep 2;


$socket->send("date"."\r",'');
sleep 2;

$s->remove($socket);
close($socket);

et quand j'exécute, j'ai ca :

Code :

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

1
2
3
4
5
$ ./Perl_sock-v2.pl
Name "main::adr_ip" used only once: possible typo at ./Perl_sock-v2.pl line 10.
Name "main::por" used only once: possible typo at ./Perl_sock-v2.pl line 10.
Can't locate object method "new" via package "IO::Socket::INET" (perhaps you forgot to load "IO::Socket::INET"?) at ./Perl_sock-v2.pl line 6.

pour info, je suis nul en Socket, et c'est juste une tentative de ma part, pour le module net SSH Perl, j'arrive pas a l'installé, il me dis a chaque fois qu'il faut installé un tel ou tel module, alors je tente avec Socket

et je sais pas si avec NET SSH PERL est plus rapide que le Socket en réponse,

mais j'ai tenté en Socket mais ca passe pas !!!

[Ganondorf]

salut,

ou sont définis @IP, $adr_ip et $por ?
et si tu veux utiliser le module IO::Socket::INET pense a l'appeller dans ton code.

[super_dz]

ah OK, t'a raison, j'ai fait les chgts nécessaire, mais j'ai ce prob :

Code :

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

1
2
3
4
 
 
$ ./Perl_sock-v2.pl
Cannot connect IO::Socket::INET: connect: Operation now in progress at ./Perl_sock-v2.pl line 11.

que dois je faire maintenant !!!!

[Ganondorf]

peut tu montrer le code

[super_dz]

le CODE :

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
#!/usr/bin/perl
#use strict;
use warnings;
 
use IO::Socket;
 
$host = '@IP';
$port = 8080;
 
 
$socket = IO::Socket::INET->new(PeerAddr=> $host,
                                        PeerPort=> $port,
                                        Proto=> "tcp",
                                        Timeout=>10,
                                        Type=> SOCK_STREAM)   || die "Cannot connect $@";
 
$socket->send("command1"."\r",'');
sleep 2;
 
$socket->send("command2."\r",'');
sleep 2;
 
 
$socket->send("command3"."\r",'');
sleep 2;
 
close($socket);

[Ganondorf]

à quoi correspond @IP ?

[super_dz]

au lieu que je tape l'adresse IP, j'ai mis 0IP

mais dans le Script, j'ai mis une adresse réel, pas les caractères 0IP

voila mon ami

[CKLN00]

quand tu met ton code dans la balise [CODE] n'y met aucune autres balises (genre pas de balises [SIZE="2"]) car cela enleve la coloration

[Ganondorf]

ok, par contre c'est normal que tu tentes une connexion ssh sur le port 8080 ?

[super_dz]

OK, alors dans ce cas, quel Port je dois utilisé ???

[Ganondorf]

le port ssh est le 22

petit exemple de code qui fonctionne:

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
 
#!/usr/bin/perl
use strict;
use warnings;
 
use IO::Socket;
 
my $host = '192.168.1.3';
my $port = 22;
my $socket; # IO::Socket:INET object
 
 
$socket = IO::Socket::INET->new(PeerAddr=> $host,
                                PeerPort=> $port,
                                Proto=> "tcp",
                                Timeout => 10,
                                Type=> SOCK_STREAM) or die "Cannot connect $@";
 
my $str; 
my $received = recv($socket,$str,1024,0);
print "- $str\n";
 
close($socket);

c'est un début ici le socket se connecte récupère le message envoyé par le sshd, l'affiche et se termine.

[super_dz]

Salut TLM,

ca marche pour moi

l'erreur était dans mes commandes, car j'ai fait un telnet ce qui a obligé que les commandes qui suivent ne fonctionne pas en telnet

mais ca marche, le prob était avec les commandes, la forme du Script est correct

merci pour vous tous