Discussion :

[caramon _majere]

Bonjour,

Je vous sollicité pour un problème que j'imagine tout bête mais je n'en vois la logique

Je souhaite créer un hash en lisant un fichier texte et récupérant deux valeurs (key et value) selon des critères.
Les deux valeurs sont bien récupérées, voir le dernier résultat.

Exemple de fichier source:

SNMPv2-SMI::mib-2.47.1.1.1.1.11.1 = ""
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1001 = STRING: "FCW2024A2W3"
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1002 = ""
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1003 = ""
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1004 = ""
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1005 = ""
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1006 = STRING: "DCB201660EM"
SNMPv2-SMI::mib-2.47.1.1.1.1.11.1007 = ""

Résultat attendu
key 1001 value FCW2024A2W3
key 1006 value DCB201660EM

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';
no warnings 'uninitialized';
 
open (my $serial, "<", "$ARGV[0]");
 
my $hash;
 
while (<$serial>) {
	next if $_ =~ /""/;
	$_ =~ s/"//g;
	my ($OID, $serie) = (split /[.\s]/)[7,-1];
	$hash{$OID} = $serie;
	}	
 
print Dumper \%hash;

Résultat
$ perl test.pl serial.txt
Global symbol "%hash" requires explicit package name (did you forget to declare "my %hash"?) at test.pl line 24.
Global symbol "%hash" requires explicit package name (did you forget to declare "my %hash"?) at test.pl line 28.
Execution of test.pl aborted due to compilation errors.

j'ai bien les valeurs si j'affiche les valeurs

Code :

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

1
2
3
4
5
6
while (<$serial>) {
	next if $_ =~ /""/;
	$_ =~ s/"//g;
	my ($OID, $serie) = (split /[.\s]/)[7,-1];
	say "$OID et $serie";
	}

Résultat:
$ perl test.pl serial.txt
1001 et FCW2024A2W3
1006 et DCB201660EM


Merci !

[Philou67430]

Il n'y a pas de ligne 24 et 28 dans le code que tu as posté :/

Par contre, ligne 9, tu déclares $hash (un scalaire) au lieu de déclarer %hash (un hash).

[caramon _majere]

Merci Philou

C'était trop gros, honte sur moi