Discussion :

[étoile de mer]

Bonjour à tous
J'ai un petit souci :

Je possede un fichier texte de cette forme là :

a -> a (0.5)
a -> b (0.6)
a -> c (0.2)
b -> b (0.1)
b -> p (0.22)

J"aimerai avoir une idée pour la suppression de la 1ere ligne au debut de chaque bloc
Donc j'aurais un resultat de cette facon :
a -> b (0.6)
a -> c (0.2)
b -> p (0.22)

Avez vous une piste svp?

Merci

[grim7reaper]

Salut,

Soit le fichier texte suivant, appelons le sample.txt

a -> a (0.5)
a -> b (0.6)
a -> c (0.2)
b -> b (0.1)
b -> p (0.22)

Le principe, c’est de lire le fichier ligne à ligne.
Pour chaque ligne, on récupère l’identifiant du bloc (ce qu’il y a avant " -> ") et la valeur. On ajoute la valeur dans une liste.
À la fin, chaque bloc est donc associé à une liste de valeurs.
Il suffit donc de parcourir la liste des blocs, et de retirer la première valeur de chaque bloc.
Ce qui nous donne le script suivant :

Code perl :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl
 
# The must-have: never write a script without them.
use strict;   # Enables the restriction of unsafe constructs.
use warnings; # Enables the optional warnings.
 
# Get stacktraces.
use Carp ();
$SIG{__WARN__} = \&Carp::cluck;
$SIG{__DIE__} = \&Carp::confess;
 
open(my $fd, "<", "sample.txt");
my %blocks = ();
 
# Lecture du fichier.
while(<$fd>)
{
    my ($key, $value) = split(/ -> /);
    push(@{$blocks{$key}}, $value);
}
 
# Élimination de la première valeur de chaque bloc.
foreach my $key (keys %blocks)
{
    shift($blocks{$key})
}
 
# Affichage pour vérifier que l'on obtient bien le résultat attendu.
while (my ($key, $value) = each(%blocks))
{
    foreach my $val (@$value)
    {
        print($key.' -> '.$val);
    }
}
 
close($fd)

[Lolo78]

La solution proposée fonctionne (sans doute), mais présente le désavantage d'imposer de charger l'ensemble du fichier en mémoire. Personnellement, j'évite cela autant que possible, car je manipule fréquemment des fichiers de plusieurs gigaoctets. De plus elle manipule chaque élément de données deux fois.

Je préfère itérer sur le fichier, détecter à la volée si ma ligne est le début d'un bloc (dans l'exemple présenté, la première lettre a-t-elle changé par rapport à la ligne précédente) et imprimer directement toutes les lignes qui ne sont pas des débuts de bloc.

[Philou67430]

La proposition de Lolo s'écrit facilement en uni-ligne :

Code :

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

cat file | perl -nE '($key) = split;print if $key eq ($last // "");$last = $key'

(sous Unix/cygwin, sous Windows, changer les quotes simples en double et vice-versa).

[étoile de mer]

Merci les gars
Je vais tester la commande de Philou
et oui je traite toujours des gros corpus et c'est embetant :/

a++