Bonsoir,
Yves Rutschle wrote:
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
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...
A+,
J8.
