Discussion :

[pontarose]

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 :

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
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

[matafan]

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 :

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

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

[pontarose]

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)

[pontarose]

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);

[pontarose]

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
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
},
...
)

[pontarose]

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

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
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);

[Philou67430]

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'}