Bonsoir, Yves Rutschle wrote:
Il ne gère que les doublons qui se succédent :(, il faut 2 boucle while imbriquées, et pour chaque ligne, comparer avec toutes les autres lignes et agir en fonction, et il y a plein d'optim à imaginer...On Sun, Feb 08, 2004 at 11:38:34AM +0100, Michel Grentzinger wrote:Un rapide truc en Perl, pas testé énormément vu que je n'ai pas bcp de bookmarks: #! /usr/bin/perl while ( <> ) { if ( /<DT><A HREF="(.*?)"/ ) { next if $url{$1}; $url{$1} = 1; } print; next } Y. - Perl diver
A+, J8.