Discussion :

[sebi77]

Salut,

j'ai une liste de mots dans un fichier avec une une phrase à côté, quelque chose du genre

mot1 : phrase1
mot2 : phrase2
etc.

J'aimerais pouvoir supprimer des lignes qui commencent par certains mots, par exemple les mots dont la longueur est plus petite que 2, comment est-ce que je peux faire?

Pour le test c'est bon, je fais:

Code :

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

1
2
3
4
5
6
7
 
@mail = <FILE>;
for ($i=0; ($i< scalar @mail); $i++){
$word = $mail[$i];
$word =~ m/^\w+/;
$word = "$&";
chomp($word);

Ensuite je voudrais faire quelque chose comme ça:

Code :

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

1
2
3
4
 
if (length(word) < 3) {
#supprimer la ligne
}

Merci!

Sébastien

[2Eurocents]

Tu peux essayer quelquechose comme ça :

Code :

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

1
2
3
if (length($word) < 3) {
  delete $mail[$i];
}

à l'intérieur de ta boucle en $i

Attention, toutefois, car l'élément supprimé par le delete laisse une place vide. Avant toute opération subséquente sur un élément de @mail, il faut faire un test de validité avec defined. Comme par exemple pour le sortir dans un fichier :

Code :

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

1
2
3
open NEWFILE,  ">essai.txt" ;
map { print NEWFILE $_."\n" if (defined $_) } @mail;
close NEWFILE;

à mettre après ta boucle en $i.

Le "map" parcours tous les éléments de la liste passée en second paramètre et applique le traitement du bloc passé en premier paramètre, soit ici une sortie dans le fichier si la valeur courante ($_) est définie (i.e. pas supprimée).

Bonne continuation.

[Jedai]

La façon "habituelle" de le faire relèverait plutôt de la lecture ligne à ligne :

Code :

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

1
2
3
4
5
6
7
8
 
open FILE, '<', 'machin.txt';
open NEWFILE,  '>', 'essai.txt' ;
 
while( my $mail = <FILE> ) {
  my $word = ($mail =~ m/^\w+/);
  print NEWFILE $mail unless length( $word ) <= 2;
}

Libre à toi bien sûr de mettre un push à la place du print, si tu envisages de réutiliser ces données (ou d'utiliser un hash, plus vraisemblablement, mais dans ce cas, il faudra perfectionner la regex).

--
Jedaï