Discussion :

[makohsarah]

Salut
j´ai dans mon tableau les données suivantes par exemple:

Code text :

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

1
2
3
4
5
6
7
8
9
10
44.55.555.55    30.11.12.11.0    wwwww   suitecaracteres1 
11.122.11.10    30.11.12.11.0    xxxxxx    suitecaracteres2 
55.122.11.10    30.11.12.11.0    bbbbbb    suitecaracteres3 
77.122.11.10    30.11.12.11.0    ssssss    suitecaracteres4 
50.122.11.10    30.11.12.11.0    aaaaaa    suitecaracteres5 
666.122.11.10    30.11.12.11.0  kkkkkk    suitecaracteres6 
666.122.11.10    30.11.12.11.0  kkkkkk    suitecaracteres6 ??? 
222.122.11.10    30.11.12.11.0  uuuuuu    suitecaracteres7 
111.122.11.10    30.11.12.11.0   lllllll   suitecaracteres8 
365.122.11.10    30.11.12.11.0  ppppp    suitecaracteres9

Je voudrai supprimer la ligne " 666.122.11.10 30.11.12.11.0 kkkkkk
suitecaracteres6 " qui est identique à celle qui la suit
directement apres à la seule difference que celle qui la suit à 3
points d´interrogations a sa fin ( ??? ).
Il en existe comme ca d´autres doublons dont la deuxieme ligne
identique á tjrs ces ??? à la fin.
Comment proceder?


Merci a bientot

[MarneusCalgarXP]

il suffit de lire chaque ligne, et de regarder si la ligne en cours est identique à la précédente avec juste des points d'interrogation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my $previousline = '';
while (my $line = <INPUT>)
{
    chomp($line);
    if ($line !~ /^$previousline \?{3}$/)
    {
        print($line . "\n");
        $previousline = $line;
    }
}