Discussion :

[caramon _majere]

Bonjour,

je cherche à tester des ouvertures de ports sur des équipements via la commande UNIX/LINUX "nc"'.
Je ne peux pas installer le module NET:ING.

Le but est de lancer la commande avec des options dont des arruments qui sont des adresses IP venant d'un fichier tout en récupérant le résultant dans des scalar via la commande "qx" pour être traités par la suite.
Les commandes se lancent. Le résultat s'affiche à l'écran mais je n'ai rien qui s'affiche dans la scalar $NC.

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
 
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
no warnings 'uninitialized';
 
my @all;
 
open (my $SOURCE, "<", "$ARGV[0]") or die "Can't open < input.txt: $!";
 
while (<$SOURCE>) {
	chomp;
	push @all, split (/\n/, $_);
	}
 
foreach my $IP (@all) {
	my $NC = qx(nc -vz $IP 22-23);
	print Dumper $NC;
}

Résultat:
$ perl test.pl source.txt
nc: connect to 127.0.0.1 port 22 (tcp) failed: Connection refused
nc: connect to 127.0.0.1 port 23 (tcp) failed: Connection refused
$VAR1 = '';
nc: connect to 8.8.8.8 port 22 (tcp) failed: Connection timed out
nc: connect to 8.8.8.8 port 23 (tcp) failed: Connection timed out
$VAR1 = '';
Connection to 6.91.128.139 22 port [tcp/ssh] succeeded!
nc: connect to 6.91.128.139 port 23 (tcp) failed: Connection timed out
$VAR1 = '';

A première vu en regardant d'autres exemples, je devrais bien récupérer une valeur dans $NC.

Serait la boucle qui pose un problème ?

Si vous avez une idée

[Lolo78]

Bonjour,

d'abord une remarque. Cette boucle:

Code :

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

1
2
3
4
5
 
while (<$SOURCE>) {
	chomp;
	push @all, split (/\n/, $_);
}

est un peu étrange: dans la mesure où l'instruction de boucle while (<$SOURCE>) divise le fichier source en lignes individuelle, le split sur la regex /\n/ ne peux guère splitter grand-chose. Tu devrais quand même récupérer le contenu de la ligne, mais ce n'est peut-être pas ce que tu souhaites (je ne peux en juger, car tu n'as pas montré le contenu du fichier en entrée).

Ensuite, pour essayer de comprendre ce qui se passe, tu devrais imprimer le contenu de la variable $IP juste avant l'instruction qx/nc .../. Cela permettra de savoir ce que tu passes exactement à la commande nc. Ensuite, essaie de lancer depuis le prompt du shell la commande nc avec les paramètres que tu lui passes, pour voir ce qu'elle retourne exactement.

A noter que les messages d'erreur que tu reçois sont envoyés très certainement sur la sortie d'erreur (STDERR) en ne sont donc pas récupérés par le commande qx/.../ qui ne récupère que la sortie standard (STDOUT). Si ta commande nc (sous Linux) n'envoie rien sur la sortie standard, alors il est normal que qx/.../ ne récupère rien. Pour être sûr de ce que la commande nc depuis l'invite du shell renvoie sur la sortie standard, tu peux rediriger la sortie d'erreur vers un fichier ou vers /dev/null, par exemple avec une commande Linux du type:

Code :

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

1
2
 
nc -vz $IP 22-23 2>/dev/null

(en supposant que $IP est une variable d'environnement contenant l'une de tes adresses IP). Il n'y aura alors plus que la sortie standard qui s'affichera à l'écran.

Je pense que tu découvriras que ta commande nc ne renvoie rien vers la sortie standard parce que la commande échoue probablement. Si ça n'est pas le cas, alors montre nous ce que cette commande Linux t'affiche. Et si c'est le cas, alors c'est un problème Linux, pas du tout un problème Perl.

[caramon _majere]

Bonsoir Lolo,

Effectivement, j'ai simplifié la boucle while.

Bien vu, c'est bien parce que les message sont des SDTERR (c'est piégeur ca vu que on le voit à l'écran) que je ne retrouve rien dans ma variable tiré de qx.

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
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
no warnings 'uninitialized';
 
my @all;
 
open (my $SOURCE, "<", "$ARGV[0]") or die "Can't open < input.txt: $!";
 
while (<$SOURCE>) {
	chomp;
	push @all, $_;
	}
 
foreach my $IP (@all) {
	my $NC = qx(nc -vz $IP 22-23 2>/dev/null);
	print Dumper $NC;
}

Résultat:
$VAR1 = '';
$VAR1 = '';
$VAR1 = '';

Ce soir je n'ai pas le temps de regarder comment tout récupérer, je ferais des recherches demain.

[caramon _majere]

Après plusieurs test, je bloque pour pour afficher le comportement normal et récupérer dans une variable le STDOUT et STDERR dans une même variable.

le fichier source.txt
127.0.0.1
8.8.8.8
6.91.128.139

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
 
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
no warnings 'uninitialized';
 
my @all;
 
open (my $SOURCE, "<", "$ARGV[0]") 	or die "Can't open < input.txt: $!";
 
while (<$SOURCE>) {
	chomp;
	push @all, $_;
	}
 
	foreach my $IP (@all) {
	my $output = qx(nc -vz $IP 22 2>&1);
	print Dumper $output;
	}
 
close $SOURCE;

RESULTAT

$ perl test.pl source.txt
$VAR1 = 'nc: connect to 127.0.0.1 port 22 (tcp) failed: Connection refused
';
$VAR1 = 'nc: connect to 8.8.8.8 port 22 (tcp) failed: Connection timed out
';
$VAR1 = 'Connection to 6.91.128.139 22 port [tcp/ssh] succeeded!
';

Deux problème, je n'ai plus la sortie standard et la commande push produit des erreurs.

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
my @all;
 
open (my $SOURCE, "<", "$ARGV[0]") 	or die "Can't open < input.txt: $!";
 
while (<$SOURCE>) {
	chomp;
	push @all, $_;
	}
 
	foreach my $IP (@all) {
	my $output = qx(nc -vz $IP 22 2>&1);
	print Dumper $output;
	push @all, $output;
	}
 
print for "@all";	
 
close $SOURCE;

$ perl test.pl source.txt

$VAR1 = 'nc: connect to 127.0.0.1 port 22 (tcp) failed: Connection refused
';
$VAR1 = 'nc: connect to 8.8.8.8 port 22 (tcp) failed: Connection timed out
';
$VAR1 = 'Connection to 6.91.128.139 22 port [tcp/ssh] succeeded!
';
sh: -c: ligne 0: erreur de syntaxe près du symbole inattendu « ( »
sh: -c: ligne 0: `nc -vz nc: connect to 127.0.0.1 port 22 (tcp) failed: Connection refused'
$VAR1 = '';
sh: -c: ligne 0: erreur de syntaxe près du symbole inattendu « ( »
sh: -c: ligne 0: `nc -vz nc: connect to 8.8.8.8 port 22 (tcp) failed: Connection timed out'
$VAR1 = '';
nc: port numb

On dirait que $output n'a pas copié des résultats mais chercher à passer des commandes.

[Lolo78]

Et tu obtiens quoi quand tu essaies chacune des commandes suivantes à la ligne de commande du shell:

Code :

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

1
2
3
4
5
 
nc -vz 8.8.8.8 22 2>&1
nc -vz 8.8.8.8 22 2>/dev/null
nc -vz 6.91.128.139 22 2>&1
nc -vz 6.91.128.139 22 2>/dev/null

[caramon _majere]

Voici les retours :

Seul 2>&1 apporte un résultat.

wsfs6503@EB-PC02KXES ~/SCRIPT
$ nc -vz 8.8.8.8 22 2>&1
nc: connect to 8.8.8.8 port 22 (tcp) failed: Connection timed out

wsfs6503@EB-PC02KXES ~/SCRIPT
$ nc -vz 8.8.8.8 22 2>/dev/null

wsfs6503@EB-PC02KXES ~/SCRIPT
$ nc -vz 6.91.128.139 22 2>&1
Connection to 6.91.128.139 22 port [tcp/ssh] succeeded!

wsfs6503@EB-PC02KXES ~/SCRIPT
$ nc -vz 6.91.128.139 22 2>/dev/null

wsfs6503@EB-PC02KXES ~/SCRIPT