tableau de hash/conception

bonjour,

Jai un souci de conception .
J'ai un fichier avec plusieurs "bloc", pour chaque bloc je veux récupérer des infos. (chacun de mes blocs est structuré de la même façon).

J'ai pas de souci pour récupérer les infos que je veux (expression régulière) mais comment délimiter chaque bloc.
Je pense qu'un tableau de hash est la solution mais j'ai un peu de mal.(bloc1 nb=>128, ag=>52, ct=>90)

=============
bloc A
=============
nb= 128
ag= 52
ct=90

=============
bloc B
=============
nb= 150
ag= 20
ct= 40

Au final, je voudrais un tableau:

bloc A bloc B
nb de sequences: 128 150
nb de ag: 52 20
nb de ct: 90 40
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 open (CDM, "> all") or die("Impossible ouvrir$!"); my %info; while(my $line =<CDM>) { chomp($line); if($line =~ /^nb=\s+(.*)/){ $info{'nb'} = $1; } elsif($line =~ /^ag=\s+(.*)/){ $info{'ag'} = $1; } elsif($line =~ /^ct=\s+(.*)/){ $info{'ct'} = $1; } } close (CDM);
Merci d'avance

Ca dépend un peu de ce que tu veux faire ensuite avec tes données, mais une structure de donnée classique serait quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 { bloc_name => { "nb" => nb, "ag" => ag, "ct" => ct, }, ..., }

Merci de ta réponse.
C'est ce genre de tableau de hash que je veux obtenir.
Je ne trouve pas d'exemple sur le net (si tu en vois un sur le net je veux bien que tu m'indiques le lien)

open (CDM, "> all") or die("Impossible ouvrir$!");
$/="BLOC\n=============";
my %info;

my $nbre=0;
while(my $line =<CDM>) {
chomp($line);
$nbre++;

$info{'$nbre'};
if($line =~ /^\s*$/){ next; }

if($line =~ /nb=\s+(.*)\nag=\s+(.*)\nct=\s+(.*)/){
$info{'nb'} = $1;
}

}
close (CDM);

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 open (CDM, "> all") or die("Impossible ouvrir$!"); $/="BLOC\n============="; my %info; my $nbre=0; while(my $line =<CDM>) { chomp($line); $nbre++; $info{'$nbre'}; #?????????????, if($line =~ /^\s*$/){ next; } if($line =~ /nb=\s+(.*)\nag=\s+(.*)\nct=\s+(.*)/){ $info{'$nbre'}{'nb'}=$1; #??????????? } } close (CDM);
J'obtiens le message : Useless use of hash element in void context at line 11 (ce qui correspond à $info{'$nbre'};)

Je n'arrive pas à étblir mon tableau hashes de hashes:
%info = (
bloc1 => {
nb => 128,
ag => 52,
ct => 90
},
...
)

Je pense avoir trouvé, mais j'ai 3bloc comptabilisé mais j'en ai que deux!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open (CDM, "> all") or die("Impossible ouvrir$!");
 
 $/="BLOC\n=============";
my %info;
 
my $nbre=0;
while(my $line =<CDM>) {
	chomp($line);
	$nbre++;
 
        $bloc=$nbre; 
 
        if($line =~ /^\s*$/){ next; }
 
	if($line =~ /nb=\s+(.*)\nag=\s+(.*)\nct=\s+(.*)/){
             $info{'$bloc'}{'nb'}=$1; 
             $info{'$bloc'}{'nb'}=$2; 
             $info{'$bloc'}{'nb'}=$3; 
	}
 
}
print("$info{'$bloc'}{'nb'}\n");
close (CDM);

Attention, quand tu écris $info{'$bloc'}{'nb'} le fait de mettre des quotes simples autour de $bloc empêche l'interprétation du contenu. De fait, les clés seront $bloc au lieu du contenu de $bloc.

Il convient alors plutôt d'écrire : $info{$bloc}{'nb'} ou $info{"$bloc"}{'nb'}

Merci,
c'est noté.

Quelqu'un connait-il une autre façon de procéder sans utiliser

$/="BLOC\n=============";
dans mon script?

Oui, j'ai déjà eu l'occasion de la formuler plusieurs fois :

Code:

1
2
3
4
5
6
7
8
9
10
11
my @bloc = ();
foreach my $line (<>) {
  if ($line =~ /^bloc/i) {
    # Traiter @bloc
    @bloc = ();
  }
  push @bloc, $line;
}
if (@bloc) {
  # Traiter @bloc
}

Autre méthode possible s'il existe TOUJOURS une ligne de début et de fin de bloc :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
@bloc = ()
foreach my $line (<>) {
  my $in_bloc = ($line =~ /DEBUT BLOC/) .. ($line =~ /FIN BLOC/);
  if ($in_bloc =~/E0/) {
    # Traiter @bloc
    @bloc = ();
  }
  push @bloc, $line if $in_bloc;
}
if (@bloc) {
  # Traiter @bloc
}

Dans le cas précis de ce fichier, je ferais comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
my %blocs;
while(<>){
        next if(/====/);
        if(/bloc\s+(\w+)/gmx){
                print $1;
                $lastbloc=$1;
                next;
        }
        if(/(\w+)\s*=\s*(\d+)/gmx){
                print;
        $blocs{$lastbloc}{$1}=$2;
        }
}
# pour voir la structure
foreach $bloc (keys %blocs){
        print "bloc $bloc\n";
        foreach $champ (keys %{$blocs{$bloc}}){
                print "\t$champ = $blocs{$bloc}{$champ}\n";
        }
}

L'avantage, c'est que je ne cherche pas à traiter de manière différenciée les nb, les ag et les ct. Ce sont des champs, et basta.