Discussion :

[caramon _majere]

Bonjour,

Je suis en train de un début de script et quand je le test par bout, j'ai vu une différence d'affichage entre Cygwin et Strawberry.

J'ai le résultat attendu avec strawberry mais avec cygwin seul la dernière ligne est correcte.

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
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
use Data::Dumper;
no warnings 'uninitialized';
 
my $user = 'toto';
 
my $snmp1 = "snmpwalk -v3 -a MD5 -u $user -A ocwspassk1tsnmpv3  -x DES -X ocwspassk1tsnmpv3  -l authPriv ";
 
my $sysdesc = '1.3.6.1.2.1.1.1';
 
while (my $IP = <>) {
    chomp($IP);
    my @cmd =  ($snmp1, $IP, $sysdesc);
	say "@cmd";
    }

Résultat

Cygwin

1.3.6.1.2.1.1.1MD5 -u toto -A XXX -x DES -X XXX -l authPriv 10.10.10.10
1.3.6.1.2.1.1.1MD5 -u toto -A XXX -x DES -X XXX -l authPriv 127.0.0.1
snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 1.1.1.1 1.3.6.1.2.1.1.1

Strawberry

snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 10.10.10.10 1.3.6.1.2.1.1.1
snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 127.0.0.1 1.3.6.1.2.1.1.1
snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 1.1.1.1 1.3.6.1.2.1.1.1

Vous avez déjà eu le cas ?
Une idée d'explication ?

[Lolo78]

Cygwin est un environnement de type Unix alors que Strawberry tourne sous Windows. Ils n'ont donc pas la même conception de ce qu'est une fin de ligne. Pour Windows: "\r\n", pour Unix: "\n".

Tes données en entrée ont un format Windows, mais Perl sous Cynwin ne le sait pas, il a une sémantique Unix. Du coup, chomp enlève le "\n", puisque c'est sa définition du retour à la ligne, mais pas le "\r" mis là par Windows. Le "\r" entraîne un retour en début de ligne, mais sans saut de ligne, ce qui a pour effet d'écraser le début de la ligne précédente.

Moralité: ne pas utiliser sous Unix un fichier texte préparé sous Windows, ni l'inverse, d'ailleurs.

Pour corriger le problème, remplace:

Code :

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

1
2
 
chomp($IP);

Par:

Code :

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

1
2
 
$IP =~ s/[\r\n]+//;

et ça devrait marcher pareil des deux côtés.

[caramon _majere]

Merci Lolo.

Bon je crois que je vais me mettre sérieusement à vim avec cygwin pour éviter ces problèmes avec notepad++.

J'ai essayé de changer les formats de fin de ligne en UNIX mais ca n'a rien fait.

[Lolo78]

Et tu as essayé la modification de code que je t'ai proposée? Et est-ce que ça a marché ou pas?

[caramon _majere]

Ah ou désolé
ca fonctionne comme il faut, merci

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
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
use Data::Dumper;
no warnings 'uninitialized';
 
my $user = 'toto';
 
my $snmp1 = "snmpwalk -v3 -a MD5 -u $user -A XXX  -x DES -X XXX  -l authPriv ";
 
my $sysdesc = '1.3.6.1.2.1.1.1';
 
while (my $IP = <>) {
    $IP =~ s/[\r\n]+//;
    my @cmd =  ($snmp1, $IP, $sysdesc);
    say "@cmd";
    }

Résultat CYGWIN
snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 10.10.10.10 1.3.6.1.2.1.1.1
snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 127.0.0.1 1.3.6.1.2.1.1.1
snmpwalk -v3 -a MD5 -u toto -A XXX -x DES -X XXX -l authPriv 1.1.1.1 1.3.6.1.2.1.1.1

[Lolo78]

Ah, bon, ça marche, donc. Tant mieux!

J'ai essayé de changer les formats de fin de ligne en UNIX mais ca n'a rien fait.

Curieux, j'utilise assez régulièrement Notepad++ pour des fichiers au format Unix, je ne me souviens pas d'avoir eu des problèmes.

[caramon _majere]

Moi aussi mais je laissais par défaut.
Aujourd'hui étant plus réveillé je viens de mettre mon fichier arguments en format UNIX et ca passe

Code :

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

chomp($IP);

sans avoir besoin de

Code :

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

$IP =~ s/[\r\n]+//;

[Philou67430]

Sous cygwin, il est aussi possible d'utiliser le convertisseur de fichier : dos2unix (ou fromdos)

[caramon _majere]

A garder dans un coin de la tête en plan B