Discussion :

[caramon _majere]

Bonjour,

Je coince sur un sujet tout bête, je prépare un petit script pour tester en ping une liste de machine.
Les IP sont dans un fichier fichier.txt qui contien:

8.8.8.8
212.27.48.10
7.7.7.7

Le problème est un saut de ligne mystérieux après l'IP

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
 
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
use Data::Dumper;
no warnings 'uninitialized';
use Net::Ping;
 
my $p = Net::Ping->new("icmp");
while (my $host = <>)
	{
	chomp;
	if ($p->ping($host, 2)) {
		print "$host is reachable.\n";
		} else {
		print "$host is NOT reachable\n";
		}
    sleep(1);
	}
$p->close();

Résultat:
$ perl test.pl fichier.txt
8.8.8.8
is reachable.
212.27.48.10
is reachable.
7.7.7.7 is NOT reachable

En modifiant chomp par chomp($host), les @IP joignable ne s'affiche plus


Résultat:
$ perl test.pl fichier.txt
is reachable.
is reachable.
7.7.7.7 is NOT reachable


je fais les test sous cygwin, perl version 5.22

Merci pour la piste/

[Lolo78]

Bonjour,

Sans doute un problème de fin de lignes Windows sous Linux, ou quelque chose comme ça. Le chomp retire le caractère saut de ligne (\n) mais pas le caractère retour chariot (\r); du coup, ça revient au début de la ligne et écrase ce qui précède.

Essaie de remplacer:

Code :

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

1
2
 
chomp($host)

par:

Code :

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

1
2
 
$host =~ s/[\r\n]//g;

[caramon _majere]

Merci Lolo !

Ca fonctionne avec la substitution.

j'avais crée un autre fichier en tapant directement les adresses soupçonnant ce problème, et donc que entrée en fin de ligne (sur notepad++), mais j'avais le même résultat.

Il y a un moyen de "voir" les "\n" ou "\n\r" en lisant les lignes ? Ou ca reste de le déduction ?

[Philou67430]

Il y a un moyen de "voir" les "\n" ou "\n\r" en lisant les lignes ? Ou ca reste de le déduction ?

Si tu es sous Cygwin, tu tapes la commande suivant dans une console :

Code :

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

od -tc fichier.txt

[caramon _majere]

Ca fonctionne, j'ai appris une commande Unix aujourd'hui

$ od -tc fichier.txt
0000000 8 . 8 . 8 . 8 \r \n 2 1 2 . 2 7 .
0000020 4 8 . 1 0 \r \n 7 . 7 . 7 . 7
0000036

[Lolo78]

Sinon, il y a aussi l'option -ve de la commande cat:

Code :

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

1
2
 
cat -ve nom_fic.txt

qui affiche les caractères fins de lignes (et le retour chariot dos s'affiche comme un "^M" (suivi d'un "$" pour le caractère new line).

Ou encore ouvrir le fichier avec vi, ils seront aussi affichés.

[Philou67430]

Et moi, j'ai appris une option d'une commande Unix aujourd'hui