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 ?