Discussion :

[étoile de mer]

Bonjour à tous,
Je cherche comment faire pour remplir une table de hachahe d'elements extraints à partir d'un texte
voilà mon petit bout de code qui cré une table de hachage en l'initialisant, et qui extrait les element du texte à stocker dans la table de hachage
Merci pour votres aide

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
#!/usr/bin/perl 
use strict;
use warnings;
my %h = ();
my $InFile = "/home/cyrine/restri";
open my $fh_infile, '<', $InFile or die "Can't open $InFile\n";
 
while ( my $Ligne = <$fh_infile> ) {
  if ( $Ligne =~ /^(.*?)\->/ ) {
    # traiter $substring
    print $1; 
    # inserer le contenu de $1 dans la table de hachage
 
  }     
}
close $fh_infile;

[Philou67430]

Je suppose que tu souhaites utiliser comme clé de hachage, ce qui se trouve à gauche du texte ->, et comme valeur, ce qui se trouve à droite ?

Voici ce qu'il faudrait écrire dans ce cas:

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
#!/usr/bin/perl 
use strict;
use warnings;
use feature qw(:5.10);
 
my %h = ();
my $InFile = "/home/cyrine/restri";
open my $fh_infile, '<', $InFile or die "Can't open $InFile\n";
 
while ( my $Ligne = <$fh_infile> ) {
  if ( $Ligne =~ /->/ ) {
    my ($cle, $valeur) = split /->/, $Ligne;
    # traiter $substring
    say $cle; 
    # inserer le contenu de $1 dans la table de hachage
    $h{$cle}  = $valeur;
  }     
}

close $fh_infile;

[étoile de mer]

Je suppose que tu souhaites utiliser comme clé de hachage, ce qui se trouve à gauche du texte ->, et comme valeur, ce qui se trouve à droite ?

Voici ce qu'il faudrait écrire dans ce cas:

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
#!/usr/bin/perl 
use strict;
use warnings;
use feature qw(:5.10);
 
my %h = ();
my $InFile = "/home/cyrine/restri";
open my $fh_infile, '<', $InFile or die "Can't open $InFile\n";
 
while ( my $Ligne = <$fh_infile> ) {
  if ( $Ligne =~ /->/ ) {
    my ($cle, $valeur) = split /->/, $Ligne;
    # traiter $substring
    say $cle; 
    # inserer le contenu de $1 dans la table de hachage
    $h{$cle}  = $valeur;
  }     
}

close $fh_infile;

Merci Philou por votre reponse,
En fait oui vous avez raison
j'ai des lignes de cette forme :
de+l -> with (0.008726)
je veux que la clé soit ce qui à gauche de "(" et la valeur c'set " (0.008726)"
Donc je pense que je dois changer cette ligne de code comme ca :

Code :

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

 if ( $Ligne =~ /^(.*?)\(/ ) {

merci:

[étoile de mer]

je pense aussi qu'il faut changer cette ligne :

Code :

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

  my ($cle, $valeur) = split /->/, $Ligne;

mais comment faire?
thnks

[Philou67430]

Peut-être comme ceci:

Code :

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

my ($cle, $valeur) = $Ligne = /(.*)\s*\(.*?)\)/;

[étoile de mer]

Peut-être comme ceci:

Code :

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

my ($cle, $valeur) = $Ligne = /(.*)\s*\(.*?)\)/;

Il m'affiche une erreur de compilation : "Unmatched ) in regex; marked by <-- HERE in m/) <-- HERE / at ./perl.pl"

[Philou67430]

Il faut corriger ainsi :

Code :

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

my ($cle, $valeur) = $Ligne = /(.*)\s*\((.*?)\)/;

[étoile de mer]

Il faut corriger ainsi :

Code :

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

my ($cle, $valeur) = $Ligne = /(.*)\s*\((.*?)\)/;

MErci philou pour votre reponse,
Mais ca ne marche pas
il m'affiche une liste de message d'erreur de ce type:
Use of uninitialized value $_ in pattern match (m//) at ./perl.pl line 12, <$fh_infile> line 18655.

Use of uninitialized value $_ in pattern match (m//) at ./perl.pl line 12, <$fh_infile> line 18656.

Use of uninitialized value $_ in pattern match (m//) at ./perl.pl line 12, <$fh_infile> line 18657.

Use of uninitialized value $_ in pattern match (m//) at ./perl.pl line 12, <$fh_infile> line 18658.

Use of uninitialized value $_ in pattern match (m//) at ./perl.pl line 12, <$fh_infile> line 18659.

[Philou67430]

Montrez le script en totalité, et indiqué la correspondance du numéro de ligne dans le listing du forum.
Difficile de tester directement avec vos données, vu qu'on ne dispose pas du fichier d'entrée.

[étoile de mer]

d'accord,
voilà mon script :

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
#!/usr/bin/perl 
use strict;
use warnings;
use feature qw(:5.10);
 
my %h = ();
my $InFile = "/home/cyrine/restri";
open my $fh_infile, '<', $InFile or die "Can't open $InFile\n";
 
while ( my $Ligne = <$fh_infile> ) {
  if ( $Ligne =~ /^(.*?)\(/ ) {
    my ($cle, $valeur) = $Ligne = /(.*)\s*\((.*?)\)/;
    # traiter $substring
    say $cle; 
    # inserer le contenu de $1 dans la table de hachage
    $h{$cle}  = $valeur;
 
  }     
}
close $fh_infile;

et ceci un bout du fichier à traiter :

de+la -> community (0.011004)
de+la -> from (0.010509)
de+la -> is (0.009266)
de+la -> at (0.007937)
de+l -> of (0.041892)
de+l -> the (0.026769)
de+l -> and (0.026017)
de+l -> in (0.023007)
de+l -> to (0.016162)
de+l -> eu (0.015325)
de+l -> for (0.013790)

Merci

[Philou67430]

Erreur grossière :

Code :

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

my ($cle, $valeur) = $Ligne =~ /(.*)\s*\((.*?)\)/;

[étoile de mer]

Merci Philou